اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تغيير مصدر الصف لكمبوبوكس فى نموذج فرعى حسب قيمة حقلين فى نموذج رئيسى


الردود الموصى بها

السلام عليكم

فى قاعدة البيانات المرفقة

نموذج رئيسى به حقل الصف و الفصل

و نموذج فرعى به كمبوبوكس مصدر الصف له هو حقل أسماء الطلاب

الكمبوبوكس يظهر أسماء كل الطلاب بكل الصفوف و الفصول

المطلوب

عند كتابة رقم الصف و الفصل فى النموذج الرئيسى

أن يظهر الكمبوبوكس أسماء هذا الصف و الفصل فقط

وليس كل الطلاب

post-24586-0-86002000-1353438385_thumb.p

test9.rar

http://getfile1.post...scaled.1000.jpg

Untitled.jpg.scaled.1000.jpg

تم تعديل بواسطه أبو لميس
رابط هذا التعليق
شارك

جزاك الله خيراوشكرا لردك الطيب

شكرا

جزاك الله خيرا

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

لكن يتم التنفيذ مرة واحدة

عند فتح النموذج فقط

أريد أن يتم تغيير الأسماء عند تغيير حقل الصف

لأننى أدخل صفا و بعد الانتهاء منه

أدخل صفا جديدا

لكى يتم التغيير أضغط على مفتاح REFRISH

فهل يمكن حدوث ذلك بدون ضغط REFRISH

الحمد لله تم المطلوب

أضفت هذا السطر من الكود لتنشيط الكمبوبوكس


Private Sub nashClass_Change()

[Forms]![tblNashatDETAILS]![TT].[Form]![Stuiid].Requery

End Sub

Private Sub nashClass_Exit(Cancel As Integer)

[Forms]![tblNashatDETAILS]![TT].[Form]![Stuiid].Requery

End Sub[/right]


Private Sub nashSaff_AfterUpdate()

[Forms]![tblNashatDETAILS]![TT].[Form]![Stuiid].Requery

End Sub

Private Sub nashSaff_Change()

[Forms]![tblNashatDETAILS]![TT].[Form]![Stuiid].Requery

End Sub

Private Sub nashSaff_Exit(Cancel As Integer)

[Forms]![tblNashatDETAILS]![TT].[Form]![Stuiid].Requery

End Sub

و الحمد لله

تم تعديل بواسطه أبو لميس
رابط هذا التعليق
شارك


Private Sub nashClass_Change()

[Forms]![tblNashatDETAILS]![TT].[Form]![Stuiid].Requery

End Sub

Private Sub nashClass_Exit(Cancel As Integer)

[Forms]![tblNashatDETAILS]![TT].[Form]![Stuiid].Requery

End Sub[/right]

Private Sub nashSaff_AfterUpdate()

[Forms]![tblNashatDETAILS]![TT].[Form]![Stuiid].Requery

End Sub

Private Sub nashSaff_Change()

[Forms]![tblNashatDETAILS]![TT].[Form]![Stuiid].Requery

End Sub

Private Sub nashSaff_Exit(Cancel As Integer)

[Forms]![tblNashatDETAILS]![TT].[Form]![Stuiid].Requery

End Sub

و الحمد لله
الاخ الفاضل ابو لميس بامكانك اختصار الكود اعلاه الى سطر واحد فقط وذلك باضافه الكود التالي في حدث on got focus لمربع الكومبو بوكس Stuiid

Private Sub Stuiid_GotFocus()

Me.Stuiid.Requery

End Sub

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information