ابو جودي

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

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

كيف ؟! انظر 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

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr للعلم منذ فترة تعرضت فى احد الامثلة لــ موضوع parent وأعتقد كان مثال للاستاذة الفاضلة زهرة ولا اخفيكم سرا لم افهم شئ وهممت بالبحث على الانترنت وتوصلت للموقع ذلك الذى اشرتم اليه ولم افهم شئ كذلك الى الان هههههه ..... معلش صعيدي وافهم بصعوبة بالغة

ممكن تحقيق ذلك ان اردت ولكن ان كانت كمية البيانات كبيرة تطول فترة العمل مع تلك الطريقة المرفق جاهز تم التعديل على جدول attendance باضافة مفتاحان على الحقلان names & recordingdate وذلك لتفادى اضافة نس البيانات فى نفس التاريخ New Microsoft Office Access 2007 قاعدة بيانات (2).accdb

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

لا شكر على واجب اهلا بك

استدل كود الوحدة النمطية بالاتى Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1) Dim DB Dim rs As Recordset Set DB = CurrentDb Set rs = DB.OpenRecordset("select distinct " & Feld2 & " from " & tabelle _ & " where " & Feld1 & "='" & valFeld1 & "' order by " & Feld2) Do If rs.AbsolutePosition = rs.BOF Then Horizontal = Format(rs(Feld2), "yyyy/mm/dd") Else Horizontal = Horizontal & " - " & Format(rs(Feld2), "yyyy/mm/dd") End If rs.MoveNext Loop Until rs.EOF rs.Close DB.Close Set rs = Nothing Set DB = Nothing End Function

يعنى الصح 2019-07-01 ام هذا 01-07-2019

اتفضل يا استاذ @Mostafa Elmahmoudy تفريبا ده طلب حضرتك 1293.Report_Draw_BoxLine.mdb