نجوم المشاركات

السلام عليكم ورحمة الله وبركاته 🙂 اليوم يسرني أن أقدم لكم فكرة مبتكرة لتصميم :: الصفحة الرئيسية للبرنامج مع قائمة جانبية متمددة :: بألوان جميلة وتصميم راقي وتحكم شامل بعدد عناصر القائمة والقوائم الفرعية لها 👌 وأهم شي استهلاك أقل كمية من البرمجة والأكواد في التصميم ✌ :: وبدون مقدمات نبدأ على بركة الله :: الفكرة الرئيسة للقائمة الجانبية هي : عمل نموذج فرعي مستمر يستمد بياناته من جدول بحيث أن جميع عناصر القائمة الفرعية عبارة عن سجلات هذا الجدول ، ومن خلال هذا الجدول يتم ترتيب مواقع العناصر من خلال الحقل الرقم Order وكذلك يتم تصنيفها إن كانت زر رئيسي أم فرعي من خلال حقل Main or Sub والأيقونات يتم تخزينها في حقل مرفقات ، وأما الأوامر التي ستنفذها الأزرار فهي مخزنة أيضا في الجدول وهي محصورة في الأوامر التالية ( فتح نموذج - فتح نموذج فرعي - فتح تقرير - فتح تقرير فرعي - إظاهر رسالة نصية) .. والخطوة التي تأتي بعد ذالك هي تصميم النموذج الذي سيضم هذه الأزرار ، ويراعي الترتيب + فرز الأزرار الرئيسية والفرعية في الظهور + التنسيق الشرطي الذي يلون الأزرار بالألوان المناسبة لكل حالة + كود لتنفيذ الأوامر الموكلة للأزرار + .... وهكذا ثم بعد ذلك تصميم نموذج شامل للتحكم بالأزرار .. :: وللاستفادة من هذا الملف :: ستحتاج لهذه العناصر فقط ، ( والباقي كله زيادات لغرض الشرح ) : :: وهنا يأتي شرح يوتيوبي كافي وافي مفصل عن التصميم :: وفيه أيضا فوائد إضافية مثل ( طريقة اختيار أيقونات متناسقة ، وإشارة للنماذج المتطورة الأخرى ) :: تحديثات جديدة :: قمت بتطوير النموذج ليحمل أزرار فرعية وأزرار فرعية من الفرعية بناءا على طلب بعض الإخوة 🙂 كما تم إضافة خاصية إمكانية فتح الماكرو للأزرار .. وكذلك مع إمكانية فتح النماذج والتقارير في وضع التكبير Maximize .. وهذه لوحة التحكم : :: وأخيراا ملف التحميل 🙂 :: ‏‏‏‏Modern Main Page With Main Menue And Sub Sub Btns - Moosak -Maximize-Macro.accdb ملاحظة مهمة : قد لا يعمل هذا النموذج بشكل جيد على النسخ القديمة من 2007 وما قبلها . :: ولا تنسونا من صالح دعواتكم الطيبة 🙂 🌹🌷 ::

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

شكراُ استاذى الكريم هو المطلوب

تمام متشكر يابو جودي علي مجهوك انتظرتك كتير الحمد لله حليت كل مشاكل الكود وخلصت البرنامج وسسلمت الميزانية

مشكورين الى من كان عونا لنا في استرجاع الايميل وشكرا

جزاك الله خير اخي الكريم وتقبل خالي تحياتي لشخصكمالكريم

وعليكم السلام تفضل أخي الكريم =IF(L40="";"";TEXT(L40;"yyyy/mm/dd")&" - "&M40) ثم اسحب نزولاً تقبل تحياتي العطرة. AA.xlsx

اشكرك جزيل الشكر الحمدالله وفرت سطل القهوه حقك صاحبنا

Dim i As String, x As Integer i = Format(Me.DateIn, "yymm") x = DCount("*", "Table1", "Left([JoIn], 4)=" & i) + 1 Me.JoIn = i & "/" & Format(Str(x), "000") Me.Refresh من المهم جدا اضافة جزء السنة الى الشهر ... امامك 75 سنة حتى يتم التكرار ، ولو وضعت السنة كاملة سيكون امامك آلاف السنين نسأل الله حسن الختام لنا ولكم Database2.rar

تفضل اخي الكريم @figo82eg هذا التعديل يتأكد مما اذا كان هناك ملف بنفس رقم الخطاب الحالي أو لا . وأيضاً من أن مربع النص "رقم الخطاب" غير فارغ . Private Sub OpenFiles_Click() If IsNull(Me.رقم_الخطاب) Or Me.رقم_الخطاب = "" Then MsgBox "الرجاء إدخال رقم الخطاب.", vbExclamation, "خطأ" Exit Sub End If Dim File_Path As String, File_Name As String, Name_Path As String File_Path = Application.CurrentProject.path & "\Edit\" File_Name = Dir(File_Path & Me.رقم_الخطاب & "*.pdf") If File_Name = "" Then MsgBox "ملف الخطاب غير موجود.", vbInformation, "تنبيه" DoCmd.OpenForm "sms1", acMaximize Exit Sub End If While File_Name <> "" Name_Path = File_Path & File_Name Application.FollowHyperlink Name_Path File_Name = Dir() Wend End Sub

التعديل تم فعلا على كود المعاينة وكود الطباعة في نموذج الصف الثاني تم اضافة الفاصلة تحت السطر ( لانها موجودة فعلا ) ولكننا اخفيناها عند العرض انظر الكود والفاصلة موجودة DoCmd.OpenReport "تقرير2" & "_" & stDocName, acPreview, , stLinkCriteria Else DoCmd.OpenForm "تقرير2" & "_" & stDocName, acNormal اما اخفاءها عند العرض فتم من خلال مصدر بيانات الصف للقائمة الذي هو الاستعلام الداخلي انظر في الاستعلامين للنموذجين لتعرف الاختلاف .. وهو كالتالي نموذج الصف الأول Expr1: Mid([Name];7) نموذج الصف الثاني Expr1: Mid([Name];8)

خدمة إرسال رسالة قصيرة SMS هي خدمة مدفوعة ولها تكاليف تختلف حسب البلد ومزود الخدمة .

الف سلامة عليك ، وربي يشافيك ويعافيك ،

الكاتب قام بنشر منذ 1 ساعه اخي الكريم الكاتب قام بنشر منذ 1 ساعه

:: قريبا إن شاء الله 😊👌 :: واجهة متطورة بألوان جذابة :: وقائمة رئيسية يمكن تحريرها بسهولة و لها أزرار فرعية :: بأبسط ما يكون