Ich habe in einem Formular eine Sicherheitsabfrage eingebaut, um eine ungewollte Änderung eines Wertes in einem Formularfeld abzufangen. Wie kann ich diese Abfrage unterbinden, wenn das betreffende Feld noch leer war (Neueingabe)?
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Dirty Then
If MsgBox("Änderungen speichern?", vbYesNo, "Speichern?") = vbNo Then
Me.Undo
End If
End If
End Sub
Hi,
Zitat von: schlabalu am Juli 20, 2014, 12:57:50
(Neueingabe)?
probier mal:
Private Sub Form_BeforeUpdate(Cancel As Integer)
if not me.newrecord then
If Me.Dirty Then
If MsgBox("Änderungen speichern?", vbYesNo, "Speichern?") = vbNo Then
Me.Undo
End If
End If
end if
End Sub