ابو جودي

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

اتفضل 1297.2020_2.rar

Attendance.accdb

ولكن عندى القليل من النصائح - تسمية الكائنات بالإنجليزية مع مراعاة عدم ترك مسافات بين الكلمات وليكن الحرف الاول مثلا كبير مثل ( AliaYusrElddin ) ذلك يسهل كثيرا مستقبلا كتابة الاكواد ولا يحدث مشاكل ان كاانت اعدادت الجاسوب لا تعتمد على العربية هذا طبعا بجوار عدم استخدام الحروف العربية داخل محرر الاكواد مطلقا وهذا ما تعلمته من استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr بارك الله فى عمره وعلمه واهله - يستحسن من وجهة نظرى المتواضعة عمل دول اساسى للبيانات كما اننى افضل وضع بيانات الحضور مع الانصراف بنفس الجدول - تسمية الحقول بما يناسب الواقع او تسميتها بما يتلائم مع الية العمل ليسهل لاى من كان الفهم والتطور يعنى مثلا هنا حضرتك استخدمتى نفس الاسماء للحقول فى كل من جدول الحضور والانصراف girlid girlname dateatt

ممكن الاستعلام يكون كالاتي SELECT حضور.girlname, حضور.dateatt AS [In], انصراف.dateatt AS Out FROM حضور INNER JOIN انصراف ON (حضور.girlname = انصراف.girlname) AND (حضور.dateatt = انصراف.dateatt) GROUP BY حضور.girlname, حضور.dateatt, انصراف.dateatt;

2020.mdb

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

جزاكم الله خيرا استاذى الجليل ومعلمى القدير على تلك المعلومة لم اكن اعلمها

حاول ترفق مثال ليتم التعديل عليه مباشرة اسهل لك فى الفهم

كيف ؟! انظر 1297.2020.mdb وان كان الاسهل لك هو فتح النمودح المخفى كما اشار استاذنا الجليل اليك المرفق 1297.2020.mdb

نفس الطريقة

فى وضع التصميم اجعل مصدر بيانات مربع نص السنة =[TempVars]![x]

فى اى تقرير ؟ ؟ ما اسم هذا التقرير ؟؟؟؟؟

طيب جرب فتح التقرير باسم rptCridi لو اشتغل معاك تمام فقط عدل القيمة المعلمة فى باقى التقارير بالمعيار الاتى [TempVars]![x] بدلا من Forms!Swichboard!txtYear 1297.2020.mdb

طيب ممكن سؤال استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr عن نفسى مش بحب افتح نموذج مخفى لماذا لا يتم انشاء موديول ونرف متغير عام قيه وليكن Global CrntYear As Integer وفى نموذج فتح التقرير عند التحميل نستبدل Forms!Swichboard!txtYear = Year(Date) بذاك CrntYear = Year(Date) TempVars.Add "x", CrntYear وفى مربع السرد DoCmd.OpenReport stDocName, acViewPreview, , "Year(date()) = " & CrntYear & "" ولا ننسى القيمة المعلمة التى فى التقارير يتم استبدالها ب [TempVars]![x]

يرجى تعديل افضل إجابة على رد الأستاذ @husamwahab وهذا نفس ما تقدم به أستاذي الجليل على المرفق الذى يخص البحث فى ايات القران الكريم البحث فى القران الكريم.zip

انا اسف لان الموضوع تم التأشير عليه بالاجابة لم انتبه لمشاركات حضرتك والحل الان موجود هنا كما تفضل به اخى الحبيب و استاذى القدير الاستاذ @husamwahab

اتمنى ذلك وانا بانتظار ذلك المثال الجامع بفارغ الصبر

ممكن مرفق

قد تحتوى القاعدة على النماذج التي تحوي على اوامر DAO وقد يكون تم الاعلان عن المتغير بهذه الطريقة Dim db As Database لو كلامى صح جرب غير الاعلان عن هذا المتغير بهذه الطريقة وان شاء الله تنحل مشكلتك Dim db As DAO.Database

الشكر لله اهلا بكم

الحمد لله الذى تتم بنعمته الصالحات

هو ايه اللى تمام ؟!

وعليكم السلام ان شاء الله تجد طلبك هنا الموديول أو الوحدة النمطية .. تحتوي عى توابع وإجراءات من نوعين أساسيين: عامة/Public : يتم استدعاؤها من جميع أجزاء البرنامج من خلال اسمها فقط كما ذكر أخي راكان خاصة/Private : تستدعيها الإجراءات من نفس الموديول كما يتم تعريف متحولات عامة في أولها وأنواع و ENum تكون معروفة في جميع أجزاء البرنامج أما Class Module أو وحدة الصنف .. فيتم داخلها تعريف صنف معين ... ويكون لكل صنف اسم يميزه ويحتوي الصنف على إجراءات ودالات خاصة به وعلى خصائص Property وأحداث Events .. ويتم التعامل معها كلها من خلال عنصر من الصنف يتم تعريفه كما ذكر أخي راكان كما يلي : Dim MyObject as New MyClassModule معنى ذلك أننا عرفنا متحول باسم MyObject من النوع MyClassModule وهذا النوع هو عبارة عن صنف تم تصميمه في Class Module وتستخدم الأصناف بكثرة في البرمجة غرضية التوجه .. حيث يتم تقسيم البرنامج إلى مجموعة أصناف وتتم برمجة كل صنف على حدة وهذا يعطي البرنامج قوة إضافية من حيث سهولة التعديل والصيانة والتحديث

طيب اتفضلى يا استاذة لو تكرمتى استبدلى الكود على زر الامر بالاتى Const delay As Single = 0.1 Dim intcnt As Integer Dim sngtimer As Single Dim cprog As New clsLblProg With cprog lblback.Visible = True .Initialize lblback, lblfrot, lblcaption .Max = 10 End With For intcnt = 1 To 10 sngtimer = Timer Do While Timer < sngtimer + delay DoCmd.SetWarnings False DoCmd.OpenQuery "query1" DoCmd.SetWarnings True Loop cprog.Increment Next intcnt lblback.Visible = False