Microsoft Access 掲示板

データシートビューでのVBA実行について / 1

4 コメント
views
4 フォロー
1

データシートビューでは、ボタンを設置できないので、
下記のコードと、同等の効果をもたらすようなイベントはありますか?

データシートビューでフォームを開いているときに、ユーザーが任意のタイミングで実行するのでしょうか。
ボタンは配置できないので、特定のキー操作(ショートカットキー)で実行するようにすればどうでしょう。

フォームの「キーボードイベント取得」プロパティを「はい」にしておいて、「キークリック時」のイベントプロシージャに下記のように記述すればいいでしょう。

下記はフォームがアクティブの時にF1キーをの押したときに実行する例です。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF1 Then
        KeyCode = 0 'キー入力を無効化
        If Me.FilterOn = False Then
            Me.Filter = "終了チェック = False"
            Me.FilterOn = True
        End If
    End If
End Sub
通報 ...