صالح حمادي

السلام عليكم 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

السلام عليكم و رحمة الله تعالى و بركاته تقبل الله منا و منكم الصلاة و الصيام و القيام إخوتي في هذا المنتدى الغالي آسف جدا لتأخري في الرد لكثرة إنشغالاتي هذه الفترة من مرض الوالد إلى ضغط العمل المهم: لقد قمت بإضافة الملاحظات التي أشار إليها الإخوة إلى البرنامج و هي كالتالي: 1- ملاحظة الأستاذ @Shivan Rekany التي تخص مشكلة تقديم التاريخ قمت بالتعديل على المرفق بحيث إذا كانت المدة بين تاريخ اليوم و آخر إستعمال للبرنامج أكبر من 7 أيام يظهر البرنامج رسالة للتأكد من أن تاريخ الجهاز صحيح. 2- ملاحظة الأستاذ @sandanet التي تخص عدم التفعيل إذا كان البرنامج مفعل. الآن أصبح البرنامج يرفض التفعيل إذا كانت المدة المتبقية أكبر من 15 يوما. 3- ملاحظة الأخ @Aliko في ما يخص استعمال رقم الهارديسك. رقم النسخة الآن غير ثابت فهو يتغير من جهاز إلى آخر حسب رقم الهارديسك. و هذا هو المرفق:‫‫فترة تجريبية2003.rar ‫‫فترة تجريبية.rar بالنسبة للاشخاص الذين قاموا باستعمال المرفقات الموجودة في المشاركات السابقة عليهم بتشغيل البرنامج الموجود في هذا المرفق من أجل مسح جميع البيانات السابقة من الرجستري و البدء من جديد. حذف المجلدات من الرجستري.rar أهلين أخي ابا جودى تقبل الله صيامك لا يتم تفعيل النسخة بنفس الرقم السابق جرب المرفق الأخير نعم. و سوف أعدل على الكود في الأيام القادمة إن وجدت بعض الوقت من أجل أن يبقى التفعيل صالحا حتى بعد الفورمات إن شاء الله لاحظ الكود الموجود في المرفق فأنا استعملت نفس الكود

نعم أخي أنا قلت في تعليق سابق جعلت رقم النسخة ثابت من أجل تبسيط الموضوع و يمكن أن نجعله متغير أما بالنسبة لرقم التفعيل الذي يولده برنامج التفعيل فهو يتغير من يوم إلى آخر جرب خذ رقم تفعيل اليوم ثم غير التاريخ و خذ رقم تفعيل ثاني و قارن بينهما

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