ابو جودي

ممكن مرفق بالمشكله انا مش فاهم الجزئية السابقة ارجو مرفق يشتمل على المشكلة مع التوضيح لتلك النقطة رجاء

هو ايه النموذج ده استاذى الجليل ومعلمى القدير و والدى الحبيب total deep search

يا هلا بك اختنا الغالية

الان فهمت الطرق الثلاثة لتمرير المعيار الا الاستعلام 1- تمرير القيمة من كائن موجود فى نموذج محدد .... يعيبها لابد ان يكون النموذج مفتوحا [Forms]![FrmName]![ObjectNameOnForm] 2- TempVars TempVars.Add "x", Value as you need ويتم التمرير الى الاستعلام من خلال وضع هذا الكود فى المعيار [TempVars]![x] 3- فى موديول نعرف متغير عام Global AddVar As Variant ونكتب اكواد الروتين التى تستدعيه بهذا الشكل Public Function GetVar() GetVar = AddVar End Function نمرر القيمة الى المتغير العام من اى مكان ومن اى حدث حسب الحاجة AddVar= Value as you need ويتم التمرير الى الاستعلام من خلال وضع هذا الكود فى المعيار GetVar()

ركز جيدا فى تلك الكلمات لانها كلمات من ذهب والحل الان بعيد عن طريقة TempVars ويفتح من كلى الفورمين كل الشكــــــــر لاستاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr 1297.2020.mdb

طيب اجاوب Global AddVar As Variant Public Function GetVar() GetVar = AddVar AddVar = Empty End Function ويكتب المعيار GetVar()

السلام عليكم ورحمة الله وبركاته فى احد الموضوعات تكرم استاذى الجليل و معلمى القدير و والدى الجبيب الاستاذ @jjafferr بالتطرق الى تلك الجزئية يعنى هل هذه الطريقة بديل ل TempVars وهل ممكن مثال مصغر يوضح الطريقة بارك الله فى اساتذتى الافاضل

ولكن نصيحة هذا المرفق افضل بان يستمد المعيار القيمة من النموذج مباشرة وكما تفضل استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr لن تعمل تلك الطريقة مع الاوفيس 2003 70665418_2020(1).mdb

النموذج FrmRapport الحقل تم وضع كود فى بعد التحديث CrntYear = txtYear ومربع السرد Nome_Report عند التفيير تم اضاقة السطر CrntYear = txtYear وكذلك تم التعديل على هذا السطر DoCmd.OpenReport stDocName, acViewPreview ', , "Year(date()) = " & CrntYear & "" لان كانه مشكلة بإلغاء ذلك الجزء منه ', , "Year(date()) = " & CrntYear & ""

اعرف ان استاذى الجليل الاستاذ @husamwahab ما قصر بطرح الحل ووضعه على اكمل وجه ولكن كان قصدى ارفاق القاعدة له فوائد جمه 1- يسهل عليك انت شخصيا معرفة الحل بالاطلاع على التغيرات الجديدة 2- يسهل على من يريد مساعدتك فهم طلبك بوضوح والتكيف اولا مع آلية التصميم والتعامل بعد ذلك معه بوضع الحل المناسب بالآلية التى تتماشى معه

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

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

اتفضل 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