Undo für ein Feld

[Juno]

Hallo zusammen,

ich habe bei einem Feld im unter "BeforeUpdate" diesen Code eingetragen:

Code [Auswählen] Erweitern

Private Sub vktyp_nr_BeforeUpdate(Cancel As Integer)
If Not IsNull(vk_nr) Then
MsgBox "Dieses Feld kann nicht geändert werden!"
Me!vktyp_nr.Undo
End If

Damit müsste dieses Feld doch auf den Ursprung zurück gesetzt werden wenn vk_nr bereit gefüllt ist oder?
Ich bekomme zwar die Meldung aber der Inhalt wird trotzdem geändert. Wenn ich einfach nur Me.undo verwende dann funktioniert das. Aber ich brauche das nur auf das eine Feld bezogen. Was mache ich falsch?

[DF6GL]

Hallo,



Private Sub vktyp_nr_BeforeUpdate(Cancel As Integer)
If Not IsNull(Me!vk_nr) Then
MsgBox "Dieses Feld kann nicht geändert werden!"
Cancel=true
End If

[database]

Grüß Dich,

Code [Auswählen] Erweitern


Private Sub vktyp_nr_BeforeUpdate(Cancel As Integer)
   If Not IsNull(Me!vk_nr) Then
       MsgBox "Dieses Feld kann nicht geändert werden!"
       Me!vktyp_nr.Undo
       Cancel = True
   End If
End Sub


Damit wird die Speicherung des Feldes abgebrochen und der ursprüngliche Eintrag wieder angezeigt, in der Annahme, dass auch 'vk_nr' ein Formularfeld ist.

Grüße
Peter

[Juno]

Vielen Dank!! Ihr seid wirklich gut.