Hallo zusammen.
Ich habe eine Datenbank wo Auftragsnummern gescannt werden.
Die Aufträge werden vor mit einer import Datei importiert um dann später Lieferscheine zu erstellen.
Wenn die Auftragsnummer eingescannt wurde, wird über ein Unterfomular die dazugehörigen Positionen gezogen. Dann über eine Aktualisierungsabfrage ein Kennzeichen in allen Positionen gesetzt dass dieser Auftrag bearbeitet ist.
Wie kann ich nun abfangen, dass wenn eine Nummer gescannt wird, wo noch nicht in der Datenbank existiert eine Meldung erscheint ?
Wenn es also keine dazugehörigen Positionen gibt?
Die Felder wo ich die Auftragsnummer einscann sind ungebundene Felder und werden nicht in der DAtenbank gespeichert.
Danke schon mal
Andrea
Hallo,
vielleicht so:
Sub txtEinscannfeld_Afterupdate()
If Dcount("*","tblAuftragspositionen","Auftragsnummer = '" & Me!txtEinscannfeld & "'") =0 then
Msgbox "Diese Auftragsnummer gibt es nicht"
Me!txtEinscannfeld.Setfocus
End If
End Sub
dabei ist das Tabellenfeld "Auftragsnummer" vom Datentyp TEXT angenommen.
Danke das hat geklappt.
Gruß Andrea