Moosak

أستاذ @abouelhassan أكتب سؤالك في موضوع جديد إتباعا لإرشادات المنتدى 🙂

لتطبيق الصلاحيات على أي نموذج أكتب هذا السطر في حدث عند الفتح للنموذج : Private Sub Form_Open(Cancel As Integer) Call Permissions End Sub باب الإبداع مفتوح لكم 😉👌🏼 البرنامج شغال زي السكينة على الطحينة 👍🏻😄 قم بتأمين الملف وتمكين الماكرو أخي @abouelhassan موضوع الصلاحيات باب واااااااسع جدا جدا .. وهذا مجرد نموذج مبسط .. ويمكنك الإضافة عليه كما تحب 🙂👌🏻

ما شاء الله تبارك الرحمن 🙂 🌹 فكرة رائعة أخي حسان @hassan123 وهذا دليل على أنه لا حدود للإبداع في الأكسس 👌🏼 بالإضافة للنقطة التي ذكرها أستاذنا @ابوخليل ( وهي نقطة مهمة في نظري ) .. فقط أنبهك لموضوع الروابط للواجهة القديمة و ملف التحديث و رابط التحديث الجديد .. هذه الروابط لو تجعل الكود يتعرف على مواقعها بشكل أوتوماتيكي سيسهل عليك بعض الأمور ... منها : 1- في الجدول xVer أضف حقل لمكان وجود ملف التحديث وذلك للحصول عليه تلقائيا من الجدول وذلك لأنك قد ترغب مستقبلا في تغيير أسمه أو موقعه دون الحاجة لتغييره يدويا في الكود. 2- قد يتم تنصيب البرنامج على قرص آخر غير ال C لذلك إجعل تحديد مواقع التنصيب شيء من هذا القبيل : 'حذف البرنامج النسخة V001 Kill CurrentProject.Path & "\Shaoon.accdb" ' موقع نسخة البرنامج المحدثة Dim NewUpdatePath As String NewUpdatePath = DLookup("[NewUpdateFilePath]", "[xVer]") 'نسخ النسخة الجديدة002 ووضعها بدل النسخة التي انحذفت FileCopy NewUpdatePath, _ CurrentProject.Path & "\Shaoon.accdb" . . . . ...... <<تكملة الكود>> لاحظت بأنك قمت بربط التحديث الجديد بقاعدة البيانات قبل وضع التحديث موضع التنفيذ وهذا شيء جيد 👍🏻🙂

وعليكم السلام ورحمة الله 🙂 استخدم طابعة افتراضية تحفظ التقرير على شكل صور .. مثل : https://www.ab-tools.com/en/software/freeimageprinter/ أو https://virtual-imageprinter.en.softonic.com/ ويمكنك أن تعين هذه الطابعة كطابعة افتراضية لهذا التقرير بحيث يتم الحفظ مباشرة عليها 🙂

إطلالتك هي الأروع أخي @SAROOK 🙂

السلام عليكم 🙂 الكود صحيح .. المشكلة فقط هي أن النموذج الثاني يجب أن يكون مفتوح ليعمل الكود .. هنا أضفت لك سطر للتحقق من أن النموذج الثاني مفتوح قبل تطبيق الكود .. ولو كان مغلق يفتحه ' للتحقق من أن النموذج الثاني مفتوح قبل تطبيق الكود If CurrentProject.AllForms("frm2").IsLoaded = False Then DoCmd.OpenForm "frm2" If Me.on = True Then Forms!frm2.btn.Visible = True Else Forms!frm2.btn.Visible = False End If

ننتظر بشوق 😊👌🏻

حياك الله أخي سليمان .. - نموذج الصفحة الرئيسية هو منطلقك للدخول إلى باقي أجزاء البرنامج المختلفة .. 🙂 - نعم يمكنك تطويره كما تشاء 🙂✌️

نتمنى لك التوفيق أخي حسان .. 🙂🌷 ولو صبرت علي قليلا .. سأقوم بعون الله بإنزال التحديثات الأخيرة حول هذا الموضوع مع الملفات كاملة 🙂👌

بشكل سريع لتلبية طلبك يا سيدي .. وبدون الغوص في التفاصيل .. هذه واجهة تحميل التحديث الجديد على الشبكة المحلية : وللحصول على موقع نسخة الجداول + الواجهة الحالية للمستخدم ( نفس الموجودة في الصورة أعلاه - الجزء السفلي ) هذين هما الكودين : موقع نسخة الجداول BE : =Nz(DLookUp("Database";"MSysObjects";"Type=6");[CurrentProject].[FullName]) موقع نسخة الواجهات FE : =[CurrentProject].[FullName]

كما ذكر المهندس فادي @Foksh قمت بعمل فكرة سابقا واشتغلت عليها فترة وكانت ناجحة ولله الحمد .. لكن واجهت فيها بعض الإشكالات وطورتها لاحقا بعمل وسيط ملف VBS هو اللي يقوم بعملية حذف الإصدار القديم وتنزيل الإصدار الجديد ، بالإضافة جعلت البرنامج تلقائيا يتعرف على مكان واجهات البرنامج ومكان قاعدة الجداول .. 🙂 وإلى الآن أعمل بهذي الطريقة ومرتاح جدا معها وتشتغل معاي بدون أية مشاكل ولله الحمد 🙂 .. ولازلت أنوي إنزال موضوع متكامل إن شاء الله يشرح الآلية الجديدة لتحديث البرنامج لدى المستخدمين .. 🙂✌ رابط الآلية القديمة :

وهنا أيضا 🙂 :

شكرا لك أخي @king5star إطلالتك هي الأجمل 🙂

كل الاحترام والتقدير لك على مرورك الطيب اخي @abouelhassan 🙂

أهلا وسهلا بك أخي فؤاد .. جمالها من جمال قلبك 😊🌹

السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم بكل خير وسرور .. وتقبل الله منا ومنكم صالحات الأعمال .. 😊🤲🏻 يطيب لي أن أقدم لكم هذا الهدية المتواضعة بمناسبة هذا الشهر الفضيل 🙂🌼🎁 استبدل الرسائل العادية في أكسس برسائل ذات تصاميم قمة في الإبداع وبمميزات إضافية . من مميزات هذه الرسائل: - تصميم جميل وألوان جذابة. - خاصية ذاتية الاختفاء. - عنوان رئيسي + عنوان فرعي - تحكم بالنص ( عربي - إنجليزي ) ( توسيط - محاذاة على اليمين أو اليسار) - سهلة الاستخدام . الشرح على اليوتيوب : التحميل 🙂 Moosak MsgBox.accdb ولا تنسوني من صالح دعواتكم 😊🌷🌼🌹

ما شاء الله عليك شعلة من النشاط أستاذ فادي @Foksh 🙂 شكر لك على الهدية الرائعة ، والتنسيق الجميل والتقنيات الحلوة 🙂 أتعبني رقمي الوظيفي لحد ما حفظته 😅 طوييييييييييل .. لعلك تجعل إدخال الرقم الوظيفي كخيار .. وخصوصا للذين عندهم أرقام سابقا 🙂 ملاحظة في خيار طلب الإجازة : تاريخ النهاية ينكتب خطأ : والله يسعدك على هذي الهدايا القيمة 🙂

جرب هذا : 🙂 DoCmd.OpenReport ReportName, acNormal

شغل محترفين ما شاء الله 😉👌🏻 🌹🌼

نعم .. هكذا يتم الأمر في ال VBA 🙂

هنا يوضع اسم الجدول وليس اسم الحقل

سلمت يمناك حبيبنا الغالي 😄🌹 في ميزان حسناتك يا رب 😊 تم دمج الرابط مع المشاركة الأولى 😉👌🏻

Null و "" شيئان مختلفان حتى من حيث تعامل الأكسس معهما 🙂 أنصحك بمشاهدة هذه الفيديوات ( هي باللغة الإنجليزية ولكن ممكن تشغل الترجمة بالعربية ) :

ضع ما شئت من الأزرار 🙂 ولكن مع مراعاة الشرط والسر الرئيسي وهو ( مسميات الأزرار ) لاحظ أن أسماء الأزرار لها تسلسل واضح .. فقط عندما تضيف أي زر رئيسي أو فرعي تراعي نفس النسق في التسمية .. وبعدها الكود سيتعرف بنفسه على الأزرار الفرعية لكل زر رئيسي 🙂 ولو أضفت أزرار رئيسية جديدة .. لا تنسى تضيف أسم الدالة في حدث عند النقر: ‏‏صفحة رئيسية مطورة - النموذج الثاني.accdb