Skip to main content

AccessTr.neT


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

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

Çözüldü #1
Selamlar,
Access Formunda Form Filtesi'ne tıkladığımızda Access bizden herhangi bir alana değer girmemizi bekler. Değeri girdikten sonra Filtreyi Değiştir'e tıkladığımızda istediğimiz kaydın bilgileri görüntülenir.

İşte ben bunu Vba veya makro ile yapmak istiyorum. Daha da kötüsü F7'ye basılınca Form Filtesine tıklanmış gibi olsun (F7'de Yazım Denetimi çalışmasın), F8'e basılınca da Filtreyi Değiştir'e tıklanmış gibi olsun istiyorum.

Form özelliklerinde Tuş Önizleme=Evet olarak ayarlanmış durumda.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF7 Then

End If
End Sub

Bu kodda if blok'una ne yazdıysam olmadı, hep yazım denetimi çalıştı.

NOT: Biraz daha ileri gidersek, Access fonsiyon tuşlarını iptal etmek istiyorum. Benim projem Access 2007 formatında. Herhangi bir Access dosyasında denenebileceğini düşündüğümden dolayı örnek eklemedim. Eğer istenirse bir örnek oluşturup eklerim.



Cevapla
Çözüldü #2
Ben düğmenin tıklandığında olayına yazdım. Siz istediğiniz yerde kullanabilirsiniz.
Private Sub Komut0_Click()
SendKeys "%{F11}"
End Sub
Cevapla
Çözüldü #3
 DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(ID:=497).accDoDefaultAction
kodu Filtreyi Açar,
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(ID:=605).accDoDefaultAction
kodu filtreyi iptal eder
Cevapla
Çözüldü #4
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ı.

Son Düzenleme: 10/12/2011, 20:32, Düzenleyen: WiniFred.
Cevapla
Çözüldü #5
Parametre değeri olayını (örnek olmadığı için) bilemem. ancak f7 yazım denetimini çalıştırıyor, bunun iptal edilme olayı var mı bilmiyorum? farklı bir f tuşunu atayın bence.
Cevapla
Çözüldü #6
Teşekkür ederim Sayın sledgeab.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task