şö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ı.