Moosak

باش مهندسنا @ابو جودي عند الفتح تظهر لي رسالتي خطأ : 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 .. 🙂🌹 بعد أذن جنابكم المصون .. أحس أن هذا الموضوع موقعه منفصل عن موضوع الواجهات الأصلي .. لأن الإخوان هنا يطلبون مساعدة وتعديلات على برامجهم الشخصية مستفيدين من الأفكار التي تم وضعها في الموضوع الأصلي .. وليست أفكار وواجهات جديدة 😄 ولا أيش رأي جنابكم ؟ ☺️

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

نسيته ورديت أضفته من جديد الآن موجود 😄

أهلا بك أخي @waheidi إضافة إلى ما قدمه أخي @Amr Ashraf من فكرة ال TAG أضفت لك خاصية إخفاء جميع الأزرار الأخرى عند الضغط على زر معين .. ولكن يجب أن تنتبه لعدة أمور : كما ذكر لك أخي Amr يجب أن تضع نفس الـ Tag لكل مجموعة أزرار فرعية ، ثم عند الضغط على الزر ( الرئيسي للمجموعة ) تضع هذا الأمر عند الضغط : hideSubBtns ("Tag") ' بين القوسين تضع التاج الخاص بتلك المجموعة BtnClick الأمر الثاني .. جميع الأزرار الفرعية ( يجب ) أن يبدأ اسمها بـ (SBtn) ... بالنسبة للأزرار الفرعية عندما تربطها بأمر معين كفتح نموذج أو تقرير مثلا .. تضع هذا الكود بعده، وذلك لكي يخفي جميع الأزرار الفرعية : hideSubBtns ("") وهنا شكل التعديل وقد أصلحت لك خاصية طي القائمة الرئيسية أيضا : مرفق لك التعديل : New Microsoft Access Database (2).accdb

حياك الله أخي قاسم .. 🌹 ذكرت سبب جعلها على اليسار في رد سابق 🙂

إشتغلت أحسن وأحلى من العسل 😊👌🏼 ربنا يديك تلاته مليون جنيه ياشيخ 😄 @ابو جودي وياريت لو يختارها الأستاذ @RaDwAn00 كأفضل إجابة 🙂

أستاذنا العزيز @ابو جودي أحسن الله إليك ، احتجت لهذا الكود في أحد قواعد البيانات اللي شغال عليها ..😊 لكن عند التشغيل تظهر لي رسالة بأن هذا المتغير غير معرف : Response = False كيف يتم تعريفه لكي يعمل الكود ؟ وكذلك تظهر رسائل خطأ عندما تكون أول السجلات ويحاول الكود بأن يذهب للسجل السابق بالأمر : acCmdRecordsGoToPrevious لكنها تختفي مع On Error Resume Next

أحسنت صنعاً .. لك جزيل الشكر وعظيم الإمتنان ☺️