تخصيص مفتاح من الكيبورد

[Ahmed.IQ]

السلام عليكم ورحمة الله

لو عندي نموذج فيه عدة ازرار اريد ان اخصص مفتاح من الكيبورد  وليكن المفتاح F7 ينفذ احد هذه الازرار وليكن مثلاً تنفيذ الامر التالي

Docmd.OpenForm "A1", acNormal

هل من الممكن المساعدة بهذا الامر 

مع جزيل الشكر

[ابوخليل]

تفضل انقر  F2 ولاحظ يجب ان يكون التركيز واقع على النموذج 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
DoCmd.OpenForm "A1", acNormal
End If
End Sub

 

db.rar

[Ahmed.IQ]

لم تعمل معي يمكن لاني اعمل على 2013؟

لكن جربت كود اخر ونجح الامر شكراً لك ابو خليل 

الكود هوا 

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If Shift = 2 Then

DoCmd.OpenForm "A1", acNormal
End If
End Sub

وهوا مفتاح الكونترول