فتح نموذج عن طريق زر بالكيبورد

[النجاشي]

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

استاتذي الكرام 

عندي نموذج اسمه(frm_Search_New)

المطلوب عندما يكون مفتوح

اريد يفتح نموذج تعديل صنف عن طريق F2

ونموذج اضافه صنف عن طريق F5

شاكرين لكم احبتي

8910.rar

[kanory]

تفضل ملفك بعد التعديل عليه

kanory_1.rar

[النجاشي]

56 دقائق مضت, kanory said:

تفضل ملفك بعد التعديل عليه

kanory_1.rar

استاذي @kanory بارك الله فيك 

بقت مشكله بسيطه عندما افتح عن طريق الزر F2 او F5 وغلاق النموذج ما بيفتح ثاني تظهر رساله 

عندما انقل التركيز بنص بحث بالرقم n2  يشتغل مظبوط

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

شاكر اليك استاذي

 

 

تم تعديل نوفمبر 10, 2017 بواسطه ابو زاهر

[kanory]

44 دقائق مضت, ابو زاهر said:

استاذي @kanory بارك الله فيك 

بقت مشكله بسيطه عندما افتح عن طريق الزر F2 او F5 وغلاق النموذج ما بيفتح ثاني تظهر رساله 

عندما انقل التركيز بنص بحث بالرقم n2  يشتغل مظبوط

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

شاكر اليك استاذي

 

 

تفضل

kanory_2.rar

[النجاشي]

6 دقائق مضت, kanory said:

تفضل

kanory_2.rar

استاذي الله يجزيك كل خير فانا لا اريد اغلاق النموذج الاول

اعتقد لو عملنا كود عند الاغلاق بالنماذج التعديل والاضافه يكون بنقل التركيز الي النموذج  السابق نص البحث عن الرقم سنتهي المشكله

بارك الله فيك استاذي 

[kanory]

هل هذا يفيد ....... لأنك لم تقم بشرح المطلوب بالتفصيل 

kanory_3.rar

[النجاشي]

3 دقائق مضت, kanory said:

هل هذا يفيد ....... لأنك لم تقم بشرح المطلوب بالتفصيل 

kanory_3.rar

بارك الله فيك اسعدك الله دنيا اخره نعم هو المطلوب جزاك الله خير بس ياليت تعمل لي الشرح كي استفيد ببقيه النماذج 

تحياتي اليك

 

 

[النجاشي]

استاذي@kanory

غدا

ان شاء الله بتابع معاك الشرح غلبني النعاس

الف تحيه اليك وتصبح علي خير

 

 

[kanory]

أخي أبو زاهر بالنسبة للشرح

تم تعديل امرين في برنامجك :

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

Select Case KeyCode
       Case vbKeyF2
           DoCmd.OpenForm "تعديل صنف"
       Case vbKeyF5
           DoCmd.OpenForm "اضافه صنف"
End Select

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

 

تم تعديل نوفمبر 11, 2017 بواسطه kanory

[النجاشي]

9 ساعات مضت, kanory said:

أخي أبو زاهر بالنسبة للشرح

تم تعديل امرين في برنامجك :

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

Select Case KeyCode
       Case vbKeyF2
           DoCmd.OpenForm "تعديل صنف"
       Case vbKeyF5
           DoCmd.OpenForm "اضافه صنف"
End Select

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

 

بارك الله فيك وجعله بميزان حسناتك

الف شكر استاذي