(VBA) F7 Tuşu ile Form Filtresi (Filtre Aç) moduna geçsin

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.

DoCmd.RunCommand acCmdToggleFilter kodu yerine #3. mesajdaki kodları deneseniz?

çalışmadı

10. mesaja kadar geldik ama, şu örneği bi ekleseniz ?

üzerinde çalıştığım projeme buraya aktaramayacağım veriler eklediğimden, sıfırdan bir örnek oluşturmalıyım. Bu da biraz zaman alacak.

Bu arada şunu da belirteyim. Bir yere kadar F8 tuşu da çalışıyor. Şöyle ki: Biliyorsunuz bir filtreleme yapıp tekrar tüm kayıtları listelediğimizde (yani filtreyi temizlediğimizde), direkt "Filtreyi Değiştir"e tıklarsak en son yaptığımız filtreleme uygulanır. İşte F8 bu şekilde çalışıyor. Yani yaptığım son filtreyi çağırıyor. Ama önce Form Filtresi yapıp sonra F8'e basarsam çalışmıyor. Ufak birşeyi kaçırıyorum ama neyi???

Bunu Denermisin.

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

If KeyCode = vbKeyF7 Then DoCmd.RunCommand acCmdFilterByForm: exit sub

If KeyCode = vbKeyF8 Then DoCmd.RunCommand acCmdToggleFilter:exit sub

End Sub