تشغيل ازرار فى لوحة المفاتيح للقيام بتأدية مهام فى النموذج

[الحجازي طارق 0]

بسم الله الرحمن الرحيم

كيف يمكن جعل مفاتيح مثل f1 , f12 تقوم بمهام معينة مثل الدخول لنموذج او اظهار شيء معين وكيف ,وكيف جعل مفتاح esc للخروج وشكرا

[zahrah 4,314]

بسم الله الرحمن الرحيم

كيف يمكن جعل مفاتيح مثل f1 , f12 تقوم بمهام معينة مثل الدخول لنموذج او اظهار شيء معين وكيف ,وكيف جعل مفتاح esc للخروج وشكرا

اخي الفاضل : الحجازي طارق

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

تستطيع عمل ذلك من خلال الكود التالي فهو يشمل المفاتيح من F1 الى F12

كل ما عليك هو تغيير ما يناسبك

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

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF1: DoCmd.OpenForm "Form2"
Case vbKeyF2: DoCmd.Close acForm, "Form2", acSaveYes
Case vbKeyF3: DoCmd.OpenReport "REPORT", acPreview
Case vbKeyF4: DoCmd.PrintOut acPages, 1, 1, , 1
Case vbKeyF5: DoCmd.OpenReport "REPORT",acNormal
Case vbKeyF6: DoCmd.Save
Case vbKeyF7: DoCmd.OpenQuery "Query1", acNormal, acEdit
Case vbKeyF8: DoCmd.OpenForm "Form3"
Case vbKeyF9: DoCmd.OpenForm "Form4"
Case vbKeyF10: DoCmd.OpenForm "Form5"
Case vbKeyF11: DoCmd.Close
Case vbKeyF12: DoCmd.Quit
Case vbKeyEscape: DoCmd.Quit
End Select
End Sub

شرح الكود

مفتاح F1 يقوم بفتح نموذج اسمه Form2

مفتاح F2 بقوم بإغلاق النموذج Form2 مع امكانية حفظ البيانات التي به

مفتاح F3 يقوم بفتح تقرير اسمه REPORT للمعاينه

مفتاح F4 يقوم بفتح بطباعة التقرير المفتوح من الصفحة 1 الى الصفحة 1 لنسخة واحدة

مفتاح F5 يقوم بفتح بطباعة كامل التقرير الذي اسمه REPORT

مفتاح F6 يقوم بعملية الحفظ سواء للسجل او للسجلات

مفتاح F7 يقوم بفتح الاستعلام الذي اسمه Q1 مع امكانية التحرير والتعديل فيه

مفتاح F8 يقوم بفتح نموذج اسمه Form3

مفتاح F9 يقوم بفتح نموذج اسمه Form4

مفتاح F10 يقوم بفتح نموذج اسمه Form5

مفتاح F11 يقوم بإغلاق القاعدة

مفتاح F12 يقوم بإغلاق برنامج الاكسيس

مفتاح Esc يقوم بإغلاق برنامج الاكسيس

وضع هذا الكود في حدث عند التحميل لتفعيل مفتاح العرض التمهيدي الى نعم

Private Sub Form_Load()

KeyPreview = True

End Sub

وضع هذا الكود في حدث الحالي للنموذج لتفعيل مفتاح العرض التمهيدي الى نعم

Private Sub Form_Current()

KeyPreview = True

End Sub

بالتوفيق

تم تعديل 23 Sep 2012 بواسطه zahrah

[أحمد محمد أبوبكر 10]

بارك الله فيك

[الحجازي طارق 0]

بارك الله فيكى يا أختى على هذا الحل الرائع

[DASAD 0]

لم ينجح معي هذا الشيء لا ادري لماذا اطلب من الاساتذة التعديل علي الملف

 

Base de données141.rar