صالح حمادي

السلام عليكم يوجد هناك برنامج جاهز يعطيك جميع هذه الخصائص و أكثر اسمه aSc TimeTables https://asc-timetables.ar.uptodown.com/windows

ما هي نسخة الأوفيس التي تستعملها هل استعملت المرفق الأخير أم المرفق الأول

في هذا السطر من كود التفعيل غير العدد 140 إلى أي عدد تريده

السلام عليكم For Each tbl In app.CurrentData.AllTables للإنتقال بين جميع جداول القاعدة If Left(tbl.Name, 3) <> "MSy" Then إذا كانت الأحرف الثلاثة الأولى من اسم الجدول تختلف عن MSyمن أجل عدم حذف جداول النظام app.DoCmd.DeleteObject acTable, tbl.Name هذا الكود يقوم بحذف الكائن من نوع جدول End If Next tbl

تفضل جرب هذا المرفق و إن شاء الله راح تم الفرحة kanory.rar

السلام عليكم هذه تجميعية بسيطة ربما تفيدك

السلام عليكم استبدل هذا السطر Set db = CurrentDb() بهذا السطر Set db = OpenDatabase(Me.txtPath)

السلام عليكم قم بوضع هذا الكود خلف زر أمر و قم بتنفيذه. Dim i As Integer For i = 1 To CommandBars.Count CommandBars(i).Enabled = True Next i

أيضا منع ظهور ورقة الخصائص في وضع التصميم

إذن استعمل كود الأستاذ شفان فهو الذي يقوم بالمطلوب

عيد سعيد و عمر مديد و كل عام و أنتم بألف خير تقبل الله منا و منكم الصلاة و الصيام و القيام و صالح الأعمال إن شاء الله

السلام عليكم أخي محمد يجب أن توضح المطلوب أكثر : هل هو إخفاء شاشة الأكسس؟ أم إخفاء شريط أدوات أكسس؟

السلام عليكم يجب عليك أن تزيل جميع عناصر النموذج من التخطيط. الصور التالية توضح ذلك: طريقة ازالة التخطيط: و هذا ملفك بعد التعديل عليه: ‏‏‏‏DBSystem -1122.rar

قم بإرفاق ملفك لكي أطلع عليه

السلام عليكم قم بإضافة الكود التالي تحت سطر العنوان مباشرة: On Error Resume Next و لقد قمت بالتعديل على الموضوع و إضافة هذا السطر للكود

السلام عليكم لماذا لا تستعمل مربع تحرير و سرد واحد و تضع به اسماء جميع التقارير و تضيف الكود التالي في حدث بعد التحديث: Private Sub ãÑÈÚ_ÊÍÑíÑ_æÓÑÏ1_AfterUpdate() DoCmd.OpenReport me.imperition, acViewPreview End Sub بحيث imperition اسم مربع تحرير و سرد فعندما تختار اسم أي تقرير يقوم الكود بفتح هذا التقرير

الدرس التاسع: دوال الرياضيات السلام عليكم. نعود بعد مدة من الإنقطاع لنكمل ما بدأناه من هذه الدروس. هذا الدرس مخصص لشرح دوال الرياضيات: Abs: تستخدم هذه الدالة من أجل استخراج القيمة المطلقة لعدد. Abs(«رقم») Abs(-10)=10 Abs(10)=10 Cos: تستخدم هذه الدالة لاستخراج جيب تمام الزاوية. Cos(«الزاوية») pi = 3.14159265358979 Cos(pi/3)=0.5 ملاحظة: قيس الزاوية يكون بالراديان 3.14159265358979 rad = 180° Sin: تستخدم هذه الدالة لاستخراج جيب الزاوية. Sin(«الزاوية») pi = 3.14159265358979 Sin(pi/6)=0.5 Tan: تستخدم هذه الدالة لاستخراج ظل الزاوية. Tan(«الزاوية») pi = 3.14159265358979 Tan(pi/4)=1 Exp: تستخدم هذه الدالة لارجاع عدد مزدوج يحدد قيمة أساس اللوغاريتم الطبيعي مرفوع لقيمة معينة. Exp(«رقم») Exp(10)=22026.4657948067 Int: تستخدم هذه الدالة لاستخراج الجزء الصحيح من عدد. Int(«رقم») Int(4.51) =4 Sqr: تستخدم هذه الدالة لحساب الجذر التربيعي لعدد. Sqr(«رقم») Sqr(16)=4 Log: تستخدم هذه الدالة لحساب اللوغاريتم الطبيعي لعدد. Log(«رقم») Log(10)=2.30258509299405 Rnd: تستخدم هذه الدالة لتوليد رقم عشوائي من نوع مفرد. Rnd(«رقم») Rnd(2)=0.7671117 Rnd(2)=0.05350453 Round: تستخدم هذه الدالة لتقريب عدد عشري إلى عدد محدد من الفواصل العشرية. Round(«الدقة», «الرقم») Round(12.364,1)=12.4 Round(12.364,2)=12.36 Sgn: تستخدم هذه الدالة لإرجاع عدد صحيح يشير إلى رقم العدد. بحيث: يعيد 1 إذا كان العدد أكبر من الصفر (0) يعيد 0 إذا كان العدد يساوي الصفر (0) يعيد -1 إذا كان العدد أصغر من الصفر (0) Sgn(«رقم») Sgn(12)=1 Sgn(0)=0 Sgn(-3)=-1 Fix: تستخدم هذه الدالة لإرجاع الجزء الصحيح لعدد. Fix(«رقم») Fix(12.56)=12

السلام عليكم هذا الموضوع مكرر و له نفس الإجابة هنا يغلق

السلام عليكم طريقة استعمال شريط أدوات بإستعمال XML في هذه المشاركة: أداة إنشاء شريط الأدوات في هذه المشاركة:

ما شاء الله أستاذ محمد فكرة و لا أروع جزاك الله خير الزاء إن شاء الله

أهلين أخي @king5star الحمد لله أن الكود نجح معاك سبب غيابي هو كثرة ضغط العمل و مرض الوالد شفاه الله فأنا الآن أقوم بجميع أعماله

السلام عليكم تفضل أخي هذا هو الكود Dim str_code As String Dim name_frm As String Dim frm As AccessObject, dbs As Object Set dbs = Application.CurrentProject For Each frm In dbs.AllForms name_frm = frm.Name DoCmd.OpenForm name_frm, acDesign str_code = "Private Sub Form_Load()" & vbCrLf & _ "call Color_V(me)" & vbCrLf & _ "end sub" Forms(name_frm).Module.AddFromString str_code DoCmd.Close acForm, name_frm, acSaveYes Next

ما شاء الله على هذا العدد أولا ما هي المدة الزمنية التي قضيتها في انشاء هذا العدد من التقارير ؟؟؟ ثانيا هل كل هذه التقارير في قاعدة واحدة ؟؟؟ هههههه ثالثا يمكنك تغيير الخاصية لجميع التقارير دفعة واحدة و لن ياخذ منك هذا و قتا طويلا انشئ نموذجا جديدا في القاعدة و أنشئ به زر أمر و أكتب خلف زر الأمر الكود التالي: Dim str_code As String Dim name_rpt As String Dim rpt As AccessObject, dbs As Object Set dbs = Application.CurrentProject For Each rpt In dbs.AllReports name_rpt = rpt.Name DoCmd.OpenReport name_rpt, acDesign Reports(name_rpt).PopUp = True Reports(name_rpt).Modal = True str_code = "Private Sub Report_Load()" & vbCrLf & _ "DoCmd.Maximize" & vbCrLf & _ "end sub" Reports(name_rpt).Module.AddFromString str_code DoCmd.Close acReport, name_rpt, acSaveYes Next ثم قم بتشغيل النموذج و انقر على الزر مرة واحدة سوف يقوم بإضافة الخصائص الموجودة بالكود لجميع التقارير و يمكنك إضافة أي خاصية تريدها لا تنسى أخذ نسخة إحتياطية من القاعدة قبل التطبيق

و فيك بارك الله أخي العزيز @sandanet نعم استاذنا الغالي محمد هذا هو عيبها و الطريقة التي أشرت إليها أفضل شكرا صديقي شفان

تفضل هذا هو التعديل كما تريد التقرير.rar