Fout bij verwijderen record

[Snabugje]

Goede morgen beste experts,

Nu al loop ik tegen een probleem op :S

Ik heb zojuist een formulier gemaakt voor het invoeren van informatie van bedrijven (zie bijlagen voor een afbeelding).
Nu wil ik alleen dat wanneer er op 'Annuleren' geklikt word, (vanzelf sprekend) alle gegevens die net zijn ingevoerd weer worden gewist.

Hiervoor heb ik deze code gebruikt:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acUndo, , acMenuVer70

Maar na het sluiten van de desbetreffende formulieren blijkt access toch de record te hebben opgeslagen.

Heeft iemand hier een idee voor??

BVD!!

Snabugje

 

[snb]

Hoe sluit je het formulier ?
Welke code staat er in de knop Oplsaan ?

 

[Snabugje]

Hallo snb,

onder opslaan staat simpel 'docmd.close' omdat acces toch wel de records opslaat.

de complete code voor annuleren is:

Private Sub cmdCancel_Click()
If Me.Dirty = True Then
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acUndo, , acMenuVer70
End If
DoCmd.Close
End Sub

Ik zie zelf de fout niet zitten

--------------
EDIT:

Hallo Hallo,
Ik heb het al opgelost met een andere functie:

Private Sub cmdCancel_Click()
If Me.Dirty = True Then
    DoCmd.RunCommand acCmdUndo
End If
DoCmd.Close
End Sub

gr
Snabugje