[Resolvido]Comando Undo não funciona.

Amigos,
Estou usando

Me.Undo

e tentei Me.Form.Undo

num evento AoFechar, para dar alternativa numa msgbox para não salvar alterações feitas em campos de um formulário...

Mas não funciona... as alterações todas estão indo p a tabela...

Estou usando:


Private Sub Form_Close()
Dim VarMensagem As VbMsgBoxResult
VarMensagem = MsgBox("Deseja salvar alterações?", vbYesNo, "Atenção!")

If Me.Dirty = True Then
MsgBox VarMensagem
End If

If VarMensagem = vbYes Then
DoCmd.Save
Else
MsgBox "Formulário será fechado sem alterações!", vbOKOnly, "Atenção!"
Me.Form.Undo
End If

End Sub

As MsgBox estão aparecendo certinho...
Se a opção na primeira MsgBox é vbNo aparece a segunda MsgBox com aviso "fechando s alterações", só que qdo clica vbOkOnly fecha o formulário mas as alterações que era para não salvar acabam salvas...

Por favor me deem uma ajudinha!

Obrigado!
Lárimer

Poste seu banco para darmos uma olhada. Ta meio confuso
esse código...

Amigo Marcelo Davi e demais amigos do forum...

Na verdade achei como resolver...

Apesar da "literatura" (outros fóruns, MSDN, blogs) dizerem que Me.Undo funciona, pelo menos pra mim ñ funcionou...

Mas aí eu usei

DoCmd.RunCommand acCmdUndo

e ai deu certinho... Quando o usuário escolhe "não salvar" qualquer alteração em qualquer dos campos é limpa e ñ vai p a tabela...

Está no evento AoFechar do Form.

Quem vê vai pensar que sou programador... he! he!

Será que dá para colocar numa PublicFunction para facilitar de padronizar para todos os Forms?

Obrigado a todos!

Lárimer

Ótimo! Obrigado pelo retorno!