Moosak

شكلي ما وضحت لك فكرة الكود بالشكل المطلوب 😅 كتبته بسرعة بدون تفاصيل ، وهذا كان المقصود ( روتين واحد لكل السورس أوبجكت ) : 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

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

ما شاء الله عليك أخي سيمو .. أنت بحر في هذا المجال .. لذلك تتكلم وأنت عليم بأغواره وأسراره .. 😉 أتوقع أنهم لم يجعلوا الأكسس responsive لمختلف أحجام الشاشات لأنه غير معد ليعمل على الهواتف والأجهزة اللوحية أصلا 😅 ملاحظة : الملف المرفق معطوب هلا تكرمت وأرفقته مرة أخرى

بتعملنا Quiz يعني 😁 زي أيام الجامعة 😅

أيه يا عمنا ،،، دانا بتكلم عربي مية المية 😆 الخطوة الأولى : تنشئ جدول لتضع به روابط الصور .. أو تكتب كود يستورد لك الروابط بشكل مباشر .. الخطوة الثانية : تصمم نموذج وتضع به عناصر الصور (الغير مرتبطة طبعا) .. تسع أو ستة مربعات حسبما تراه مناسبا .. وتضع تحتها زرين (التالي) و (السابق) للإنتقال بين الصور الخطوة الثالثة : تربط مربعات الصور بالروابط عن طريق الكود .. عربي ده ولا مش عربي يا باشا ؟ 😅

بعد ما تضيف روابط الصور في الجدول ، وتعمل الكنترول بوكسس بتاع الصور تعمل لووووب عشان يحط الروابط كـ كنترول سورس لمربعات الصور بحسب عدد المربعات عندك في النموذج .. وتعمل زرار التالي والسابق أسفل الصور .. يمكن تضبط ويمكن لأ .. 😜 أعرف أفكر بس ما أعرف أطبق 😅

لا ما يحتاج تعيد تصميمه أخي عمر ،، أعمله في نموذج فرعي داخل الصفحة

مهندس جعفر ،، لو تكرمت زين تخبرنا بخبرتك ما فائدة الفهرسة ومتى وأين نضعها ( في أي الحقول بالضبط ) ؟ هل على حقل المفتاح الأساسي ؟ أم أين ؟ وهل ( كثرة ) الحقول المفهرسة أو المبالغة فيها يبطئ قاعدة البيانات ؟

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

حياك الله مهندس سيمو .. 🙂 كلامك لا يخلو من الصحة مهندسنا ، ولا مجال للمقارنة بين ال HTML و الأكسس فكل فارس له ميدانه وإمكانياته .. وفي نفس الوقت الأكسس هو برنامج قوي في مجاله وخدمي ولا يستهان به ونحن نتأمل من المطورين في مايكروسوفت أن تتحسن الكثير من الإمكانيات للأفضل .. وبعض مما ذكرته هناك أشياء يمكن عملها ( بإمكانيات الأكسس المتواضعة طبعا ) وإبداع المصمم ونظرته .. فقد رأيت العديد من تصاميم برامج الأكسس تكاد لا تعرفها حتى ترى اشعار الأكسس عليها وذلك من شدة إتقان مصممها .. فرأيي في هذا الأمر أنه راجع لفنيات ومهارات مصمم البرنامج في النهاية 🙂 وتقبل تحياتي ،، 🙂 موسى

هذا شرح مختصر أخي أبا الحسن .. بكل بساطة تقوم بتغيير أسماء الأزرار .. وكل زر من الأزرار تقابله الصفحة الخاصة به جهة اليمين في التاب كونترول P1,P2,P3 وهكذا .. ثم تقوم بتصميم الصفحة الخاصة بكل قسم في ال TAP الخاص به ... بهذه البساطة 🙂