شايب

مشلركة مع الاساتذة يمكن كما اشار الاساتذة باستعلام تحديث ويمكن بكود يتعامل مع مصدر السجلات Dim rs As DAO.Recordset Dim a As Integer Set rs = CurrentDb.OpenRecordset("كتاب") For a = 0 To rs.RecordCount - 1 rs.Edit If rs!الرمز = "ت" Then rs!الرمز = rs!الرمز & " - خ " End If rs.Update rs.MoveNext Next a rs.Close Set rs = Nothing Me.Refresh الملف مرفق اخونا الشايب basep.accdb

الفضل لله وحده اخي مع تمنياتي لك بالتوفيق الشايب

تواضع من معلم واستاذ قدير بل انتم الاساتذة ونحن نتعلم منكم بالتوفيق استاذ مالك 😃

عمل جميل من الاساتذة ولكن لا اعلم لماذا صاحب المثال استخدم قائمة القيم مصدرا للقائمة بينما قيمة هذه الحقول مدرجة في الجدول لو اسند هذه القوائم للجدول لكان بالامكان الربط بين هذه القوائم لعمل فلترة لها بحيث عند اختيار رقم1 تظهر الاسماء المرتبطة في قائمة الاسماء برقم واحد وكذلك الامر للقائمة الثالث اذا تم اختيار الاول تظهر القائمة الثالثة الاسماء المرتبطة به فقط وهنا لا اتحدث عن الفلترة النهائية التي عملها الاساتذة وانما خطوة قبل ذلك وهي فلترة القوائم وجعلها مرتبطة ببعضها وامر اخر استخدام الجدول مصدر للقائمة يعني عن اضافتها يدويا عند اضافة سجلات جديدة اخونا الشايب

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

مشاركة مع الاساتذه الكرام الاخ شايب يعتقد ان فكرة نموذج بحث التي اشار اليها الاساتذة فكرة معقولة ولكن يمكن التوصل للمطلوب بدون الحاجة الى ذلك حيث ان اخفاء او اظهار تبويب استبدال في نافذة البحث مرتبط بحالة التعديل للنموذج نعم او لا وبالتالي يمكن اضافة السطر Me.AllowEdits = False قبل الكود الذي تستخدمه ولكن لابد ان تعيد تغيير الخاصة الى نعم بعد تنفيذ البحث او في اي حدث اخر لتتمكن من تعديل البيانات في النموذج اخونا الشايب

امين لنا ولكم ولكل من مر من هنا ولا ننسى الاستاذ @Foksh راعي الاولة اخونا العزيز شايب 🌹

الشكر لله استاذنا ايضا ممكن نستخدم الامر التالي للوصول للنتيجة Dim x As String Dim i As Integer For i = 0 To lst_XX.ListCount - 1 If lst_XX.Selected(i) = True Then x = x & " - " & lst_XX.Column(0, i) End If Next i x = Mid(x, 4) DoCmd.OpenReport "rap_1", acViewPreview, , , , x الشايب

تعديل بسيط على السطر الاخير بتحميل قيمة ماتم اختيار في امر فتح التقرير Dim selectedItems As String Dim x As String For Each selectedItem In Me.lst_XX.ItemsSelected selectedItems = selectedItems & " - " & Me.lst_XX.Column(0, selectedItem) Next selectedItem x = Mid(selectedItems, 4) DoCmd.OpenReport "rap_1", acViewPreview, , , , x الملف مرفق الشايب base_1.accdb

ممكن ايضا الوصول للنتيجة باستخدام دالة العد Dim x As Byte x = DCount("*", "[Valueco]", "[txtdatay]='" & Me.name2 & "'") If x = 0 Then MsgBox "أدخل الإسم الصحيح" End If الشايب

All_19.mdb

تفضل يا ابا البشر وانا كان فيها لزوم مالا يلزم حيث يمكن ان نصل للنتيجة بدون جداول مؤقتة واستعلام الحاق واستعلام تحديد وايضا بدون الحاجة الى انشاء استعلام بالكود كما في الطريقة على كل حال مرفق الملف حسب الطريقة الثانية وسوف اشير الى الطريقة الثالثة في رد اخر مع التأكيد ان اخونا شايب مجرد هاوي ويترك التجويد للاساتذة basey(٢)(1).accdb

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

ههههه نعم لدي اكثر من طريقة ولكن الاسهل باستخدام جدول مؤقت ونستخدم معيار القائمة لغرض الحاق البيانات المفلترة اما مصدر التقرير فيكون استعلام جديد مبني على الجدول المؤقت جرب المرفق لعله يكون المطلوب ولي عود غدا ان اراد الله الشايب basey(٢).accdb

ولك مثلها واطيب هو مثل دارج ابحث عنه ان اردت وستجد بعون الله تفسير مالم تحط به خبرا تحياتي

اعتقد الصورة المتحركة في ردي السابق تحقق المطلوب وتعطي نفس العدد المطلوب مثلا استاذ1 واستاذ2 ومساعد معلم 2 تعطي نفس النتيجة في صورتك اعلاه 89 ومثلها للاحتمالات الاخرى ولكن اذا اعتمدنا مبدأ لا يفتى ومالك في المدينة فقد آن للشايب ان يتوقف تحياتي

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

ونحن اقصد الاخ شايب يفتخر انه من تلاميذكم 🌹

سبق ان اشرت اليها في مشاركتي الاولى وكذلك في ردي على مشاركة استاذنا ابو خليل لذا جرب المرفق نفس كود اخي جعفر ولكن يفلتر الحقل المجمع في Column(3) الاخ شايب يفضل النظر في الملاحظات التي اشار اليها ولكن النفس وما تريد الشايب basey(1).accdb

وبعد التطبيق انتهت المشكلة والنتيجة صحيحة

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

الله يسعدك يا ابا خليل نفس الفكرة التي عملتها ولكني لم اضع مرفق لوجود تحفظ على بعض النتائج وهي ايضا موجودة في تعديلك جرب اختيار استاذ 1 واستاذ 2 ومعلم 1 يفترض تكون النتائج لثلاث فئات ستجد ان النتيجة اربعة استاذ 1 استاذ 2 معلم 1 معلم 2 وهذا ليس خطأ في الكود ولكن بسبب الحقل الفوج تحياتي

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

ماشاء الله عمل جميل للاستاذ خليفة وممكن الاستغناء عن الاستعلام مصدر التقير عن طريق شرط الفلتر في النموذج في السطر التاسع في زر فتح التقرير نستبدل DoCmd.OpenReport "rpt_Emp_Information", acViewPreview بالامر DoCmd.OpenReport "rpt_Emp_Information", acViewPreview, , Me.Filter مجرد فكرة للتقليل من كائنات البرنامج الشايب

جرب المرفق yy(2).accdb