組み込みの検索ダイアログを無効にする方法

Question

検索機能を完全に無効にすることはできますか？

私が無効にできた唯一の検索機能はリボンにありました。しかし、私はサブフォームを使用しているので、ユーザーはナビゲーションバーの検索ボックスを使用することができ、Ctrl + Fを押すと検索を開始できます。

データシートには、60.000行と52個の列があります。私が検索を開始するとき、それは永遠にかかります。

私は、ナビゲーションバーを無効にすることができますが、どのように私は+ FCtrlキーで検索ダイアログを開いてからユーザーを防ぐことができますか？

Answer 1

KeyPreviewプロパティをYesに設定すると、押されたすべてのキーがMsアクセスによって処理される前にイベントに送信されます。

あなたはCTRL +Fキーの組み合わせをキャッチし、（下の私の例のように）それを自分で処理する場合は、検索ダイアログを開くことができません。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
    Select Case KeyCode 
    Case vbKeyF 
     If (Shift And CTRL_MASK) Then 
      MsgBox "No search allowed!", vbCritical 
     End If 
    End Select 
End Sub 

Answer 2

あなたはすべての形態のための検索機能を無効にしたい場合は、オートキーと呼ばれるマクロにサブマクロを挿入して、トラップCTRL + F（検索）および^ Fと^とCTRL + H（検索と置換） Hサブマクロの名前。アクションとして、単純なビープ音を定義します。フィルタリングも避けたい場合は、フォームのプロパティShortcut Menu = Noを設定することを忘れないでください。