バーコードリーダーを使用した帳票形式のフィールド入力方法について

質問

• バーコードリーダーを使用した帳票形式のフィールド入力の際、同一列の下のフィールドに移動する方法についてアドバイスをいただきたいです。
• 質問者はバーコードリーダーで管理コードを順次入力したいと考えており、最適な入力方法を知りたいとしています。
• 希望としては、バーコードリーダー入力が終わった後に次の管理コードフィールドに自動的に移動する方法が望ましいです。もしくは、バーコードリーダーで値を入力した後にTABキーもしくはEnterキーを押すと次の管理コードフィールドにカーソルが移動する仕組みを作りたいということです。

回答No.1

30246kiku

Enterキー、Tabキーで移動する方法になりますが、以下でどうなりますか。
管理コードのキークリック時イベントを使います。

Private Sub 管理コード_KeyDown(KeyCode As Integer, Shift As Integer)
　　If ((Shift = 0) And (Not Me.NewRecord)) Then
　　　　Select Case KeyCode
　　　　　　Case vbKeyReturn, vbKeyTab
　　　　　　　　KeyCode = 0
　　　　　　　　With Me.Recordset
　　　　　　　　　　If ((.AbsolutePosition + 1) < .RecordCount) Then
　　　　　　　　　　　　.MoveNext
　　　　　　　　　　　　Me.管理コード.SetFocus
　　　　　　　　　　End If
　　　　　　　　End With
　　　　End Select
　　End If
End Sub

※
　　　　If ((.AbsolutePosition + 1) < .RecordCount) Then
　　　　　　.MoveNext
　　　　　　Me.管理コード.SetFocus
　　　　End If

では、最終行にある時には移動しません。
新規登録行があって、その行に移動して良いのなら、

　　　　If ((.AbsolutePosition + 1) < .RecordCount) Then
　　　　　　.MoveNext
　　　　Else
　　　　　　.AddNew
　　　　End If
　　　　Me.管理コード.SetFocus

になると思います・・・

※
バーコードの入力をどのイベントで拾えるのか、チョットわからないので、
変更時イベントで一気にとれるのなら、
Len(Me.管理コード.Text) > 0 とかの判別で、上記 With 部分を実行しても???

※
レコードが登録されるタイミングは、.MoveNext （ .AddNew ）の箇所になるので、
入力チェック等でエラーがある場合には、エラーが発生すると思いますので、
いろいろ対策をとってみてください。