ابوخليل

تفضل تم الضبط والاستفادة من فكرة الأخ الشايب في الدمج وبتعديل طفيف على كود الاستاذ جعفر اتمنى ان تكون النتيجة 100% تم ارفاق ملف خطأ تمت الازالة ورفع المرفق الصحيح bzy.rar

myWhere = myWhere & "'" & Me.lst_XX.Column(3, varItem) & "', " انا احرص على كتابة الاكواد النادرة هنا من اجل الرجوع اليها وقت الحاجة

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

اهلا شايبنا صباح الخير كلامك في محله .. وملاحظتك دقيقة هل ترى ان اضافة الـــ ID الموجود في الجدول الى مصدر بيانات القائمة واشراكه كمعيار .. يحل المشكلة ؟ طبعا لا يمكن لأن الدرجة مجمعة وكذلك الفوج

نعم هو ما تفضلت به عملت لك كودا آخر يحدد الفوج ايضا هكذا وانظر الى المعيار في سطر فتح التقرير Dim myWhere As String Dim intNumColumns As String Private Sub funGrop() Dim varItem As Variant myWhere = "" For Each varItem In Me.lst_XX.ItemsSelected myWhere = myWhere & "'" & Me.lst_XX.ItemData(varItem) & "', " Next varItem myWhere = Left(myWhere, Len(myWhere) - 2) End Sub Private Sub fungrid() On Error Resume Next Dim varItem As Variant intNumColumns = "" If Me.lst_XX.ItemsSelected.Count > 0 Then For Each varItem In Me.lst_XX.ItemsSelected intNumColumns = intNumColumns & "'" & Me.lst_XX.Column(1, varItem) & "', " Next varItem intNumColumns = Left(intNumColumns, Len(intNumColumns) - 2) End If End Sub Private Sub cmd_Preview_Click() Call funGrop Call fungrid DoCmd.OpenReport "rap_stat_situat", acViewPreview, , "[groupe] in (" & intNumColumns & ")" & "And [grade] in (" & myWhere & ")" End Sub basey_2023.rar

تمام هل يوجد فلترة اخرى ؟ مثلا تضم الدرجات او الأفواج لأن العمل يجب ان يأخذ بالاعتبار

انت تفكر بطريقتك ،، وغيرك يفكر بطريقته المهم : جدول يحتوي على بيانات والمطلوب تقرير يظهر البيانات على الشكل او الطريقة التالية ( توضح) باستخدام نموذج وسيط يتم من خلاله الفلترة حسب الطريقة التالية ( توضح) ...........

انا طلبت منك ترسم لي بخط يدك النتيجة التي تريدها في التقرير وقبلها قل لي ما الذي احدده على النموذج

' دوران على السجلات If Not RS.BOF And Not RS.EOF Then 'الذهاب لآخر سجل ثم العودة لأول سجل RS.MoveLast: RS.MoveFirst ' بينما لم تنتهي السجلات While (Not RS.EOF) المتغير phone يساوي رقم الجوال في الجدول phone = RS!jawal ارسل مفتاح كنترول + الت + السلاش وهنا يقف المؤشر على مربع البحث في المتصفح Call SendKeys("^%/", True) غفوة ثانيتين Sleep 2000 ارسل قيمة المتغير التي تمثل رقم الجوال Call SendKeys(phone, True) ارقد ثانيتين Sleep 2000 ارسل انتر SendKeys "~" نوم Sleep 2000 ارسل نص الرسالة Call SendKeys(message, True) ثانيتين Sleep 2000 انتر وهنا يقوم الواتس بارسال الرسالة SendKeys "~" نوم سبع ثواني من اجل يلتقط انفاسه وينتقل الى اعلى الكود ليبدأ العملية نفسها مع رقم جوال آخر Sleep 7000

انظر هذا التعديل وافدني basey2.rar

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

بعد اذن الاستاذ خليفة المطلوب غير مفهوم عندي .. لأن النتيجة في التقرير ارى انها صح اذا تتكرم ترسم لي ما تريده كنتيجة في التقرير

اذا كل جدول فرعي يعتمد في بياناته على ما قبله فأنت ملزم بالطريقة 1 ... ستظهر لك هذه الحاجة عند تصميم التقارير طريقتي في مثل (تصميمك) هو حذف العلاقات بين الجداول ، واعتمد في ادراج المعرف على : ( مربعات التحرير لأضمن عدم الخروج عن النص ) ، حسب التصميم وعلاقة كل جدول بالآخر وفي التقارير تكون العلاقات داخل الاستعلام

اعداد وتصميم قاعدة البيانات ( الجداول ) بطريقة علمية صحيحة .. تمكن من التطوير المستقبلي بكل يسر ، وتجنبك نهايات الطريق المسدود سبق وان اشرت الى هذا في مشاركتي هذه وما بعدها في موضوعك ذاك .. وتم التوجيه هناك الحلول البرمجية السريعة .. هي حلول مؤقتة عند الازمات فقط

عليكم السلام من المؤكد ان الغالب مر بهذه التجربة في الاستعلامات تتعدل من نفسها ، الا في المعايير تحتاج تصحيح يدوي ، والاشكال الأكبر في الاكواد في المحرر او داخل الحقول في النماذج والتقارير ولا اعتقد وجود حل برمجي لحل مثل هذه المشكلة . لهذا يتبين اهمية تأسيس الجداول ... في اعمالي احرص دائما ان يكون اسم الحقل فريدا على مستوى قاعدة البيانات

العنوان لا يصف الموضوع يغلق ،،،

تفضل BASET5.rar

هل جربت الحل الثاني .. فالذي طلبته موجود فعلا .. ولكنه عند الحفظ من اجل عدم الازداوجية .. ارفق لي المثال الذي تريد التعديل عليه

كل شيء ممكن .. ولكن ابحث عن الاسهل والاقوى في الوقت نفسه الحل ان تعمل نموذج خاص بالتعديل .. ولست بحاجة لجلب بيانات .. يكون نسخة طبق الأصل من نموذجك و تحذف جميع الاكواد الخاصة بالنموذج .. ويكون مربع النص للتصفية والفلترة حسب التاريخ لأن النموذج الحالي في الحل الثاني مصدره جدول temp ، وفي الحل الأول مشترك بين جدولين ،، الصعوبة ان النموذج تم احكامه وضبطه من اجل تلافي التكرار لأن العملية كلها الحاق في الحاق

وهذه طريقة أخرى الطريقة السابقة الأولى تعتمد على حقل في الجدول الملحق اليه الطريقة الثانية هذه تعتمد على جدول مؤقت اختر المناسب لك BASET4.rar

هذه الطريقة الأولى الطريقة الأخرى .. يتبع ... BASET3.rar

سبحان الله انت دائما تفكر وتبحث عن اصعب الطرق للوصول . كلمتي التي ارددها دائما هي حقيقة واقعة : (البرمجة فكر ) بمعنى نفكر اولا حتى اذا تبلورت الفكرة يتم تنفيذها برمجيا على كل حال _ حبيبنا _ سوف اوافيك باكثر من حل حسب طريقتك ... انتظرني ،،،

اخي الكريم يجب الاهتمام باختيار العنوان المناسب المختصر الذي يصف الموضوع ،، كي لا تعرض موضوعك للاغلاق . تم تعديل العنوان ،،،

تفضل me.Ecost=me.Serv_Type.Column(1) New2.accdb

اذا لديك قسم في الهاردسك بمسمى : D ضع برنامجك فيه فلعله يعمل اذا لا يوجد قرص بهذا المسمى يمكنك انشاء قرص شبكة وهمي واعطه الاسم : D