*فورم* برمجة المفاتيح ( الاختصارات )

فى حدث عند ضغط مفتاح لأسفل للنموذج ضع الكود التالى :

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

أشرف خليل

:( :( :( :(

أخوي أشرف مشكووور وما قصرت تبي الصراحة ما اشتغل معي

ملاحظاتي:

1- حاولت اغير المفتاح F8 الى اي مفتاح ثاني زي F9 ما ضبط معي.

2- بدون محددات السجلات ما تشتغل المفاتيح ابدا

ملاحظة أخيرة:

نموذج الفاتورة عندي عبارة عن نموذج داخل نموذج فرعي ولا يحتوي على محددات سجلات او حدود للنموذج وعبارة عن نموذج منبثق Popup

ارجو التوضيح اكثر بخصوص هذه المسألة للأهمية الكبرى وايضا بالنسبة لعمل اختصار لزر كوماند على النموذج

مرفق نموذج مماثل ارجو عمل اللازم عليه من ناحية الكود فقط مع مراعااة عدم تغيير خصائص النموذج

شاكرين لكم حسن تعاونكم معنا

الأخ مهند :

معذرة : نسيت أخبرك بانه فى صفحة الحدث يوجد بند اسمه مفتاح العرض التمهيدي غيره من لا إلى نعم وإن شاء الله يشتغل معاك .

أشرف خليل

اخي العزيز اشرف

أشكرك من اعماق قلبي على تجاوبك السريع معي بس بقيت مشكلة بسيطة حاولت كثيرا ولم أجد لها حل اتمنى ان أجده لديك

اريد عمل الاختصار على أكثر من مفتاح في نفس الوقت

يعني مثلا (Shift+F5) او (CTRL+F8)

ولك جزيل الشكر

أخوك مهند

هذه الطريقة لم أجربها ولكن ألا يكفى أن تعمل 12 اختصار على 12 مفتاح على الأقل فى كل نموذج .

ابحث عن ماكرو يسمى autokey ستجد فيه المطلوب .

أشرف خليل

الأخ مهند .. بعد التحية :

مثال سريع عله يكون مفيدا :

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

Select Case Shift

Case 1 'Shift

Case 2 'Ctrl

Select Case KeyCode

Case 113 'F2

MsgBox "Mohanad"

End Select

Case 3 'Alt

End Select

End Sub

تحياتي