Abbruch ohne Speichern
Heims
Gesendet: 22.05.14 17:46
Betreff: Abbruch ohne Speichern


Member

Beiträge: 7

Hallo zusammen

Wie kriege ich es hin wenn ich in ein Textfeld eine schon vorhanden Nummer eingebe das Formular zu schließen
ohne denn Eingegebenen Wert in der Tab. zu Speichern.

Ist es möglich wenn die msg Box erschein und mir sagt dieser Auftrag ist bereits vorhanden
Ich dann auf ok klicke sich das Formular schließt und die Nummer dann nicht gespeichert wird.

Private Sub Auftragsnummer_BeforeUpdate(Cancel As Integer)

If Not IsNull(DLookup("Auftragsnummer", "TB_Auftragsnummer", _
"Auftragsnummer = " & Chr$(34) & Me!Auftragsnummer & Chr$(34))) _
And Me!Auftragsnummer <> Nz(Me!Auftragsnummer.OldValue) Then

MsgBox Me!Auftragsnummer & " dieser Auftrag ist bereits vorhanden.", vbOKOnly, "Duplikat!"
Cancel = True

End If

End Sub

Gruß Michael
Top of the page Bottom of the page