نقل التركيز من النموذج الفرعي الى النموذج الرئيسي

اخي الفاضل طيب

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

الموضوع سهل ان شاء الله تعالي كل ما عليك هو اتباع هذه الطريقة

1. يوجد لديك نموذج رئيسي وليكن اسمه مثلا frmMain ويه حقل الاسم NAME

2. يوجد لديك نموذج فرعي وليكن اسمه مثلا frmSubForm وبه حقل اسم الدوره CourseName

3. نفتح النموذج الرئيسي في وضع التصمبم ثم تذهب الى اشرطة قوائم الاكسيس ونختار عرض ونختار منها ترتيب الجدوله

4. سنجد حقول النموذج الرئيسي متتابعة اسفل بعضها البعض وفي الاخير سنجد التموذج الفرعي frmSubForm

5. نقوم بسحبه الى الاعلى وذلك بالضغط بالماوس عليه مع تحريك الماوس للاعلى حتى يصبح هو في اول القائمة ثم نضغط موافق ونغلق النموذج الرئيسي .

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

6. ننتقل للنموذج الفرعي ونقوم بعرضه في وضع التصميم ثم نضغط على المفتاحين ALT + F11 افتح محرر الفيجول بيسك ونضع هذا الكود

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF6: Forms!frmMain!NAME.SetFocus
End Select
End Sub

7. لو انتقلنا الى خصائص النموذج الفرعي لوجدنا ان الكود تم وضعه في حدث عند مفتاح للاسفل و ستجد في اسفل منه مفتاح العرض التمهيدي KeyPreview نقوم بتغييره الى نعم Yes

شرح الكود :

هذا الكود يقوم بالانتقال الى حقل الاسم NAME في النوذج الرئيسي ويجعل التركيز عليه بواسطة المفتاح F6 من لوحة المفاتيح

تستطيع تغيير اسم المفتاح الى اي مفتاح تريده من مفاتيح المساعدة من F1 الى F12 فقط غير الرقم من الرقم 6 في الكود الى اي رقم بين 1 و 12

ملاحظة : يجب وضع مفتاح العرض التمهيدي KeyPreview على نعم Yes في النموذج الفرعي فقط

وهذا مثال

Move_from_Subform_to_Main_Form_by_Using_F6.rar

اختكم

زهره

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

الاخته الكريمه /zahrah

نعم هذا هو المطلوب

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

حفظك الله من كل مكروه

والسلام عليكم