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.
| Não há comentário |
