[resolvido] Mensagem no botão sair

Moderador: Avelino Sampaio

gilberlanio
Mensagens: 7
Registrado em: 06 Jun 2015, 21:12

[resolvido] Mensagem no botão sair

Mensagempor gilberlanio » 24 Nov 2018, 18:37

Como colocar no botão "Sair" na ribbom a mensagem:
Deseja sair do sistema?
E ter os botões de SIM ou NÃO

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 469
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Mensagem no botão sair

Mensagempor Damasceno Jr. » 24 Nov 2018, 19:04

Na ribbon tenha o botão que tenha o seguinte código na ação:
Código:
<button
id = "btSair"
...
onAction = "fncOnAction"
/>

No código da função fncOnAction atribua a ação para o botão:
Código:
Public Sub fncOnAction(control As IRibbonControl)
Select Case control.Id
...
Case "btsair"
If MsgBox("Deseja realmente sair?", vbQuestion + vbYesNo + vbDefaultButton2, "Sair") = vbYes Then
docmd.quit
End If
...
End Select
...
End Sub
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

gilberlanio
Mensagens: 7
Registrado em: 06 Jun 2015, 21:12

Re: Mensagem no botão sair(Resolvido)

Mensagempor gilberlanio » 25 Nov 2018, 02:33

Obrigado Damasceno, revolvido.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Ribbons”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 0 visitante