Private Sub Form_Load()
  gHiAuNummer = Me.auNummer
  gBoolDatensatzLöschen = True
End Sub
 
Private Sub OK_Click()
  gBoolDatensatzLöschen = False
  DoCmd.Close
End Sub
 
Private Sub Cancel_Click()
  Me.Undo  'rückgängig
  gBoolDatensatzLöschen = True
  DoCmd.Close
End Sub
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
  gBoolDatensatzLöschen = False
End Sub
 
Private Sub Form_Close()
  If gBoolDatensatzLöschen Then
    db.Execute ("DELETE tblAuftrag.auNummer FROM tblAuftrag WHERE (((" & _
      "tblAuftrag.auNummer)=" & gHiAuNummer & "));")
  End If
End Sub