[Resolvido]Perguntar se desejo salvar ao fechar formulário

Bom dia!

Já li alguns tópicos, mas nenhum é específico para minha dúvida.

Seguinte... Meus formulários só fecham usando a tecla "Esc" com o código:

If KeyAscii = 27 Then
DoCmd.Close acForm, Me.Name
End If

Nenhum formulário possui o famoso botão "x".

Gostaria de adaptar nesse código uma função onde, ao clicar Esc para fechar, o formulário me pergunte se desejo salvar as alterações feitas. Porém, gostaria que ele perguntasse somente quando houver alguma alteração, pois se a pessoa abrir e fechar sem alterar nada não é necessário a pergunta certo?

Obrigado!

bom dia caro amigo tente assim:



Private Sub Form_BeforeUpdate(Cancel As Integer)

If KeyAscii = 27 Then


Dim x As Integer
If Me.Dirty Then
x = MsgBox("Deseja salvar todas as alterações ?", vbYesNo)
If x = vbNo Then
Me.Undo
End If
End If

end if

end sub
código do nosso amigo jpaulo

Boa noite Marcelo!

Primeiramente obrigado pela ajuda...

Então, ao apertar Esc não acontece nada rs

boa noite tenta assim agora


Coloque no evento "Ao apertar tecla".
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)


If KeyCode = 27Then
Dim x As Integer
If Me.Dirty Then
x = MsgBox("Deseja salvar todas as alterações ?", vbYesNo)
If x = vbNo Then
Me.Undo
End If
End If
end if


va na Folha de propriedade na aba evento
bem no final tem escrito VISUALIZAR TECLAS escolha a opção"SIM "

Então Marcelo... ao abrir o form e apertar Esc sem fazer nenhuma alteração, não acontece nada, porém, se eu fizer qualquer alteração e apertar Esc em seguida, ele desfaz tudo que fiz e não fecha o form.

A msgbox tb não está sendo exibida.

--------------------------------------------------

Resumindo, eu preciso que, ao apertar a tecla Esc no formulário:

1) Se houver qualquer alteração feita, ele deve exibir uma mensagem perguntando se desejo salvá-la(s), antes de fechar o formulário;
2) Se não houver nenhuma alteração, ele simplesmente fecha o formulário.

boa noite Krauss veja este exemplo no formulário frm_produto
o código esta no botão fechar e chamei ele no evento ao pressionar tecla


abraço

Marcelo, peguei o código, adaptei e joguei direto no evento "Ao apertar tecla", assim posso descartar o tradicional "Botão Fechar".

Eis o código de acordo com minha necessidade:

If KeyCode = 27 Then
If Me.Dirty Then
If MsgBox("Deseja salvar as alterações?", vbQuestion + vbYesNo, " Confirmação") = vbNo Then
Me.Undo
DoCmd.Close
Else
DoCmd.Save
DoCmd.Close
End If
End If
DoCmd.Close
End If

Sendo assim, ao apertar a tecla Esc:

1) Se houver alteração, o sistema pergunta se desejo salvar;
1a) Se clicar em "Sim", o sistema salva as alterações e fecha o form;
1b) Se clicar em "Não", o sistema desfaz as alterações e fecha o form.

2) Não havendo nenhum alteração, o form simples se fecha sem perguntar.

Muito obrigado ela ajuda! Foi de grande serventia.

bom dia Krauss e obrigado pelo retorno

abraço