[Resolvido]Botão Salvar com Prompt de 3 escolhas Sim Não e Cancelar

boa tarde galera tudo bem com vocês? espero que sim !

eu tenho uma dúvida cruel em relação formulários sujos que na maioria das vezes quando são fechados salvam mesmo o usuário não apertando um botão com comando salvar.

a questão é a seguinte eu uso hoje esse código para um botão de "Salvar e Fechar", porém esse botão não tem "Não salvar"

ele apenas faz a pergunta Salvar ? Sim ou Não, se responder "não" a ação não será fechar não terá ação nenhuma. porém se apertar sim ele salva e fecha a janela

eu queria 3 respostas

Sim / Não / Cancelar

Sim = Fecharia a Janela e Salvaria os dados
Não = Fecharia e Não salvaria nada
Cancelar = Cancelava a ação do botão Salvar e Fechar

eu uso o código abaixo:


Private Sub BTN_SALVAR_Click()
  Dim strmsg As String
  Dim iResponse As Integer

  strmsg = "Deseja salvar e fechar?" & Chr(10)
  iResponse = MsgBox(strmsg, vbQuestion + vbYesNo, "Mensagem")
 
  If iResponse = vbYes Then
  DoCmd.Save
  DoCmd.Close
  Call DoCmd.OpenForm("Frm_Menu")
  End If
End Sub

Olá

Em anexo

Saludos

Bom dia tudo bem? espero que sim

eu tenho um problema, quando faço alteração no Form e fecho e digo "Não" no Prompt de salvar ele realmente não salva.

já quando eu altero o subformulário não funciona no "Não Salvar"

como posso resolver?





Private Sub BTN_SAIR_Click()

Dim strmsg As String
Dim iResponse As Integer

strmsg = "¿Deseja salvar e fechar?" & Chr(10)
iResponse = MsgBox(strmsg, vbQuestion + vbYesNoCancel, "Mensagem")

If iResponse = vbYes Then
DoCmd.Save
DoCmd.Close
Call DoCmd.OpenForm("Frm_Menu")
ElseIf iResponse = vbNo Then
Form.Undo
DoCmd.Close
Else
Exit Sub
End If

End Sub