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