Moosak

تفضل أخي نبيل : nabilDatabase23.accdb

أخي الحبيب،، مربع النص الذي تقصده هو مربع خاص للبحث عن الملفات ،، وكذلك أنت عملت أمر الطباعة للنموذج نفسه وهذا خطأ .. للطباعة ينبغي تصميم تقرير منفصل عن النموذج ويعتمد في بياناته على نفس استعلام النموذج .. وقد أصلحت لك ذلك بإنشاء تقرير جديد للطباعة .. ويمكنك الآن تنسيق التقرير كما تحبه أن يظهر عند الطباعة .. Database1.rar

وعليكم السلام ورحمة الله وبركاته .. يمكنك ذلك عن طريق استعلام إلحاق -----> تلحق الموظف بجدول الأرشيف وبعد ذلك استعلام حذف ------> لحذف الموظف من جدول الموظفين . ستحتاج لفورم تكتب فيه رقم الموظف المراد إلحاقه وذلك لتعتمد الاستعلامات عليه في الحصول على رقم الموظف المقصود .. وبعد ذلك زر يشغل لك الاستعلامين بالتتالي : ( إلحاق >> ثم حذف) ويمكنك الاستغناء عن عمل جدولين للموظفين وللأرشيف .. بإضافة حقل [نعم/لا] في جدول الموظفين وتسميها الأرشيف مثلا ،،،، وبعد ذلك يبقى جميع الموظفين في نفس الجدول فقط ستحتاج لزر يشغل لك استعلام تحديث لكي يضع علامة صح للموظف لإخافائه من قائمة الموظفين الحاليين ،،، طبعا ولا تنسى جعل نموذج الموظفين يعتمد على استعلام يظهر لك الموظفين الذين ليس عليهم علامة صح فقط ..

تفضل أخي العزيز .. تكتب رقم الملف وتضغط على [عرض] لفتح الملف المطلوب Database1.rar

ما شاء الله طريقة سهلة وسريعة ورائعة .. والأجمل أنها لا تظهر للمستخدم نافذة الخيارات .. تزيل الشريط العلوي للبرنامج . وكذلك تعطل فتح القاعدة بزر الشفت Shift . بدون أكواد وبدون كثير إعدادات .. أحييك على هذا الطرح .. 😊 لو أنك دعمته بالصور لحضي باهتمام أكبر .. 👍🏼😉 الفكرة باختصار : هي تغيير ملحق الملف من accdb إلى accdr فيصبح شكل الملف هكذا : وهذا تطبيقي :

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

عند الفتح : عند التشغيل :

باش مهندسنا @ابو جودي عند الفتح تظهر لي رسالتي خطأ : 1 2 وعند محاولة تشغيل المقطع تظهر لدي رسالة الخطأ هذه

وعليكم السلام ورحمة الله وبركاته اضغط الملف ببرنامج ال WinRAR مثلا ثم أعد تحميله ..

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

لله درك يا رجل .. 😃 أنَّا لك كل هذا العلم 😁 بسم الله ما شاء الله عليك .. حاولت أفصص وأفكك الدوال والأكواد وما فقهت منها إلا قليلا 😅

أيش أسوي مديرنا .. هم يفتحوا مواضيح جديدة 😅

تفضل أخي العزيز عملتها لك في زر عند النقر على الأزرار الفرعية .. وكذلك عند مرور الماوس مرة تفتح ومرة تقفل 😁 test (2).rar

يمكنك عمل ذلك بدون أكواد .. بالذهاب الى خصائص الحقل في الجدول >> ثم في خيار مفهرس >> تختار نعم (التكرار غير مقبول ) ..

السلام عليكم ورحمة الله وبركاته درسنا اليوم يتكلم عن كيفية تحزيم برنامج الأكسس بعد أن تنتهي من تصميم برنامجك وتكون مستعدا لتحويله إلى ملف EXE وذلك ليسهل عليك تنصيبه في أجهزة الحاسوب سواءا لعملائك أو أجهزة العمل أو غيرها .. كل ما ستحتاجه لتطبيق درس اليوم هو : ملف الأكسس / وأيكونة برنامجك الخاص ( اختياري) / وصورة لشاشة البدء بصيغة BMB ( اختياري) / وبرنامج الوينرار WinRAR . فعلى بركة الله ..

تشكر أستاذ جعفر .. 🙂 🌹 ولكن سؤال يراودني .. ليش ننقل الكود في وحدة نمطية ما دام أنه يخدم نموذج واحد ؟

شكلي ما وضحت لك فكرة الكود بالشكل المطلوب 😅 كتبته بسرعة بدون تفاصيل ، وهذا كان المقصود ( روتين واحد لكل السورس أوبجكت ) : Sub DocmdMnu(FrmName As String) Me.frmSub.SourceObject = FrmName End Sub Sub GoDo(ByRef ActiveControlName As String) Select Case Nz(ActiveControl.Name, "") Case Is = "cmdMnu1": DocmdMnu ("frmEmployees") Case Is = "cmdMnu2": DocmdMnu ("Table.tblStudents") Case Is = "cmdMnu3": DocmdMnu ("Table.tblAdministrativeforms") Case Is = "cmdMnu4": DocmdMnu ("Table.tblStudentOffenses") Case Is = "cmdMnu5": DocmdMnu ("Table.tblStatements") Case Is = "cmdMnu6": DocmdMnu ("Table.tblRecords") Case Is = "cmdMnu7": DocmdMnu ("Table.tblDataimport") Case Is = "cmdMnu8": DocmdMnu ("Table.tblCertifications") Case Is = "cmdMnu9": DocmdMnu ("Table.tblPhoneBook") Case Is = "cmdMnu10": Me.frmSub.SourceObject = "" '"Table.tblSystemConstants" DoCmd.OpenForm "frmEmployees" Case Is = "cmdMnu11": Me.frmSub.SourceObject = "" ': Me.frmSub.Visible = False: MsgBox "Welcome to our world of www.officena.net" DoCmd.Close acForm, Me.Name End Select End Sub تم التعديل في المرفق التالي : إبداعات أبا جودي.rar

رووووووووووووووعة ما شاء الله عليك يا @ابو جودي 😊 أقترح عليك تخلي أسم الفورم كمتغير مع اسم الدالة هكذا : Sub DocmdMnu(FrmName As String) Me.frmSub.SourceObject = FrmName End Sub '___________________________________________________ Sub GoDo(ByRef ActiveControlName As String) Select Case Nz(ActiveControl.Name, "") Case Is = "cmdMnu1": DocmdMnu ("FormName") Case Is = "cmdMnu2": DocmdMnu ("FormName") Case Is = "cmdMnu3": DocmdMnu ("FormName") Case Is = "cmdMnu4": DocmdMnu ("FormName") Case Is = "cmdMnu5": DocmdMnu ("FormName") Case Is = "cmdMnu6": DocmdMnu ("FormName") Case Is = "cmdMnu7": DocmdMnu ("FormName") Case Is = "cmdMnu8": DocmdMnu ("FormName") Case Is = "cmdMnu9": DocmdMnu ("FormName") Case Is = "cmdMnu10": DocmdMnu ("FormName") Case Is = "cmdMnu11": DocmdMnu11 End Select End Sub

المنطق سليم 100% 😊👌🏻

@ابو جودي على مهلك رويدا رويدا يا حبيب الملايين 😅🌹🌹 وهو أنا هلاقي أحسن إبداعاتك فين ياسيد المهندسين 😊👌🏻 الحمدلله انحلت مشكلة الواجهات العربية من جهة اليمين بفضل الله ثم إبداعاتك الرائعة 👍🏼🙂 وباقي ملاحظات المهندس @jjafferr اللي في الاقتباس كانت تخص النموذج السادس (الاقتباس الأول) .. وتحديدا جعل القوائم المنسدله تظهر وتختفي بنعومة بدون الرعود والبروق والفلاشات المزعجة كما هو واضح .. ويلا ورينا إبداعاتك يا هندسة @ابو جودي 😏

ضع المرفق ..

ضع هذا الجزء من الكود في حدث عداد الوقت : If DCount("[Emp_Name]", "qry_Matured_License") > 0 Then MsgBox "You Have" & " " & DCount("[Emp_Name]", "qry_Matured_License") & " " & "Expired License!", vbInformation, "You Have " DoCmd.OpenForm "frm_Notification", acNormal, , , , acWindowNormal Else End If واجعل قيمة الفاصل الزمني لعداد الوقت = 3600 لكي تظهر كل ساعة و = 7200 لكي تظهر كل ساعتين.

ليس بعد .. هناك محاولات ولكن لا تزال السماء تبرق وترعد .. !

مديرنا العزيز @jjafferr .. 🙂🌹 بعد أذن جنابكم المصون .. أحس أن هذا الموضوع موقعه منفصل عن موضوع الواجهات الأصلي .. لأن الإخوان هنا يطلبون مساعدة وتعديلات على برامجهم الشخصية مستفيدين من الأفكار التي تم وضعها في الموضوع الأصلي .. وليست أفكار وواجهات جديدة 😄 ولا أيش رأي جنابكم ؟ ☺️

مين أدك يا عم شغل منظم ومرتب ما شاء الله .. بس !! 😅 باقي تخليه لما نضغط على الزر نفسه تختفي القائمة .. 😊