Hallo zusammen,
ich habe bei einem Feld im unter "BeforeUpdate" diesen Code eingetragen:
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?
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
Grüß Dich,
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
Vielen Dank!! Ihr seid wirklich gut. :) :)