bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Um botão da ribbon abrir diferentes formulários

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.

Open v3

 


 

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

Envie seu comentário: