ابو جودي

طيب ممكن سؤال استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @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

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

اولا شكرا لحضرتك لمساعدتك ثانا انا عارف اgroup and sort ربما فى شئ انا مش اعرفه اذا تفضلت القاعدة مرفقة ممكن تطلع لى التقرير زى الصورة تمام ادى الصورة ودى النتيجة اللى انا محتاج اوصلها وادى قاعدة بيانات اتفضل يا افندم دمج حقل فى التقرير.mdb

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

برنامج الحماية لدى دائما يرى اى ملف .vbs فيروس

يكفي تشغيلها

اتفضلى يا استاذه الملف ده ببكفل بكل شئ أداة تخفيض أمان الماكروز تلقائيا.zip

شوف ياريت لو تشرح انت عاوز تعمل ايه انا مش فاهم اصلا البرنامج اللى اعطتنى اياه بيعمل ايه ع العموم اتفضل نسخة مفتوحة لو حابب تشوف الاكواد وتتعلم منه 1962163050_Workshiftprogramv0.1(2).accdb