Access ： Enter・ESCキーや英数字キーが押されたことを取得

Access VBAでBS、Enter、TAB、ESC、英数字キーが押されたたことを調べるには、KeyPressイベントで行います。

このKeyPressイベントは、テキストボックス、チェックボックスなどのコントロールでも使用できます。

[構文]
KeyPress(KeyAscii)
KeyAscii にはANSI キー コードが入ります。

■ サンプルソフト実行画面

・ BS TAB Enter ESC 1234567890asdfghjklQWERTYUIOP + - / * キーを順に入力した結果です。

■ Access VBA 実行コード

Option Compare Database

Private scap As String

Private Sub Form_KeyPress(KeyAscii As Integer)
    Dim skey As String
    '入力されたキーを調査
    Select Case KeyAscii
        Case &H8:      skey = "BS"
        Case &H9:      skey = "TAB"
        Case &HD:      skey = "Enter"
        Case &H1B:      skey = "ESC"
        Case Else
                skey = Chr(KeyAscii)
    End Select
    scap = scap & " " & skey
    'キー表示
    ラベル0.Caption = scap
End Sub