Barcode Daten in Textfelder einlesen

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen,

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ß

Sascha

Zeit in Feld speichern
#2

Hallo Sascha,

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.

  1. programmiere den Scanner so, dass er nach dem scannen ein ENTER erzeugt.

  2. erstelle ein Feld für den Scan. z.B. BCscan

  3. Ereignis: bei Fokusverlust
    VBA Funktion programmieren, die das Eingabefeld BCscan aufteilt.

Also ein Feld für D02136-00,

Beispiel: Me.Feld_Artikelnummer = Mid(Me.BCscan,1,9)

hth

Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)

#3

Danke, funktioniert super.
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?

Danke im voraus.

Sascha

#4

Hallo,

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?

Erster_Teil = mid(BCscan,1,6)
Zweiter_Teil = mid(BCscan,7,2)
Neuer_String = Erster_Teil & „-“ & Zweiter_Teil

oder Kurzfassung:
Neuer_String = mid(BCscan,1,6) & „-“ & mid(BCscan,7,2)

Grüße
Wolfgang
(Netwolf)

#5

Vielen Dank, hast mir sehr geholfen.
Hat alles super und auf Anhieb funktioniert.

Sascha

#6

Ist es auch möglich, die komplette gescannte Zeile in Felder aufzuteilen?
gescannt:
D02136-000 09.06.2009090609 E

Aufteilung:
D02136-00 09.06.2009 090609

Das wäre super wenn das so funktionieren würde.

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.

Sascha

#7

Hallo,

Ist es auch möglich, die komplette gescannte Zeile in Felder
aufzuteilen?

klar

gescannt:
D02136-000 09.06.2009090609 E

Aufteilung:
D02136-00 09.06.2009 090609

das sieht wie ein Feld aus!?

Das wäre super wenn das so funktionieren würde.

lese meinen Beitrag:
/t/barcode-daten-in-textfelder-einlesen/5331771/4

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

Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)

#8

Hallo wieder,

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…

Sascha

#9

Ok, habe es soweit hinbekommen, die Zeile aufzuteilen.
Mit folgendem Code hat es geklappt:

Me.Artikelnummer = Mid(scan, 1, 6) & „-00“
Me.ProdDat = Mid(scan, 13, 13)
Me.Lot = Mid(scan, 26, 26)

Beim ProdDat allerdings werden im entsprechenden Textfeld vor den Zahlen 3 Leerstellen eingetragen. Wie bekommt man denn die weg?

Sascha

#10

Beim ProdDat allerdings werden im entsprechenden Textfeld vor
den Zahlen 3 Leerstellen eingetragen. Wie bekommt man denn die
weg?

lese die Hilfe zu MID, und merke dir den Syntax
Dann zähle einfach richtig :smile:

Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)