Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
10/12/2011 13:52
Konu Sahibi
WiniFred
Yorumlar
15
Okunma
5102
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

WiniFred

Aktif Üye
 38
 125
 30
 25/09/2011
11
 Zonguldak
 
 Ofis 2016 64 Bit
 30/10/2018,11:21
Çö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.





Kullanici Avatari

ercansahin

Uzman
ER.... ŞA....
 44
 3.740
 69
 14/11/2008
 Bursa
 
 Ofis 2010 32 Bit
 27/11/2018,13:27
Çö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



Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 41
 11.597
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:47
Çö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


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

WiniFred

Aktif Üye
 38
 125
 30
 25/09/2011
11
 Zonguldak
 
 Ofis 2016 64 Bit
 30/10/2018,11:21
Çö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ı.



Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 41
 11.597
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:47
Çö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.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

WiniFred

Aktif Üye
 38
 125
 30
 25/09/2011
11
 Zonguldak
 
 Ofis 2016 64 Bit
 30/10/2018,11:21
Çözüldü 
Teşekkür ederim Sayın sledgeab.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formdan Rapora Filtre Uygulaması Nasıl Yapılır. Oğuz Türkyılmaz 25 489 23/11/2018, 09:56
Son Yorum: Oğuz Türkyılmaz
Çözüldü Escape Tuşu İle Baskı Önizleme Raporu Kapatamıyorum hbal09 5 94 12/11/2018, 17:09
Son Yorum: hbal09
Çözüldü Butona Kısayol Tuşu Yerine F5,f6,f10 Gibi F Tuşları Atanabilirm Mi. Oğuz Türkyılmaz 9 208 25/10/2018, 14:53
Son Yorum: Oğuz Türkyılmaz
Çözüldü Alt Form İçinde Alt Form + İşaretinin Açılması ielmacilar 12 415 27/09/2018, 12:32
Son Yorum: ielmacilar
Çözüldü Ana Form'a Birkaç Tane Alt Form Ekleme kursun 4 212 25/08/2018, 02:43
Son Yorum: kursun

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444