Um botão da ribbon para abrir diferentes formulários
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 10x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Usuário Vinicius:
Boa tarde.
Estou com um problema na ribbon que é o seguinte:
Tenho um sistema de Ordem de Serviços e tenho uma tabela de parâmetros do sistema.
Ocorre que, para a Ordem de Serviços tenho duas formas de se trabalhar com o formulário de entrada.
Então, se o parâmetro indicar, abro o formulário X. Caso não indique, usa o formulário Y. Enfim, na ribbon, há alguma forma de se verificar qual o parâmetro usado para abrir o formulário correto? Ou tenho que ter dois botões para isto?
Suporte:
Vinicius,
basta um botão. E a verificação do parâmetro fica na função do botão.
Exemplo de um botão, chamando pela função fncOnAction().
<button
id = "btOs"
imageMso = "DistributionListSelectMembers"
label = "Ordem de serviços"
onAction = "fncOnAction"
/>
Na função, crie algo assim:
Public Sub fncOnAction(control As IRibbonControl)
On Error GoTo trataerro
Select Case control.Id
Case "btOS"
if dlookup("parametro","tblParametro") = true then
'aqui abre formulário X
else
'aqui abre formulário Y
end if
End Select
sair:
Exit Sub
trataerro:
MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, _
"Aviso", Err.HelpFile, Err.HelpContext
Resume sair:
End Sub
Usuário:
Bom dia,
muito obrigado....
Dúvida esclarecida.
An Invitation
Meet the first tool in the world, developed in Microsoft Access, for the configuration and creation of custom ribbons. Ribbons have come to stay, therefore it is crucial that you get to know and learn this application!
Click here and get to know everything about this amazing tool!
| Não há comentário |
