ich will eine Datenbank erstellen, in die Daten eines Barcode-Scanners eingelesen werden sollen.
Die Barcode-Daten enthalten Artikelnummer, Produktionsdatum & Chargennummer in folgender Form:
D02136-000 09.06.2009090609 E
Die Daten möchte ich gerne automatisch in verchiedene Textfelder per scan eintragen. Also ein Feld für D02136-00, ein Feld für 09.06.2009 und ein Feld für 090609. Wie kann ich so etwas realisieren? Arbeite mit XP und Access 2003.
Wäre super, wenn von euch jemand eine Idee hat.
Gruß
ich will eine Datenbank erstellen, in die Daten eines
Barcode-Scanners eingelesen werden sollen.
Die Barcode-Daten enthalten Artikelnummer, Produktionsdatum &
Chargennummer in folgender Form:
D02136-000 09.06.2009090609 E
Die Daten möchte ich gerne automatisch in verchiedene
Textfelder per scan eintragen.
programmiere den Scanner so, dass er nach dem scannen ein ENTER erzeugt.
erstelle ein Feld für den Scan. z.B. BCscan
Ereignis: bei Fokusverlust
VBA Funktion programmieren, die das Eingabefeld BCscan aufteilt.
Habe noch eine andere Konstellation, die in das gleiche Format
soll:
38147200U00800008092752980081 soll nach dem scan 381472-00
sein.
Kannst Du mir den VB-Code dafür auch verraten?
und ersetze Erster_Teil mit Me.Erstesfeld
und ersetze Zweiter_Teil mit Me.Zweitesfeld
usw.
Es gibt aber wie gesagt zwei verschiedene Scan-Formate
(Barcode bzw. PDF-Code)Das oben ist das erste Format.
Das zweite Format in dem gescannt wird sie so aus
38117200 U00 8000 0806 2531590434
und soll so aufgeteilt werden:
381172-00 08.06 253159-434
Wäre super wenn das so klappen würde.
dann Frage dich: was ist anders? Woran kann man erkennen, um welchen Code es sich handelt?
Nutzte die Antwort dafür, eine Bedingung zu programmieren, die zwischen den unterschiedlichen Codes umschaltet, um diese entsprechend zu speichern.
Tipp: if … else…end if
mit folgendem Code wird die Artikelnummer, wie es sein soll, in einem Feld separiert:
Erster_Teil = mid(BCscan,1,6)
Mit der zweiten Zeile habe ich ein Problem, es schreibt in das dafür vorgesehene Feld nur: -0
Das Datum wird nicht angezeigt.
If, else, end if usw. ist klar…
