Bir kısmını çözdüm.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyF7 Then

  DoCmd.RunCommand acCmdFilterByForm

End If

End Sub

Böyle yapınca yazım denetimi gelmedi (galiba tuşa işlev atayınca varsayılanı disable oluyor). Form Filtresine tıklanmış gibi filtre aç moduna geçip değer girmemi bekledi. Buraya kadar tam istediğim gibi. Ama bir türlü filtreyi uygulatamadım. Benim mantığıma göre acCmdToggleFilter ile filtreyi uygulaması lazım ama çalışmadı. Yani aşağıdaki gibi yaptığımda F7 kısmı çalıştı, F8 kısmı çalışmadı.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyF7 Then

  DoCmd.RunCommand acCmdFilterByForm

End If

If KeyCode = vbKeyF8 Then

  DoCmd.RunCommand acCmdToggleFilter

End If

End Sub

Kısaca, artık yapılabildiğine eminim. Yalnızca ikinci adımı nasıl yapabileceğimi çözmeliyim. Umarım bu kodlar size yol gösterebilir.