Userform & scanner, won't go to the next field

[arnelgp]

for Access user, you can add Code to the Change Event and Keypress Event of your barCode textbox:

Option Compare Database
Option Explicit


Dim tfKeyed As Boolean


Private Sub txtBarcode_Change()
Dim thisTab As Integer
Dim ctl As Control
If Not tfKeyed Then
    thisTab = Me.txtBarCode.TabIndex
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Or TypeOf ctl Is ListBox Then
            If ctl.TabIndex = thisTab + 1 Then
                ctl.SetFocus
                Exit For
            End If
        End If
    Next
End If
tfKeyed = False
End Sub

Private Sub txtBarcode_KeyPress(KeyAscii As Integer)
tfKeyed = True
End Sub