帳票形式のフィールド入力の時、ＴＡＢオーダーで同一列の下のフィールドに

帳票形式のフィールド入力の時、ＴＡＢオーダーで同一列の下のフィールドに移動したい

使用環境：ACCESS2003

↓のように帳票形式で表示しているテーブル


商品ID　　　　納入日　　　　仕入NO　　　管理コード
13　　　　20091205　　　　　　2569
14　　　　20100326　　　　　　6824
15　　　　20100422　　　　　　2548
16　　　　20100430　　　　　　3654

バーコードリーダーで管理コードを
順次入力したいのですが

理想はバーコードリーダー入力が終われば次の管理コードフィールドに
カーソルが移動してくれるのいいのですが、

それが出来ない場合は、バーコードリーダーで値を入力した後、
TABキーやEnterを押すと
次の管理コードフィールドにカーソールが移動するように出来れば
大変嬉しいのですが、


どなたかよきアドバイスをいただけますようお願い申し上げます。

No.2 ベストアンサー 回答者： DexMachina 回答日時： 2010/05/06 10:28

> ↓のように帳票形式で表示しているテーブル

フォームの帳票形式を使用して、テーブルのデータを表示
されている、ということでよろしいでしょうか。

そうであれば、

> TABキーやEnterを押すと次の管理コードフィールドに
> カーソールが移動する

については、フォームの(コントロールの)設定で対応可能です。
(なお、バーコードリーダーは使用したことがないため、No.1の方と
　同様、バーコードの読み込みを拾う方法はわかりません(汗))

1)フォームをデザインビューで開く
2)適当なところをダブルクリックするなどして、プロパティシートを
　開いておく
3)EnterキーやTabキーで移動したくないコントロール(テキスト
　ボックス)を選択
4)プロパティシートの『その他』タブを選択し、『タブストップ』の
　項目を「いいえ」に設定
5)「3～4」の操作を必要なだけ繰り返したら、フォームを保存
　して閉じる

・・・以上で、最初の入力時に『管理コード』に移動しておけば、
後はEnter/Tabで次のレコードの管理コードにカーソルが移動
するようになります。
(なお、Shift+Tabの同時押しで前のレコードの管理コードに、
また、F6キーでヘッダ・フッタのコントロールに、それぞれ移動
できます(→移動可能なコントロールがある場合)。)

なお、「3～4」を繰り返し、と書きましたが、デザインビューで
何もコントロールがないところをクリック＆ドラッグしたときに表示
される四角形で複数のコントロールを囲むと、囲んだコントロール
が一括で選択されます。
また、複数のコントロールを選択する別の方法として、Shiftキー
を押したまま、対象コントロールを順次クリックしていく、という
方法もあります(間違えて選択した場合は、Shiftキーを押した
まま再度クリックすれば解除が可能)。
この状態にしてやれば、「4」の操作は複数コントロールで一括
で指定できますので、参考まで。
(但し、種類の異なるコントロールを同時選択すると、必要な
　項目がプロパティシートに表示されなくなる場合があります
　ので、ご注意下さい：
　今回の例では、ラベルなど、タブ移動の対象外のコントロール
　が同時に選択されてしまうと、『その他』タブに『タブストップ』の
　項目が表示されなくなってしまいます)

※バーコード読み込み時は『管理コード』のみの移動にしたいが、
　通常の入力時は商品IDなども移動可能でないと困る、という
　場合は、マクロ/VBAを使用して設定を切り替えてやることに
　なります。
　(例えばフォーム フッタにオプショングループを設置し、その更新
　 後イベントで、商品ID等の「TabStop」プロパティをTrue/False
　 に切替、と)

No.1 回答者： 30246kiku 回答日時： 2010/05/02 23:39

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 ）の箇所になるので、
入力チェック等でエラーがある場合には、エラーが発生すると思いますので、
いろいろ対策をとってみてください。