اخي العزيز (اشرف) تقبل منى جزيل الشكر والتقدير على ما تقدمة من مشاركات فعالة في هذا المنتدى الرائع الذي كم استفدنا منه من خلال ما يقدمة الاخوه من شرح وتعليم وامثلة :
اخي اشرف اطلعت على مشاركتك الجيده والفعالة :
فى حدث عند ضغط مفتاح لأسفل للنموذج ضع الكود التالى :
Select Case KeyCode
Case vbKeyF5
'هنا ضع الأمر الذي تريده عند ضغط مفتاح f5
' هنا مثال على حذف سجل مع زر f8
Case vbKeyF8
Dim strMsg As String, strTitle As String
Dim strMsgNo As String, strTitleNo As String
strMsg = "هــــل تـريـــد حـــذف هــــذا الصنــــــف .....؟"
strTitle = " تأكيد الحذف"
If MsgBox(strMsg, vbQuestion + vbYesNo + vbDefaultButton2, strTitle) = vbYes Then
DoCmd.SetWarnings False
On Error Resume Next
DoCmd.RunCommand acCmdDeleteRecord
End If
' ضع هنا بدلا من الرسائل الأوامر التي تريدها
'Case vbKeyF9
'MsgBox "أنت ضغط على مفتاح f9 الآن .... "
'Case vbKeyF10
'MsgBox "أنت ضغط على مفتاح f10 الآن .... "
End Select
' هنا عندما تضغط زر Esc يغلق النموذج
If KeyCode = 27 Then
DoCmd.Close
End If
أشرف خليل
سؤالي حبذا لو تكرمت واوضحت مفهوم كيفية استعمال مفاتيح F1-F2-f3 ...... في تنفيذ الاوامر .
شاكرا ومقدرا لك ما تقوم به من جهد.
اين يتم وضع الامر :
If KeyCode = 27 Then
DoCmd.Close
End If