تشغيل زر امر عن طريق الضغط على مفتاح f10

[ابو عمار القدسي]

السلام عليكم ورحمة الله وبركانه اخواني المشرفين اريد كود تشغيل زر امر عن طريق الضغط على اي مفتاح في لوحة المفاتيح مثل f10

[ابوخليل]

وعليكم السلام

هذا يغلق النموذج عندما تنقر زر الهروب Esc

ويمكنك تغيير اسم النموذج "Form" لأي كائن داخل النموذج ، كما يمكنك تغيير الاجراء

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
    DoCmd.Close
End If
End Sub

 

[jjafferr]

وتوضيحا لكود أخوي أبوخليل:

ولمعرفة الرقم البرمجي (ascii) للزر f10 ، اطلب من الكود ان يخبرك بالرقم ، هكذا:

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

	msgbox KeyCode

'If KeyCode = 27 Then
'    DoCmd.Close
'End If
End Sub

 

فعندما تضغط على الزر f10 ، سترى نافذة فيها الرقم ، ولما تعرف الرقم ، استيدله بالرقم 27 (الذي في كود اخوي ابوخليل) ، وافعل ما تشاء

 

جعفر

[ابو عمار القدسي]

اشكركم اخواني على الرد ولاكن طلبي هو مثلا هناك رز امر للخروج هل بالامكان ان اضغط علي مفتاح في لوحة المفاتيح اطلب بالكود ان يشغل زر الامر مثل كود تشغيل دالة معينة بمعنى ان اقول للكود شغل زر الامر الفلاني ليقوم بعمله وجزاكم الله خيرا وبارك فيكم