Exit en niet opslaan in Access

[Verwijderd]

Als ik wil afsluiten in een formulier met een exitknop slaat hij standaard de gegevens op.
Dit heb ik opgelost door achter de exitknop het volgende te zetten:

Private Sub Command54_Click()
On Error GoTo Err_Command54_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.Close

Exit_Command54_Click:
Exit Sub

Err_Command54_Click:
MsgBox Err.Description
Resume Exit_Command54_Click

End Sub

Dit werkt, maar als ik helemaal niks invul dan werkt de exitknop niet meer aangezien er niks valt leeg te maken.

Wie kan mij helpen????

Bvd Tjeerd B

[Verwijderd]

Visual Basic:

If me.Dirty then Me.Undo

[Verwijderd]

Tnx, nu ben ik weer een heel stuk verder
Groeten Tjeerd B