06/01/2009, 17:28
F Tuşlarına Kod Atama
06/01/2009, 17:40
C*e*l*o*y*c*e
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.
06/01/2009, 17:45
emturker
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
06/01/2009, 18:04
esrefigit
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
06/01/2009, 20:34
KCMZ
teşekkür ederim arkadaşlar
soruma yeterli cevabı aldım.
soruma yeterli cevabı aldım.
07/01/2009, 01:52
mehmetdemiral
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?