(تمت الاجابة) استخدام خانة اختيار في ملأ مربعات النص

[شامل2]

السلام عليكم

المثال يوضح طريقة ادارة مراكز امتحانية

يحتوي على جدول المراكز وجدول المدارس

ويحتوي على نموذج

forall

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

ونموذج

الادارات

الذي يحتوي على اسماء المراكز والمدير و معاون اول ومعاون ثاني

المطلوب

عند كتابة اسم المدير في حقل اسم المدير يجب كتابة اسم مدرسته في الحقل المقابل له

وهكذا بالنسبة للمعاونين

الذي اطلبه هو عند كتابة اسم المدير ووضع المؤشر في حقل مدرسته

نبحث عن مدرسته في نموذج البحث وعندما يتم ايجادها نفعل الخيار

الادارة

وكذلك عند كتابة اسم المعاون الاول ونفعل امام مدرسة معاون1

يوضع اسم المدرسة في الحق المخصص لها

وهكذا

تعبئة مربع النص.rar

[أحمد خلف]

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

تفضل اخي.

تعبئة مربع النص.rar

[شامل2]

السلام عليكم

تقبل الله اعمالكم

الاخ العزيز احمد خلف

جواب رائع جدا

بارك الله فيك على هذا العمل

[أحمد خلف]

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

[شامل2]

السلام عليكم

وتقبل الله اعمالكم

اعتذر عن الاطالة في الاسئلة

في اغلب الحالات يكون مدير المركز هو نفسه مدير المدرسة التي يتم اختيارها

كيف نجعل خانة الاختيار التي امام المدرسة ان تنقل اسم المدير واسم مدرسته وكل في الحقل المخصص اليه

اي ان اسم مدير المدسة يوضع في مكان اسم المدير في نموذج Idarat

تعبئة مربع النص2.rar

[أحمد خلف]

بنفس الطريقة اخي.

فيكون كود تحديث مربع الأختيار

If CH1.Value = -1 Then
[Forms]![idarat]![md].Value = Sc_Name.Value
[Forms]![idarat]![dr].Value = Mudeer.Value
Else
[Forms]![idarat]![md].Value = ""
[Forms]![idarat]![dr].Value = ""
End If

والله الموفق.

تم تعديل مارس 10, 2014 بواسطه أبو آدم
احتواء الكود

[شامل2]

السلام عليكم

فكرة رائعة

تم التطبيق

سؤالى الاخر هل يمكن استخدام الايعاز Me للدلالة على النموذج idarat

بدون كتابة اسمه idarat

اشكرك على حسن التجاوب

[أحمد خلف]

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

اخي لا يمكن استخدام Me الا في الاكواد التي يتم تنفيذها في نفس النموذج.

والله الموفق.

[شامل2]

السلام عليكم

بارك الله فيك على هذه المعلومات

شكرا لاهتمامك بالموضوع