USB Barcode Scanner

The USB barcode scanner acts like a keyboard. The characters come in one at a time, but fast. Put the code into the _KeyPress or _KeyDown event.

Try this:

'Put focus on txtBarcode ...
Private Sub txtBarcode_KeyPress(KeyAscii As Integer)
If KeyAscii = &H0D then
....Process bar code here
End If
End Sub

Hope this helps,
Phil

Thanks a lot for ur input.

I tried to put in the code you had suggested but no progress..the first character of the barcode comes on the screen ,then a message pops up saying the action will reset your project givinig options of Ok and cancel and then the rest of the barcode value gets dumped on the screen.

For a stop gap arrangement I have modified the code like:

I have declared the BARCODE as global variable

Private Sub txtbarcode_Change()

BARCODE = txtbarcode.Text

End Sub

I have then used a function to further process the barcode. A cmd button is used to actuate that function. Hence the operations for the operator increases.

You could try to put the code in an array if every time the event gets launched

I am not exactly sure what you mean

Is it that only the first character changes?

then it should be

BARCODE = BARCODE & txtbarcode.Text

i hope this is helpfull

I have put a timer to check whether the any string comes in that particular field. Therefore whenever the string comes a function gets activated and decode of the barcode happens.

So finally the problem is solved. Thanks to all those who contributed.