استعمال زراير F

اخي الفاضل

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

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

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

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

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF1: DoCmd.OpenForm "F2"
Case vbKeyF2: DoCmd.Close acForm, "F2", 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 "Q1", acNormal, acEdit
Case vbKeyF8: DoCmd.OpenForm "F3"
Case vbKeyF9: DoCmd.OpenForm "F4"
Case vbKeyF10: DoCmd.OpenForm "F5"
Case vbKeyF11: DoCmd.Close
Case vbKeyF12: DoCmd.Quit
End Select
End Sub

شرح الكود

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

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

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

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

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

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

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

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

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

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

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

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

===========================

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

Private Sub Form_Load()
KeyPreview = True
 End Sub

الغرض منه هو تفعيل خاصية KeyPreview

===========================

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

Private Sub Form_Resize()
KeyPreview = True
End Sub

الغرض منه هو تفعيل الخاصية مره اخرى فيما لو تغير حجم النموذج

ملاحظة : طالما ان الوضع بهذه السهوله قم بعمل تطبيق على هذا الشرح وادرج ملفك هنا ليستفيد منه الاعضاء

اختكم

زهره

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

جزاك الله خيرا يا استاذتنا الفاضلة ... باشرت شخصيا بالتطبيق

أشهد انك من انفع الناس للناس

أخوكم

أبو آدم

يا جماعه انا قلت ان الاستاذة زهرة دي حاجة محصلتش ، كفاية كرمها فى المعلومة ربنا ينعم عليها

حسب طلب المشرفة

قمت بتجربة البرنامج علي نموذج احد الاعضاء و هو عداد التليفون " على السريع

و فعلا ;) اثبت فعاليتة

تمت التجربة على السريع يعني مش كل حاجة بتعمل نظرا لاني عملتة و انا فى الدوام

***

___________.rar

بارك الله فيك اخي الكريم

ووالله انني لأفرح اشد الفرح عندما ارى الاعضاء يتعلمون بهذه السرعه ويحاول كل شخص ان يطور نفسه للافضل لان زهـــــــــــره لن تدوم لكم طويلا فسيأتي اليوم الذي ستذبل فيه ولا يبقى الا ما كتبت من علم ناقع اسأل الله العلي القدير ان ينفعنا يما علمنا

اختكم

زهره

السلام عليكم

استاذتنا الفاضلة زهرة المنتدي

هناك زهور لا تذبل 000 جزاك الله خيرا عنا ، وكما قلت في مقام سابق ... من قيض الله له عالما ينهل من علمه وتقاعص فهو خاسر ...

اخوكم

أبو آدم

zahrah كتب:

بارك الله فيك اخي الكريم

ووالله انني لأفرح اشد الفرح عندما ارى الاعضاء يتعلمون بهذه السرعه ويحاول كل شخص ان يطور نفسه للافضل لان  زهـــــــــــره لن تدوم لكم طويلا فسيأتي اليوم الذي ستذبل فيه ولا يبقى الا ما كتبت من علم ناقع اسأل الله العلي القدير ان ينفعنا يما علمنا

اختكم

زهره

←

الاخت زهرة ارجو الا تقول ذلك حفظكي الله من ذلك و الله يحفظك و يدوم عليكي الخير

ابو سلمي

بارك الله فيك مشرفتنا العملاقة

اخواني الكرام

لقد اعجبني هذا الموضوع كثيراً ، ولكن هناك مشكلة في زر F7 ، كيف أجعل هذا الزر لا يقوم بفتح (المدقق الاملائي) ؟

شكرا لكم وجزاكم الله عنا خير الجزاء

اخي الفاضل

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

الوضع يختلف هنا عن الشرح السابق حيث انك ترغب في تعطيل مفتاح F7 الخاص بالتدقيق الاملائي

لهذا يجب عليك القيام بالخطوات التالية

1. اعرض النموذج في وضع التصميم

2. اختر تبويب الحدث

3. اختر حدث عند مفتاح للاسفل واختر اجراء حدث وضع هذا الكود

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   Select Case KeyCode
      Case 118
         KeyCode = 0
   End Select
End Sub

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

4. ستجد اسفل الحدث عند مفتاح للاسفل عبارة هي " مفتاح العرض التمهيدي " ضع الخيار لها على " نعم " بدلا من لا ( الافتراضي هو لا )

وهذا مثال مرفق

F7.rar

اختكم

زهره

خير الناس .......... انفعهم للناس

ياليت كل واحد يقرأها ويطبقها مثلك يا مشرفتنا الغالية ............

أخواني الكرام ، أختي الفاضلة زهرة

شكراً على جهودكم الطيبة وجزاكم الله عنا خير الجزاء ...