mourad2012 قام بنشر يناير 13, 2021 مشاركة قام بنشر يناير 13, 2021 السلام عليكم ورحمة الله وبركاته عساكم بخير وبصحة جيدة اخواني ما اريده هو استعلام يقوم باستثناء الايام التي يتم اختيارها من النموذج مرفق مثال OutChickDays.accdb رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 13, 2021 مشاركة قام بنشر يناير 13, 2021 وعليكم السلام 🙂 ما شرحت شو اللي تريد تعمله ، ممكن نتوصل الى افكار اخرى 🙂 ويمكنك انزال هذا الملف ، وافتح النموذج Form2 ، وبعد الاختيار ترى النتائج في الاستعلام 🙂 جعفر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 13, 2021 مشاركة قام بنشر يناير 13, 2021 وطريقتي : النموذج: وبعد اختيار الايام ، انقر على الزر . كود الحدث على الزر : اسم الدالة ، ونرسل لها : اسم النموذج ، اسم حقل Listbox ، اسم الحقل في الاستعلام والذي نريد ان نضع له المعيار ، اسم الاستعلام . وهذه هي الدالة في الوحدة النمطية : 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 1 رابط هذا التعليق شارك More sharing options...
mourad2012 قام بنشر يناير 13, 2021 الكاتب مشاركة قام بنشر يناير 13, 2021 السلام عليكم ورحمة الله وبركاته اشكر لك سعة صدرك اخي الطيب جعفر وجعل كل ما تقوم به في ميزان حسناتك ان شاء الله واعتذر عن عدم ايضاح المطلوب ظنا مني ان القاعدة التجريبية المرفقة تفي بالغرض ما اريده: استعلام للجدول MonthRep هذا الجدول يتم ادراج ايام العمل لشهر كامل لك موظف هناك بعض المعلمين (الموظفين) بنصف مركز يعملون في المدارس بوتيرة متغيرة فمنهم من يعمل يومين او ثلاثة ايام قد تكون هذه الايام الاحد والاثنين او الاحد والثلاثاء والخميس او الاربعاء والخميس وهكذا الان في التقرير الشهري لدي والذي كان لك الدور الاكبر فيه يتم ادراج كل الايام باستثناء الجمعة والسبت في وضع النصف مركز اريد عندما اختار لموظف معين مثلا الاحد والثلاثاء يتم اخفاؤها في استعلام لعرض هذا الاستعلام في تقرير ولايضاح الفكرة سارفق صور بالمطلوب في الصورة الاولى عند اختيار يوم عمل للموظف مثلا هنا اخترنا الاحد يتم تخزين القيمة المختارة في جدول BadeelDays كما في الصورة الثانية الصورة الثالثة هي استعلام من الجدول monthRep الصورة الرابعة هي لايام الاحد جميعها في الشهر وهي التي اريد استثناءها من الصورة الثالثة طبعا اي يوم يتم اختياره يتم استثناؤه اتمنى ان تكون الفكرة قد تم ايضاحها مرفق قاعدة بما ذكرت وعذرا للإطالة دمتم ودام عطاؤكم OutChickDaysNew.accdb رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.