sayın sledgeab,

şöyle bir kodla denedim:

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



 If KeyCode = vbKeyF7 Then

  

     DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes

     Application.CommandBars.FindControl(ID:=497).accDoDefaultAction

     

 End If

 

End Sub

F7'ye bastığımda Parametre Değerini Gir İletişim kutusu açıldı ve Lookup_Sinif.SinifAdi değerini istedi. Formda böyle bir alan yok. İptale tıklarsam yine de "yazım denetimi tamamlandı." mesajı geldi. Herhangi bir değer girersem de Filtre Uygulanmış moduna geçiyor ama ekranda bir değişiklik olmuyor. Ayrıca yine "yazım denetimi tamamlandı." mesajı geliyor. Yani olmadı.