Usando Access

... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.

Um botão da ribbon para abrir diferentes formulários

Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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.

| Home | Vídeos-aulas | Tutoriais | Dicas | Blog | Downloads | Contato | Artigo |