ابو جودي

ممكن مرفق

قد تحتوى القاعدة على النماذج التي تحوي على اوامر 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

اتفضل شوف الكود ياللى على زر الامر اضافة دى اكواد تخص ادارة الاقساط مالها ومال الورادى للموظفين انا مش فاهم حاجة Dim strSQL As String strSQL = "DELETE G2.[رقم القسط], G2.رقم, G2.التاريخ, G2.المبلغ1 ,G2.المبلغ, G2.[المبلغ كتابه] FROM G2 WHERE (((G2.رقم)=[FORMS]![f1]![رقم]));" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings False Me.Requery Refresh DoCmd.GoToRecord , , acFirst For i = 0 To Forms![f1]![no] - 1 Me.رقم = Forms![f1]![رقم] If Form_f1.القسط.Value = "يومي" Then Me.التاريخ = DateAdd("D", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "شهر" Then Me.التاريخ = DateAdd("m", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "اسبوع" Then Me.التاريخ = DateAdd("WW", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "ثلاث اشهر" Then Me.التاريخ = DateAdd("Q", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "سنة" Then Me.التاريخ = DateAdd("yyyy", i, Forms![f1]![Date]) If Form_f1.القسط.Value = "ستة اشهر" Then Me.التاريخ = DateAdd("Q", i * 2, Forms![f1]![Date]) DoCmd.GoToRecord , , acNext Next DoCmd.Requery

طيب ممكن المرفق

بص البرمجة عاملة زى معادلة الرياضة معطى مجهول = ( مطلوب ) 5 + ( مجهول) = 10 لما تتزن المعادلة ويتحقق الشرطان وجود المعطى ومعرفة النتيجة يسهل الوصول لتحقيق الحل بوضع الالية المناسبة لايجاد لمجهول

اين المرفق ؟