استعلام بدون الايام المختارة

[mourad2012]

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

عساكم بخير وبصحة جيدة

اخواني ما اريده هو

استعلام يقوم باستثناء الايام التي يتم اختيارها من النموذج

مرفق مثال

 

OutChickDays.accdb

[jjafferr]

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

 

ما شرحت شو اللي تريد تعمله ، ممكن نتوصل الى افكار اخرى 🙂

 

ويمكنك انزال هذا الملف ، وافتح النموذج Form2 ، وبعد الاختيار ترى النتائج في الاستعلام 🙂

 

جعفر

[jjafferr]

وطريقتي :

النموذج: وبعد اختيار الايام ، انقر على الزر

.

كود الحدث على الزر :

1. اسم الدالة ، ونرسل لها :
2. اسم النموذج ،
3. اسم حقل Listbox ،
4. اسم الحقل في الاستعلام والذي نريد ان نضع له المعيار ،
5. اسم الاستعلام

.

وهذه هي الدالة في الوحدة النمطية :

Public Function Not_in(frm As String, fld As String, myWhere As String, qry As String) As String


'call Not_in("SelectDays","lstCats","Months_Digits","Query2")

    Dim ctl As Control
    Dim i As Integer

    Set ctl = Forms(frm)(fld)
    
    For i = 0 To ctl.ListCount - 1
        If ctl.Selected(i) = False Then
            Not_in = Not_in & " Or " & myWhere & " = '" & ctl.Column(0, i) & "'"
        End If
    Next i
    
    Not_in = Mid(Not_in, 5)
    
    DoCmd.OpenQuery qry
    DoCmd.ApplyFilter , Not_in
    
End Function

.

والشيء الذي اريدك تنتبه له هو ، اني ما وضعت المعيار في الاستعلام ، وانما عملت تصفية للإستعلام بعد تنفيذه ، عن طريق الامر DoCmd.ApplyFilter , Not_in 🙂

 

جعفر

 

1327.MultiSelec listbox query.zip

[mourad2012]

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

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

واعتذر عن عدم ايضاح المطلوب ظنا مني ان القاعدة التجريبية المرفقة تفي بالغرض

ما اريده:

استعلام للجدول

MonthRep

هذا الجدول يتم ادراج ايام العمل لشهر كامل لك موظف

هناك بعض المعلمين (الموظفين) بنصف مركز

يعملون في المدارس بوتيرة متغيرة

فمنهم من يعمل يومين او ثلاثة ايام

قد تكون هذه الايام الاحد والاثنين او الاحد والثلاثاء والخميس او الاربعاء والخميس وهكذا

الان  في التقرير الشهري لدي والذي كان لك الدور الاكبر فيه يتم ادراج كل الايام باستثناء الجمعة والسبت

في وضع النصف مركز اريد عندما اختار لموظف معين مثلا الاحد والثلاثاء يتم اخفاؤها في استعلام لعرض هذا الاستعلام في تقرير

ولايضاح الفكرة سارفق صور بالمطلوب

في الصورة الاولى عند اختيار يوم عمل للموظف مثلا هنا اخترنا الاحد

يتم تخزين القيمة المختارة في جدول

BadeelDays

كما في الصورة الثانية

الصورة الثالثة هي استعلام من الجدول monthRep

الصورة الرابعة هي لايام الاحد جميعها في الشهر 

وهي التي اريد استثناءها من الصورة الثالثة

طبعا اي يوم يتم اختياره يتم استثناؤه

اتمنى ان تكون الفكرة قد تم ايضاحها

مرفق قاعدة بما ذكرت

وعذرا للإطالة

دمتم ودام عطاؤكم

 

 

 

 

OutChickDaysNew.accdb