Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF9
DoCmd.OpenForm "F_001_MUSTERI_LISTE"
Forms!F_001_MUSTERI_LISTE.TxtSearch.SetFocus
End Select
End Sub
F10 tuşu ile Ribbon'a odaklama yapılabildiği için F9 tuşu daha uygun olacaktır. F9 tuşuna basılınca sizin zaten butonun tıklanma olayına yazdığınız form açma işlemini yapıyoruz. Sonraki satırda ise Formlardan->F_001_MUSTERI_LISTE isimli olan formun üzerindeki->TxtSearch isimli denetime->odaklan komutunu uygulayabilirsiniz.