MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Botão Sair com vbYesNo

    avatar
    bocfonseca
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 20/12/2021

    Botão Sair com vbYesNo Empty Botão Sair com vbYesNo

    Mensagem  bocfonseca 2/1/2022, 17:41

    Boa tarde!
    Sou novo por aqui e iniciante em programação. Estou tentando criar um sistema para controle de atendimentos em fisioterapia.
    Quero configurar um botão de fechar o sistema, com uma MsgBox vbYesNo. O código que criei está dando erro de compilação ('Sub' ou 'Function' não definida).
    Alguém poderia me auxiliar com isso, por favor?

    Eis o código que escrevi:

    Option Compare Database


    Public Sub BtnSair_Click()

    Dim SqlQuit As String

       SqlQuit = MsgBox("O FisioAccess será encerrado." & Chr(13) & "Você confirma?", vbYesNo + vbQuestion, "FisioAccess")
       
       If SqlQuit = vbYes Then
       DoCmd.Quit acQuitSaveAll
       Else
       Cancel
       End If
       
    End Sub


    Desde já agradeço.
    Feliz Ano Novo à todos.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    Botão Sair com vbYesNo Empty Re: Botão Sair com vbYesNo

    Mensagem  DamascenoJr. 2/1/2022, 22:31

    Antes de tudo: bem vindo!

    O "Cancel" só existe em alguns eventos que JÁ foram disparados/iniciados, como, por exemplo, o evento "Ao abrir". No seu caso, o fechamento do sistema não começou, primeiro foi perguntado se deveria mesmo fechar.

    Dito isto, retirei o "Cancel", afinal, não há o que ser cancelado.

    Não esqueça de encerrar o tópico.

    Código:
    Option Compare Database


    Public Sub BtnSair_Click()

       Dim SqlQuit As Integer

       SqlQuit = MsgBox("O FisioAccess será encerrado." & Chr(13) & "Você confirma?", vbYesNo + vbQuestion, "FisioAccess")
      
       If SqlQuit = vbYes Then
          DoCmd.Quit acQuitSaveAll
       End If
      
    End Sub


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    bocfonseca gosta desta mensagem

    avatar
    bocfonseca
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 20/12/2021

    Botão Sair com vbYesNo Empty Deu carto!

    Mensagem  bocfonseca 5/1/2022, 15:37

    Muito obrigado!
    Ficou ótimo!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    Botão Sair com vbYesNo Empty Re: Botão Sair com vbYesNo

    Mensagem  DamascenoJr. 6/1/2022, 01:42

    Você esqueceu de encerrar o tópico.

    Veja no link abaixo como fazer
    https://www.maximoaccess.com/t860-resolucao-de-topicos#5263

    Aguardamos sua ação.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado


    Botão Sair com vbYesNo Empty Re: Botão Sair com vbYesNo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:27