Passing Scanned Barcode to Query as Selection Criteria

[PatLeeBauer]

Scanning barcode into control field on form then running query (form stays open) using that field as selection criteria in a query to open just those records. I'm getting no results. When I type in the anything for the barcode when setting the item up, then type those same numbers in the form to query, it works fine. Made sure codes 39 & 128 are turned on for the scanner. What am I missing? First time using barcodes so my knowledge pool is pretty shallow.

[pbaldy]

Are those codes either a Tab or Enter? The data has to be committed before a query will see the contents of the textbox.

[Gicu]

Maybe the form is still "dirty" after the scan, try to add Me.Dirty=False before running the query.

Cheers,

[PatLeeBauer]

They're set up as tabs. The choices the scanner offers (Qr codes I scan) are; tab; LF+CR; CR; NONE;CR+CR;Trigger Mode;Continue Scan Mode; Auto Sense Mode. There is also a Factory Default to set back to. I selected Tab as there was no option for Enter. Now when I scan the barcode, it does automatically move the cursor to the next field. Unfortunately, it didn"t fix my issue. I'm still getting no results.

The barcode field in my items table is set as long text. The control on my form called barcodepass (which is what is passed to the query criteria) did not have long text option, so its set to whatever the default is. By action, it appears that although the string of characters scanned in both the barcode and barcodepass fields are identical, they're not matching up. I've checked and neither field has any spaces after the string. I'm just at a loss. Any other thought?

[Gicu]

How you initiate the query?

[PatLeeBauer]

I used the After Update, and opened the window where you see code (I'm not a programmer), I added your statement so it looks like this:

Option Compare Database


Private Sub BarcodePass_AfterUpdate()


Me.Dirty = False


End Sub


Private Sub Form_Load()


End Sub

When I run it, I'm still getting no matches. Did I do this wrong?

[Gicu]

You mention a query, do you run that manually? I would have expected something like this:

Private Sub BarcodePass_AfterUpdate()
Me.Dirty = False
Msgbox "Form saved!"
Docmd.OpenQuery "qryYourQueryName"
End Sub

I added the msgbox so you could tell if the code ran.
Can you post the two sets of characters you are trying (scanned vs manually typed)? If you compare the two in a query what do you get (Forms!frmYourForm!Barcode=Forms!frmYourForm!Barco dePass)?

Cheers,

[pbaldy]

You might also scan into an instance of Notepad and see if there's anything odd there. I'm wondering if there's a tab character in there instead of it tabbing out of the textbox (or in addition to).