Access2000で画面入力のプログラム

質問

Access2000で画面入力のプログラムをフォームを使って作りました。[F1]～[F12]のキーを押したら、それに対応した画面上のボタン（トグルボタン）が連動して押されるようにしました。動作としては完璧に動くのですが、[F1]を押した時に同時にヘルプが起動してしまいます。この機能を殺すにはフォームの「キークリック時」のイベントで「KeyCode = 0」という構文を入れればいいのですが、今度はキー入力がすべて無視されてしまいテキストボックスに文字を入れることができなくなってしまいます。何かいい解決方法はないもんでしょうか。念のため以下にそのモジュールを添付しておきます。イベントはフォームの「キークリック時」イベントで、「Tbt_FXX」というのが12個並んだトグルボタンのコントロール名です。よろしくお願いしますです。

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

Select Case KeyCode
Case vbKeyF1
Me![Tbt_F01] = True - Me![Tbt_F01]
Case vbKeyF2
Me![Tbt_F02] = True - Me![Tbt_F02]
Case vbKeyF3
Me![Tbt_F03] = True - Me![Tbt_F03]
Case vbKeyF4
Me![Tbt_F04] = True - Me![Tbt_F04]
Case vbKeyF5
Me![Tbt_F05] = True - Me![Tbt_F05]
Case vbKeyF6
Me![Tbt_F06] = True - Me![Tbt_F06]
Case vbKeyF7
Me![Tbt_F07] = True - Me![Tbt_F07]
Case vbKeyF8
Me![Tbt_F08] = True - Me![Tbt_F08]
Case vbKeyF9
Me![Tbt_F09] = True - Me![Tbt_F09]
Case vbKeyF10
Me![Tbt_F10] = True - Me![Tbt_F10]
Case vbKeyF11
Me![Tbt_F11] = True - Me![Tbt_F11]
Case vbKeyF12
Me![Tbt_F12] = True - Me![Tbt_F12]
End Select

End Sub

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

KeyCodeが[F1]キーのコードの時だけ0にすればいいのでは？

Select Case KeyCode
Case vbKeyF1
KeyCode = 0
Me![Tbt_F01] = True - Me![Tbt_F01]
Case vbKeyF2
Me![Tbt_F02] = True - Me![Tbt_F02]
以下省略