Hallo Zusammen,
habe vor kurzen mit hilfe des Forums eine Datensatzauswahl über ein Listenfeld umgesetzt.
Code:
Private Sub lstPruefenGroup_DblClick(Cancel As Integer)
Me.Recordset.FindFirst "InventarNr = '" & Me!lstPruefenGroup & "'"
End Sub
Nun hat unser neuer Gerätewart noch einen Wunsch drauf gesetzt.
Er möchte die Registrierung unserer Gegenstände auf Barcode (CODE128) umstellen. Einen Barcode-Drucker der die "InventarNr" als Barcode ausdruckt haben wir für Testzwecke bereits.
Nun wäre der Wunsch, das die Auswahl eines Datensatzes wie oben durch Doppelklick, auch zusätzlich mit einem Laserscanner durch scannen des Barcode-Labels möglich ist.
Frage wäre jetzt ob zu dem Barcodescanner noch zusätzliche Access-Software nötig ist? Oder ob der obige Code, event. abgeändert, als Ereignisprozedur verwendet werden kann?
Was passendes habe ich leider noch nicht im Forum gefunden.
Vielleicht hätte wieder mal jemand einen Tipp.
Gruss
mad
Hallo,
statt dem Listenfeld benötigst Du ein Textfeld, in das der Barcodeleser den Barcodewert ausgeben kann.
Beim Code128 ist zu beachten, dass der mit einer zusätzlichen Prüfziffer betrieben werden muss( soll) . Wenn der Barcode die Prüfziffer nicht automatisch behandelt und umcodiert, muss das von Dir erledigt werden.
Wenn der eingelesene (bzw. decodierte) Wert im Textfeld einer Inventarnummer entspricht, kann der gleiche Suchcode (an das Textfeld angepasst) verwendet werden.
@mad
Ergänzend; - achte darauf bzw. richte den Scanner so ein, dass er ein CR am Ende
sendet. Dann kannst du "Textfeld_BeforeUpdate" prüfen ob der Code korrekt ist
(PZ) und "Textfeld_AfterUpdate" den DS finden; - wie Franz bereits anmerkte mit
der gleichen Codezeile wie beim Listfeld.
gruss ekkehard
Hallo,
hat leider etwas gedauert, da mich mein Kollege mit dem Barcode-Scanner versetzt hat.
Habe nu folgenden Code für das Textfeld:
Private Sub txtBarcodeArtikel_AfterUpdate()
Me.Recordset.FindFirst "InventarNr = '" & Me!txtBarcodeArtikel & "'"
Me.txtBarcodeArtikel = Null
End Sub
Nun hätte ich noch gerne, das der Curser nach dem scannen und auf "Null" setzen in Textfeld "txtBarcodeArtikel" (Position 0) bleibt.
@Beaker s.a.,
das mit dem "BeforeUpdate" habe ich nicht verstanden. Bisher habe ich aber auch ohne damit kein Problem festgestellt. Kann es vielleicht daran liegen das ich im Barcode bereits den Steuercode "CR" enthalten habe?
Gruss
mad
Hallo,
Ekkehard meint damit, dass ein Cr (Return) erforderlich ist, um das Textfeld zu verlassen und damit das Ereignis auszulösen. Bei Dir ist das der Fall und damit kein Problem.
Zitat... in Textfeld "txtBarcodeArtikel" (Position 0) bleibt.
Was hindert Dich daran, den Fokus (wieder) auf das Textfeld zu setzen?
.
.
Me.txtBarcodeArtikel = Null
Me.txtBarcodeArtikel.Setfocus
End Sub.
Danke,
funktioniert.
Gruss
mad