Formdaki bir butonu F tuşu ile çalıştırma

[Fenomen]

Başlıktan da anlaşıldığı gibi bir formum var ve o açıkken F9 Tuşuna bastığımda çalışmasını yani kaydetmesini istiyorum
yardım ederseniz sevinirim iyi çalışmalar

 

[Haluk]

UserForm aktifken maalesef bu olmaz. Daha doğrusu, F9 tuşuna atamayı yapabilirsiniz ama UserForm aktifken, F9 tuşuna bastığınızda beklediğiniz tepkiyi vermez.

Bir alternatif ise;

CommandButton'un "caption" ı örneğin "Kaydet" olsun. Eğer siz bu CommandButton'un "accelerator" özelliğine "k" harfini atarsanız, UserForm ekrana geldiğinde sözzkonusu CommandButton'un üzerinde "Kaydet" yazacaktır. Yani, "K" harfinin altı çizili durumda olacaktır. O zaman, UserForm ekranda iken siz Alt + k tuşlarına birlikte basarsanız, CommandButton sanki fare ile tıklanmış gibi çalışacak ve kendisine atanan kodları çalıştıracaktır.

 

[Fenomen]

Teşekkür

Saol Bu da İşimi Görür Teşekkürler

 

[ALPEN]

sol elle kafanın üstünden sağ kulağı tutmak isteyenler içinde bir alternatif olabilir diyerekten.

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
chkFKey (KeyCode)
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
chkFKey (KeyCode)
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
chkFKey (KeyCode)
End Sub
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
chkFKey (KeyCode)
End Sub
Private Sub chkFKey(KeyCode)
    If vbKeyF1 <= KeyCode And KeyCode < vbKeyF12 Then
        Select Case KeyCode
            Case vbKeyF1:
                MsgBox "f1 e bastınız"
            Case vbKeyF9:
                x = MsgBox("f9 a bastınız. kayıt yapılsın mı?", vbYesNo)
                'kayıt işlemin burada yapın.
            Case Else:
                MsgBox "F" & (KeyCode - vbKeyF1 + 1) & " e bastınız."
        End Select
    End If
End Sub

 

[Fenomen]

Þimdi istediğim oldu
saolasın