このコードを、データシートビューで実行するにはどしたらいいですか?
データシートビューでは、ボタンを設置できないので、
下記のコードと、同等の効果をもたらすようなイベントはありますか?
このコードを実行するのは、月に1回だけなので、レコード読み込み時とかは、利用できないです。
お知恵を、ご教示くださいませ
Private Sub cmdFilterButton_Click()
If Me.FilterOn = False Then
Me.Filter = "終了チェック = False"
Me.FilterOn = True
End If
End Sub
データシートビューでフォームを開いているときに、ユーザーが任意のタイミングで実行するのでしょうか。
ボタンは配置できないので、特定のキー操作(ショートカットキー)で実行するようにすればどうでしょう。
フォームの「キーボードイベント取得」プロパティを「はい」にしておいて、「キークリック時」のイベントプロシージャに下記のように記述すればいいでしょう。
下記はフォームがアクティブの時にF1キーをの押したときに実行する例です。
ありがとうございました。
勉強になりました
データシートフォームとは別に非連結フォームを新規作成する。
1 の非連結フォームの詳細セクション上にサブフォームコントロールを挿入する。
2 のサブフォームコントロールのソースオブジェクトをデータシートフォームとする。つまり、非連結フォームをメインフォーム、データシートフォームをサブフォームとする。
メインフォームの詳細セクション上にコマンドボタンを挿入する。
4 のコマンドボタンの[クリック時]イベントの発生時に、サブフォームのフィルターを操作するマクロまたはプロシージャを実行するようにする。
といった方法もあるでしょう。
sk様
回答ありがとうございました。
参考にさせていただきます。