(VBA) F7 Tuşu ile Form Filtresi (Filtre Aç) moduna geçsin
Tarih
10/12/2011 13:52
Konu Sahibi
WiniFred
Yorumlar
15
Okunma
4059
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



WiniFred
Aktif Üye
Kullanici Avatari
Aktif Üye
121
25/09/2011
11
Zonguldak
-
28/11/2016,21:49
Çözüldü 
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.

Visual Basic Code
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


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
07/12/2016,23:51
Çözüldü 
Ben düğmenin tıklandığında olayına yazdım. Siz istediğiniz yerde kullanabilirsiniz.

Visual Basic Code
Private Sub Komut0_Click()
SendKeys "%{F11}"
End Sub

Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.043
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,03:35
Çözüldü 

Visual Basic Code
 DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
 Application.CommandBars.FindControl(ID:=497).accDoDefaultAction

kodu Filtreyi Açar,

Visual Basic Code
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
 Application.CommandBars.FindControl(ID:=605).accDoDefaultAction

kodu filtreyi iptal eder

Cevapla


WiniFred
Aktif Üye
Kullanici Avatari
Aktif Üye
121
25/09/2011
11
Zonguldak
-
28/11/2016,21:49
Çözüldü 
sayın sledgeab,

şöyle bir kodla denedim:

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
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ı.

Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.043
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,03:35
Çözüldü 
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


WiniFred
Aktif Üye
Kullanici Avatari
Aktif Üye
121
25/09/2011
11
Zonguldak
-
28/11/2016,21:49
Çözüldü 
Teşekkür ederim Sayın sledgeab.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Form üzerinden hesaplanan alanın başka form üzerinden güncelleştirilmesi nightashes 16 149 7 saat önce alpeki99
  Form da Cari Koda Göre Form Çağırma cagatay1234 5 179 10/10/2016, 11:05 atoz112
  Form Üzerinde Komut Tuşu ve Onayı ile Tablodan Tabloya Veri Ekleme ask200075 13 517 08/10/2016, 10:26 ask200075
  Form içine form butonları ekleme IceMan7 7 537 26/07/2016, 11:44 IceMan7
  komut tuşu ile sıralama yenginoglu 5 214 17/06/2016, 17:01 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya