BİR FORMU KAPATMAK YADA AÇMAK İÇİN F TUŞLARINI KULLANABİLİYORMUYUZ.
NASIL YAPABİLİRİZ BU İŞLEMİ??
F Tuşlarına Kod Atama
Slm
F2,F3 F4 gibi tuşlara ekte bulunan örnekte olduğu gibi autokeys isminde bir makro yapılır ve bu f2 karşılığına açmlak istediğinz form vb şeyler atanır böylelikle istediğinizi uygulamış olursunuz.
F2,F3 F4 gibi tuşlara ekte bulunan örnekte olduğu gibi autokeys isminde bir makro yapılır ve bu f2 karşılığına açmlak istediğinz form vb şeyler atanır böylelikle istediğinizi uygulamış olursunuz.
Sn:ilkerkacmaz C*E*L*O*Y*C*E'nin örneğide güzel, Birde Sn:BayFaruk'un yaptığı örneği incelemenizi tavsiye ederim.
Saygılar.
Klavye f tuşları Access kısayolu örneği
Saygılar.
Klavye f tuşları Access kısayolu örneği
Application Engineer
kod deposuna baksaydınız görürdünüz
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF2
' Process F2 key events.
Case vbKeyF3
' Process F3 key events.
Case vbKeyF4
DoCmd.OpenForm "Form1"
Case Else
End Select
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF2
' Process F2 key events.
Case vbKeyF3
' Process F3 key events.
Case vbKeyF4
DoCmd.OpenForm "Form1"
Case Else
End Select
End Sub
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
teşekkür ederim arkadaşlar
soruma yeterli cevabı aldım.
soruma yeterli cevabı aldım.
Ben de eşref beyin önerdiği kodları kullanıyorum. Ama bu kodlarda rastladığım bir sıkıntıyı aktarayım. F4 tuşuna yazılan kodlar ENTER ile de çalışıyor. Bu yüzden F4 kullanamıyorum. Mesela aşağıdaki yazdığım kodda
Select Case KeyCode
'********f4 TUŞU********
Case vbKeyF4: Onay257.SetFocus
Onay257 = -1
If Onay257 = -1 Then
Me.Uetiket.Visible = True
Me.Uaçıklama.Visible = True
Me.Uaçıklama.SetFocus
Else
Me.Uetiket.Visible = False
Me.Uaçıklama.Visible = False
End If
F4 tuşu yerine ENTER tuşuna da bassan onay kutusuna odaklanma ve onaylama gerçekleşiyor. Halbuki formda metin kutuları arasında ilerlemek için entere basıyoruz. O zaman sekme durağına hayır dememe rağmen -hatta bir önceki eyleme setfocus ile başka bir alana odaklanma kodları koymama rağmen- yine de yukarda adı geçen onay257'ye odaklanıp onaylıyor. Tabi o zaman da uetiket ve uaçıklama alanları görünür oluyor. Ne dersiniz?
NOT: Pascal'da bazı tuşlara eylem atanırken asci kodların bazı yansımaları olduğu ve tıpkı burda olduğu gibi sarkmalar(!) olabileceği söylenmişti. Bu da öyle bir şey mi ki?
Select Case KeyCode
'********f4 TUŞU********
Case vbKeyF4: Onay257.SetFocus
Onay257 = -1
If Onay257 = -1 Then
Me.Uetiket.Visible = True
Me.Uaçıklama.Visible = True
Me.Uaçıklama.SetFocus
Else
Me.Uetiket.Visible = False
Me.Uaçıklama.Visible = False
End If
F4 tuşu yerine ENTER tuşuna da bassan onay kutusuna odaklanma ve onaylama gerçekleşiyor. Halbuki formda metin kutuları arasında ilerlemek için entere basıyoruz. O zaman sekme durağına hayır dememe rağmen -hatta bir önceki eyleme setfocus ile başka bir alana odaklanma kodları koymama rağmen- yine de yukarda adı geçen onay257'ye odaklanıp onaylıyor. Tabi o zaman da uetiket ve uaçıklama alanları görünür oluyor. Ne dersiniz?
NOT: Pascal'da bazı tuşlara eylem atanırken asci kodların bazı yansımaları olduğu ve tıpkı burda olduğu gibi sarkmalar(!) olabileceği söylenmişti. Bu da öyle bir şey mi ki?
İnadına, ille de Accesstr.net...
Konuyu Okuyanlar: 3 Ziyaretçi