VBA Bar Coding Question

Hello everyone - I'm using a bar code scanner to read data. When I pull the trigger on the scanner, the information is read/transferred into a text box on a form. Ideally I would like the data to go into the textbox and automatically load another form once the data is read. The original routine I had utilized a textbox_change() routine, but that didn't seem to work - as soon as the first character was read an error was generated (the data I'm inputting is a string of numbers - example 123456-00, but when pressing the trigger only the 1 would come through, then error is generated). I tried putting a pause in there so that the whole string could be read, but then nothing would happen. So then I changed to a textbox_afterupdate() routine. This initially works, but for some reason it only works 1 time, then I'm forced to close that form in order to have my routine continue.

The code I was using with the textbox_change() routine is below:

Private Sub txtJobNumber_Change()
     Call OpenWorkbook
End Sub

The OpenWorkbook routine will close the current form, then open another form - I know this code works the way I want it to if I enter the number string manually then hit enter. But it doesn't work in conjunction with the bar code scanner.

The code I'm currently using with the textbox_afterupdate() routine is below:

Private Sub txtJobNumber_AfterUpdate()
   If txtJobNumber.Text <> "" Then
        Call cmdScanJobEnter_Enter
    End If

End Sub

I've added a command button to the form which when pressed calls the OpenWorkbook routine. As I said, this code works as desired, however it will only work once, then I'm forced to close the form after the number string is read from the barcode scanner in order to have my process continue.

Does anyone have any experience using bar code scanners with VBA, or has anyone had similar issues? How have you been able to overcome this? Any suggestions would be appreciated.

Thanks in advance!

Hi jer10671

Unfortunately not able to assist as your post does not comply with the forum rules...Please take some time to read them..

2. Programming code must be enclosed in code tags to improve readability. (A, Z)

 Your Code

(or use the # button)

So, do the following:
Edit your post, highlight your code and click the [#] button at the top of the post window.

This works for me...

Option Explicit

Private Sub txtJobNumber_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Len(txtJobNumber.Text) <> 0 Then
    Call cmdScanJobEnter_Enter
    txtJobNumber = ""
    Cancel = True
End If
txtJobNumber.SetFocus
End Sub

Thank you - no luck though. Still running into the same issue as my current code.

Basically what I'm trying to achieve is when the textbox gets populated, it triggers an event. Not having any luck though.

I assume that this part...is the event?

Call cmdScanJobEnter_Enter

What is the code within ...Perhaps you should upload as ample file...

glad you got it figured...tx for rep...if your question is answered, please mark thread as solved...