Sicherheitsabfrage

[schlabalu]

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

[bahasu]

Hi,

(Neueingabe)?

probier mal:

Code (vb) [Auswählen] Erweitern

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