[Resolvido]Não detecta que o Form está "Dirty"

O que há de errado com esse código?

Tentei usando If Me.Dirty Then ... e também não funciona... Executei com interrupção e ele não detecta que o Form está "Dirty"...

Help!
Thks!
Lárimer


Private Sub Form_Close()

If Form.Dirty Then
MsgBox "Deseja salvar alterações?", vbOKCancel, "Atenção!"
If vbOK Then
DoCmd.Save
DoCmd.Close
End If
MsgBox "Formulário será fechado sem alterações!", vbOKOnly, "Atenção!"
Form.Undo
DoCmd.Close
End If


End Sub

Faça o teste assim;

If Me.Dirty Then

Obrigado, JPaulo!

Mas já tentei com o Me.Dirty e tbém ñ está dando certo...

Será que é porque estou colocando no evento AoFechar?

Na verdade estou a procura de uma forma de proteger registros salvos e evitar salvar registros parciais ou alterados por acidente...

Então, se tem alteração ou se apenas abre o form e gera um novo AutoNum, ao fechar pergunta se quer salvar... se não faz Undo...

Não sei se estou no caminho certo..

Alguma sugestão?

Como sempre, muito obrigado!
Lárimer

O Me.Dirty só funciona se você não salvar antes.

Temos de ver a estrutura do banco para o ajudar em concreto.

Amigo JPaulo,

Grato pela ajuda.
O que estava errado era minha chamada a uma MsgBox e a posição de um If . . .

Então já funcionou.

Obrigado e boa sorte na respescagem para a copa do Brasil...

Lárimer