[Resolvido]Caixa de mensagens

Olá rapaziada!

Pessoal, eu tô com um formulário cujo botão fechar eu inseri o seguinte código na caixa de mensagem caso seja feito qualquer alteração:

If Form.Dirty = False Then
DoCmd.Close
ElseIf Form.Dirty = True Then
If msgbox("Deseja salvar as alterações?", vbYesNoCancel + vbQuestion) = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
Else
Me.Undo
DoCmd.Close
End If
End If

-------------------------------------------
Eu gostaria de saber qual e onde acrescento o código para o botão cancelar da caixa de mensagem?
Os botões Sim e não funcionam normalmente.

Podem me ajudar?


Grato - Dorival

bom dia você quer saber onde colocar este código se foi isso você pode colocar no evento ao fechar

Não, Não é isso!

O código está no evento ao fechar do botão.

Ó que eu quero saber é: Qual é o código do botão cancelar que aparece na caixa de mensagem (vbYesNoCancel)
E onde eu devo inseri-lo na sequencia de códigos acima.

Boa tarde,

Segue:

Código:

    Dim q As String
   
    q = MsgBox("Sua Mensagem", vbYesNoCancel)
   
    Select Case q
        Case vbYes
            'codigo se verdadeiro
        Case vbNo
            'codigo se falso
        Case Else
            'codigo se cancelar
    End Select

Abraço.

Olá Cássio!

Não deu certo!

Quando clico no botão cancelar, ele fecha o formulário, quando deveria permanecer aberto.
No código que eu mencionei acima acontece a mesma coisa

Tem alguma outra solução?

Boa tarde,

Tente:

Código:

Dim q as string

q = msgbox("Deseja salvar as alterações?", vbYesNoCancel + vbQuestion)

If not q = "vbCancel" then
    If Form.Dirty = False Then
        DoCmd.Close
    ElseIf Form.Dirty = True Then
        If q = "vbYes" then
            DoCmd.RunCommand acCmdSaveRecord
            DoCmd.Close
        Else
            Me.Undo
            DoCmd.Close
        End if
    End if
End If

Abraço.

Olá !

Agora qualquer um dos botões ao clicar, está fechando o formulário.

Se você tiver outro método, eu agradeço. Vou tentando por aqui

Até mais!

Dorival,

não vi razão para que a sugestão do Cassio não funcione. Experimente:

Dim q
If Form.Dirty = False Then
    DoCmd.Close
ElseIf Form.Dirty = True Then
    q = MsgBox("Deseja salvar as alterações?", vbYesNoCancel + vbQuestion)
    Select Case q
        Case vbYes
            DoCmd.RunCommand acCmdSaveRecord
            DoCmd.Close
        Case vbNo
            Me.Undo
            DoCmd.Close
    End Select
End If

Aguardamos

Bom dia,

Segue:

Código:

   Dim q As String
    
    q = MsgBox("Deseja salvar o registro?", vbQuestion + vbYesNoCancel, "Sair")
    
    If Not q = vbCancel Then
        If Me.Dirty = True Then
            If q = vbYes Then
                DoCmd.RunCommand acCmdSaveRecord
            Else
                Me.Undo
            End If
        End If
        
        DoCmd.Close
    End If

O problema estava em atribuir o vbCancel entre aspas, como texto, por algum motivo não reconhecia. Então basta tirar as aspas do vbCancel e vbYes. Estou mandando um modelo em anexo.

O código do grande Avelino não peca em nada, então também vai funcionar perfeitamente.

Abraço.

Olá Cassio,
Boa tarde!

Agora está perfeito!

Tanto o seu código como o do Avelino, estão funcionando exatamente como eu queria.

Quero agradecer a todos que se dispuseram a ajudar!


Obrigado e até a próxima!