|
Hallo zusammen,
wir verwenden für unser Lagerwirtschaftssystem wurde in Access 2002 eine kleine Datenbank aufgebaut.
Die vom Lieferanten erhalten Artikel sind mittels Barcode EAN 39 auf dem Ettiket beschriftet.
Die Artikelnummer wurde dem Sting von Etikett *8 Zeichen Leerzeichen 4 Ziffern*
Beispiel *1WSTR309 5296* wird mit nachstehende Prozedur ausgelesen.
Private Sub Barcode_AfterUpdate()
On Error GoTo Fehler_nächster
Me.Artikel_Nr = Left(Barcode, InStr(1, Barcode, " ") - 1)
Me.Ausgabemenge = Mid(Barcode, InStr(1, Barcode, " ") + 1)
Me.Chargen_Nr.Visible = True
Chargen_Nr.SetFocus
exit_Barcode:
Exit Sub
Diese Prozedur wurde mir vor 15 Jahren netterweise von einem Forumsmietglied erstellt. Wofür ich heute noch sehr dankbar bin.
Leider wurder der String vom Lieferant umgestellt. Der String enthält nun verschiedene Ziffernlänge Beispiel:
0012407986001234678TG0012.
Die benötigte Artikelnummer 10 Ziffern beginnt immer nach den ersten 10 Ziffern. Nach Abschluss der Prozedur In diesem Beispiel: "0012345678"
Es wäre nett wenn mir wieder ein Forumsmitglied die Prozedur entsprechend anpassen könnte.
Danke.
|