MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Cancelar o fechamento do formulário

    Compartilhe

    Jorgetff
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 09/08/2017

    Cancelar o fechamento do formulário

    Mensagem  Jorgetff em Sex 1 Set - 8:35

    Olá Pessoal!

    Estou com o seguinte problema:

    Eu quero que ao fechar um formulário, apareça as opções para salvar, não salvar ou cancelar o fechamento, para isso coloquei o seguinte código:

    Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String
    Dim msg
    strMsg = "Deseja salvar as alterações na cidade?"
    x = MsgBox(strMsg, vbQuestion + vbYesNoCancel, "Salvar cidade?")

    Select Case x
       Case vbYes
       msg = MsgBox("Cidade cadastrada com sucesso!", vbExclamation + vbOKOnly + vbDefaultButton2, "AVISO")

       Case vbNo
       DoCmd.RunCommand acCmdUndo
       
       Case vbCancel
       DoCmd.CancelEvent
       
    End Select
    End Sub

    Quando clico em salvar ou não salvar, funciona perfeitamente, mas quando clico em cancelar aparece a mensagem, conforme imagem anexa.

    Como faço para corrigir esse erro, sendo que o formulário não salve o registro e nem feche o formulário?

    Desde já agradeço.
    Anexos
    Sem título.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 3 vez(es)
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/09/2011

    Re: Cancelar o fechamento do formulário

    Mensagem  cleverson_manaus em Sex 1 Set - 8:39

    Amigo se não estiver enganado, vc deve definir o valor da variável x como boolean.

    Abraços,



    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    Jorgetff
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 09/08/2017

    Re: Cancelar o fechamento do formulário

    Mensagem  Jorgetff em Sex 1 Set - 9:00

    Obrigado pela ajuda amigo!

    A mensagem de erro realmente deixou de aparecer, porém quando eu clico em "Cancelar" o formulário salva o registro e fecha, eu quero justamento o contrário, que o formulário não salve o registro e nem feche o formulário.

    Pode me ajudar?
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/09/2011

    Re: Cancelar o fechamento do formulário

    Mensagem  cleverson_manaus em Sex 1 Set - 14:41



    Amigo tente assim:



    Código:


    Private Sub Form_BeforeUpdate(Cancel As Integer)

    Dim strMsg As String
    Dim x as Integer
     
    strMsg = "Deseja salvar as alterações na cidade?"


    x = MsgBox(strMsg, vbQuestion + vbYesNoCancel, "Salvar cidade?")

      Select Case x

          Case 6 'vbYes

            MsgBox("Cidade cadastrada com sucesso!", vbExclamation, "AVISO")
              Exit sub
     
          Case 7 'vbNo
     
              DoCmd.RunCommand acCmdUndo
     
          Case 2 'vbCancel
     
              Exit sub
     
        End Select

    End Sub



    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

      Data/hora atual: Qua 22 Nov - 7:58