Access VBAでキーが離されたことを調べるには、KeyUpイベントで行います。
調査方法は、キーが押された場合(KeyDownイベント)と同様です。
ShiftキーはacShiftMaskとの論理積、CtrlキーはacCtrlMaskとの論理積、AltキーはacAltMaskとの論理積で調べます。
キーボードイベントは下記の順で発生します。
KeyDown → KeyPress → KeyUp
■ サンプルソフト実行画面
・ Ctrlキーを開放した場合
・ Shiftキーを開放した場合
・ Altを開放した場合
■ Access VBA 実行コード
Option Compare Database
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
'Shiftキーが離されたかどうか
If (Shift And acShiftMask) > 0 Then
tkey = tkey & "[Shift]"
End If
'Ctrlキーが離されたかどうか
If (Shift And acCtrlMask) > 0 Then
tkey = tkey & "[Ctrl]"
End If
'Altキーが離されたかどうか
If (Shift And acAltMask) > 0 Then
tkey = tkey & "[Alt]"
End If
ラベル0.Caption = tkey
End Sub