| |
ジュンです。 教えて下さい。
フォームのコマンドボタンを設定してクリックする方法で上手く動作している処理を マウスを使わずに ファンクションキーで同じ処理をしたいのですが上手くできません。
現在のコードと設定は以下の通りです。
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'---------ファンクションキーの設定----------------
Select Case KeyCode
Case vbKeyF1: cmd新規_Click
Case vbKeyF2: cmd全表示_Click
Case vbKeyF3: cmd削除_Click
' Case vbKeyF4:
Case vbKeyF5: cmdクリア_Click
Case vbKeyF6: cmd行クリア_Click
' Case vbKeyF7:
' Case vbKeyF8:
Case vbKeyF9: cmd登録_Click
Case vbKeyF10: cmd伝票_Click
' Case vbKeyF11: cmd印刷_Click
Case vbKeyF12: cmd終了_Click
Case Else
MsgBox "無効なフンクションキーです", vbOK, "キー操作"
End Select
KeyCode = 0
End Sub
Private Sub cmd新規_Click()
sw新規 = True
Me!出庫No..TabStop = False
swERR = False
Ret = Edit_Clear(1) ＜−画面をクリアして、カーソルを日付にセット
End Sub
この状態で実行するとＦ５キーは実行しますが 日付を入力しようとすると上記のメッセージ（無効なフンクションキーです）が表示されキー入力が出来なくなりました。
KeyCode = 0 このコードをコメントにするとファンクションキーが動作しません。よい解決策をお教え下さい。お願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
