Barcode

Hallo ,

ich habe einen Barcode mit folgendem Aufbau:

Teil1+Teil2, dabei ist Teil1 die Artikelnummer und Teil2 eine fortlaufende Zahl.

Nun soll der Barcode in einem Formularso eingescannt werden, das Teil1 im Feld Artikelnummer und Teil2 im Feld Zahl eingetragen wird.

Hat jemand eine Idee???

Gruß

Till

Hallo ,

ich habe einen Barcode mit folgendem Aufbau:

Teil1+Teil2, dabei ist Teil1 die Artikelnummer und Teil2 eine
fortlaufende Zahl.

Nun soll der Barcode in einem Formularso eingescannt werden,
das Teil1 im Feld Artikelnummer und Teil2 im Feld Zahl
eingetragen wird.

Hat jemand eine Idee???

Hi Till,
ich habe mal ein ähnliches Problem gehabt und das auf simple Weise gelöst:
Du hast ein Feld mit dem ganzen Scan. Die Artikelnummer ist ja sicher immer gleich lang. Also machst Du zwei weitere Felder wo Du den String teilweise übernimmst (im Excel wäre das: =LINKS(A1;7) bzw. =TEIL(A1;7;5). Im Access weiss ich es im Augenblick nicht genau, aber es funktioniert ähnlich).
Gruss Beat

HAllo,

ich habe einen Barcode mit folgendem Aufbau:

Teil1+Teil2, dabei ist Teil1 die Artikelnummer und Teil2 eine
fortlaufende Zahl.

und wie sieht das genau(!) aus? Wo und wie ist die Trennstelle im Text definiert?

Nun soll der Barcode in einem Formularso eingescannt werden,
das Teil1 im Feld Artikelnummer und Teil2 im Feld Zahl
eingetragen wird.

zunächst muß der Barcode (die Zeichen) ganz normal in ein ungebundenes Formularfeld eingescannt werden. Der Barcodeleser liefert idealerweise einen abschließenden Return mit, so daß der Fokus auf ein anderes Feld/Steuerelement im Formular automatisch nach dem Einscannen gesetzt wird.

Im Lost-Focus-Ereignis des Einscan-Feldes kommt in etwa solcher Code:

Sub ScanInp_LostFocus()
Me!ArtikelNummer=Left(Me!ScanInp,6)
Me!LfdNr=Mid(Me!ScanInp,7)
End Sub

Der Code geht davon aus, daß die Artikelnummer aus den ersten 6 eingelesenen Zeichen besteht und der Rest die Lauf. Nr bedeutet.
Weiterhin klappt das nur bei einem nicht verschlüsseltem Code, der keine Prüfziffern oder Ähnliches aufweist. Sonst müßte erst eine Decodierung stattfinden.

Hallo,

danke erst mal.

Der Barcode setzt sich aus einer Artikelnummer unterschiedlicher Länge und einer fortlaufenden Zahl zusammen. Das Trennzeichen zwischen beiden Werten ist ein Plus-Zeichen.

Hallo,

Der Barcode setzt sich aus einer Artikelnummer
unterschiedlicher Länge und einer fortlaufenden Zahl
zusammen. Das Trennzeichen zwischen beiden Werten ist ein
Plus-Zeichen.

Dann halt so:
.
.
.
Dim Pluspos As Long
Pluspos = InStr(Me!ScanInp, „+“)
Me!Artikelnummer = Left(Me!ScanInp, Pluspos - 1)
Me!LfdNr = Mid(Me!ScanInp, Pluspos + 1)
.
.
Gruß
Franz

Hallo Franz,

Vielen Dank. Es hat wunderbar funktioniert.

Gruß

Till