Accessでタブ移動順0の場所でSHIFTとTABの同時押しを無効化する方法について

先頭項目でSHIFT+TABを押下すると、最後の項目に飛びますが、この動作を抑止したいと思います。
押すキーが一つだけなら書き方は分かるのですが、
複数キーを押した場合の書き方が分かりませんでした。

下記では当然ですが、駄目でした。
If KeyCode = vbKeyShift And KeyCode = vbKeyTab Then
KeyCode = 0
End If

その為、何かアドバイスをいただける方がいらっしゃいましたら、
どうかよろしくお願いします。

No.1 ベストアンサー 回答者： bonaron 回答日時： 2008/10/16 08:53

引数 Shift も判定します。

Private Sub テキスト0_KeyDown(KeyCode As Integer, Shift As Integer)
　　If KeyCode = vbKeyTab Then
　　　　If Shift And vbKeyShift > 0 Then
　　　　　　KeyCode = 0
　　　　End If
　　End If
End Sub

この回答へのお礼

ありがとうございます。
意図した動作をいたしました。
また考え方についてもご教示いただきありがとうございます。

お礼日時：2008/10/16 20:16