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

[حمدى الظابط]

السلام عليكم

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

 

النموزج فعال.rar

نموذج غير فعال.rar

تم تعديل يوليو 31, 2018 بواسطه حمدى الظابط

[AlwaZeeR]

تفضل أيها المثابر

 

Dim MyStringSql As String
MyStringSql = "SELECT [Teacher Class].NAMEe " & _
              " FROM [Teacher Class] " & _
               "WHERE (([Teacher Class]." & Me.DDR & " Is Null)) ORDER BY [Teacher Class].NAMEe;"
Me.LST1.RowSource = MyStringSql
Me.ff = Me.LST1.ListCount
Me.LST1.Visible = True
Me.Refresh

تحياتي لشخصك الطيب

 

[حمدى الظابط]

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

@AlwaZeeR

تم تعديل أغسطس 1, 2018 بواسطه حمدى الظابط

[AlwaZeeR]

المشكلة أستاذ حمدي كانت في ان الكود لا يتعرف على حقل التحرير والسرد انه فارغ Null

تفضل:

جرب هذا الكود

Dim MyStringSql As String

MyStringSql = "SELECT [Teacher Class].NAMEe " & _
              " FROM [Teacher Class] " & _
               "WHERE ([Teacher Class]." & Me.DDR & _
               " Is Null Or ([Teacher Class]." & Me.DDR & ")="""")ORDER BY [Teacher Class].NAMEe;"
Me.LST1.RowSource = MyStringSql
Me.ff = Me.LST1.ListCount - 1
Me.LST1.Visible = True
Me.Refresh

 

[حمدى الظابط]

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

@AlwaZeeR

تم تعديل أغسطس 1, 2018 بواسطه حمدى الظابط

[AlwaZeeR]

بالتوفيق أستاذي

👍