عبد الفتاح كيرة

هذه طريقة أخرى أقوم بشرحها لعل الإخوة يستفيدون منها باستخدام crosstab عناوين الصفوف = رقم الصف و رقم الفصل و عمود حالة القيد بعد تعديلها بحقل nhq و هذا شكل الاستعلام الجدولى و هذه نتيجة تشغيله و هذا تقرير مبنى على الاستعلام الجدولى كما ذكرتم أخ جعفر من قبل ما يفيد ثقل dcount لأنها تفتح الجدول كل مرة والملف مرفق نرجو الاطلاع و إبداء الرأى mezanya-kera.accdb ولى سؤال هام جدا لو فرضنا - وهذا مستبعد لدينا - أنه فى إحدى السنوات لم يوجد طالب معيد فى أى صف من الصفوف الثلاثة النتيجة : سيختفى حقل معيد من الاستعلام الجدولى و سيظهر خطأ فى التقرير المبنى عليه ما رأيكم فى هذه المشكلة؟ وشكرا للأستاذ جعفر

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

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

خزن فى قاعدة البيانات الحالية currentdb جملة الاستعلام التالية مع ملاحظة Where (group=) Fs اسم المتغير الذى سيتم استدعاء الوظيفة به وعند الاستدعاء نجعل المتغير يساوى رقم المجموعة من 1 إلى 11 داخل حلقة تكرارية والبقية تأتى إن تيسر الحال

بداية الوظيفة واسمها وما بين القوسين متغير تطلبه عند استدعائها حجز مكان فى الذاكرة لتخزين السجلات عنوانه rs من النوع recordset ثم مجموعة من المتغيرات من النوع الرقمى تعرف عند استخدامها

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

أستاذ جعفر حفظه الله الصورة تبين المشكلة و قد أرفقت التقرير mezanya.accdb

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

نعم أذكر و هو مستخدم للآن لكن هذه التى معنا الآن مربعات غير منضمة

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

السلام عليكم عدد الفصول فى كل صف يختلف من عام لآخر مثلا الصف الأول فى العام الماضى كان 4 فصول هذا العام صار 5 فصول هل يمكن إدراج مربع نص للتقرير حسب الحاجة بحيث لو كان العدد 4 فصول يتم إدراج 4 فصول وإذا كان العدد 5 فصول يتم إدراج 5 فصول طبعا كل هذا بالكود ما اقتراحاتكم لتنفيذ ذلك والتقرير هو عبارة عن ميزانية مدرسة فى أعوام مختلفة

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

هذا مختصر و سريع أنشأت وظيفة لهذا الغرض Function myfun(fs As Integer) Dim rs As Recordset Dim rrr As Integer rrr = 1 Dim i, ii, iii As Integer Dim r As Integer Dim rr As Integer rr = 1 Set rs = CurrentDb.OpenRecordset("SELECT Students.sery, Students.Group, Students.kolaf, Students.mazroof FROM Students where (group =" & fs & ") order by group") rs.MoveFirst Do Until rs.EOF rs.Edit rs!kolaf = rr rs.Update If rrr Mod 50 = 0 Then rr = rr + 1 End If rrr = rrr + 1 rs.MoveNext Loop rs.MoveFirst rr = 1 rrr = 1 rs.Close Set rs = Nothing End Function و تستدعى هكذا Private Sub test1_Click() Dim i As Integer For i = 1 To 11 myfun i Next i End Sub و التنفيذ سريع حوالى 7 ثوان مع ملاحظة أن بالجدول أكثر من 15 ألف سجل كيرة رقم الغلاف والمظروف2003.mdb كيرة رقم الغلاف والمظروف.accdb و هذا الكود للمظروف Private Sub maz_Click() Dim rs As Recordset Dim rr As Integer Dim rrr As Integer rr = 1 rrr = 1 Set rs = CurrentDb.OpenRecordset("SELECT Students.sery, Students.Group, Students.kolaf, Students.mazroof FROM Students order by sery") Do Until rs.EOF rs.Edit rs!mazroof = rr rs.Update If rrr Mod 50 = 0 Then rr = rr + 1 End If rs.MoveNext rrr = rrr + 1 Loop rs.Close Set rs = Nothing End Sub

وفقكم الله ‏أسباب دفع العقوبة عشرة، وهي: 🔹ثلاثة من العبد: - التوبة - الاستغفار - الحسنات الماحية 🔹ثلاثة من الناس: - دعاءالمؤمنين - إهداءالعمل الصالح له - شفاعتهﷺ 🔹أربعة يبتديها الله: - المصائب المكفرة في الدنيا - الفتنة في البرزخ - أهوال القيامة - مغفرة الله بفضله

بالتو فيق إن شاء الله

إذا كان عدد المحافظات كبيرا فالأفضل إنشاء جدول للمحافظات كود المحافظة اسم المحافظة ثم تستخدم هذا الكود لاستخراج رقم المحافظة من الرقم القومى ووضعه فى حقل رقم المحافظة وكذا - بالمرة - استخراج يوم و شهر و سنة الميلاد و تحويلها إلى تاريخ ميلاد كامل ووضعه فى حقل تاريخ الميلاد و هذا لكل السجلات وبسرعة مذهلة Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("tblmain") rs.MoveFirst Do Until rs.EOF rs.Edit rs!Mohafza = Nz(mID(rs![CHqawmy], 8, 2)) rs!CHBDay = Nz(mID(rs![CHqawmy], 6, 2)) rs![CHBmonth] = Nz(mID(rs![CHqawmy], 4, 2)) If Nz(mID(rs![CHqawmy], 1, 1)) = 2 Then rs![CHYear] = Val(mID(rs![CHqawmy], 2, 2)) + 1900 Else rs![CHYear] = Nz(mID(rs![CHqawmy], 2, 2)) + 2000 End If rs!Tmelad = DateSerial(rs!CHYear, rs!CHBmonth, rs!CHBDay) rs.Update rs.MoveNext Loop Me.Requery DoCmd.GoToRecord , , acFirst Set db = Nothing Set rs = Nothing فالنتيجة هى وضع رقم المحافظة فى مربع تحرير و سرد يظهر الحقل الثانى و هو اسم المحافظة و ليس رقمها

مشكور أخى بارك الله فيك

بارك الله فيكم بارك الله فيكم

أيضا هناك بعض الجداول و النماذج لا تفتح بارك الله فيكم

بارك الله فيكم

تمام بارك الله فيكم

متابع

بارك الله فيكم

معلومات قيمة أستاذ جعفر أظنها رد فى موضوع آخر عموما شكرا لك

بارك الله فيك أستاذى الفاضل