tabs - フォームへのアクセス - 行ではなく列 (最初の列ではない) をタブで移動し、0 を超えるフィールドのみをタブで移動します

Question

アクセスでタブ インデックスとタブ ストップ オプションを使用しましたが、行ではなく列をタブ移動したいと考えています。

フォーム内に 3 つの列を持つテーブルがあり、3 番目の列には整数が含まれており、タブで移動したい唯一の列です。また、列内のゼロではないフィールドのみをタブで移動したいと思います。

現在、タブを押すと、フォーム内のテーブルの各行の各フィールドを通過します。

アドバイスをいただければ幸いです。

Answer 1

キーをキャプチャできます。以下はメモの組み合わせで構成されています。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If (Shift And acShiftMask) > 0 Then
    If KeyCode = 9 Then
        KeyCode = 0
        If Not Me.Recordset.BOF Then
            Me.Recordset.MovePrevious
        End If
    End If
End If

Select Case KeyCode
    Case 38
        KeyCode = 0
        If Not Me.Recordset.BOF Then
            Me.Recordset.MovePrevious
        End If
    ''Arrow down or tab
    Case 40, 9
        KeyCode = 0
        If Not Me.Recordset.EOF Then
            Me.Recordset.MoveNext
        End If
End Select
End Sub

KeyPreviewをYesに設定する必要があります。タブのコードは9です。