| |
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 | |
|