Moosak

إطلالتك هي الأروع أخي @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

أزاحم الكبار فقط 😅 عمل قوائم ديناميكية متحركة :: طريقة مبتكرة بأقل كمية أكواد vba

رائع رائع باشمهندس 😉👌🏼 وتم إضافة التحديث في المشاركة الرئيسية .. 🙂 أما آن الأوان لكشف الأسرار 😁😂

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل الكود : يعمل عندي على ويندوز 10 أوفيس 365 Sub ShowVirtualKeyboard() Dim virtualKeyboardPath As String virtualKeyboardPath = "C:\Windows\System32\osk.exe" ' Path to the virtual keyboard executable Dim shellObject As Object Set shellObject = CreateObject("WScript.Shell") shellObject.Run "C:\Windows\System32\osk.exe" End Sub

السلام عليكم 🙂 تفضل هذا شريط تقدم بدون استخدام التايمر 🙂 شريط تقدم بدون تايمر.accdb