Moosak

كما ذكر المهندس فادي @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

من ضمن الأسباب (حسب ما واجهني ) لظهور تصرفات غريبة للأكسس بدون أي سبب منطقي هو وجود خطأ في احد الأكواد أو نقصان أحد المكتبات .. تأكد من عمل Debug > compile وإصلاح مشاكل الأكواد والمكتبات عندك ثم أعد التشغيل.

أحييك على الجماليات والفنيات والألوان المبهرات باش مهندس @Foksh 👍🙂 ملاحظات بسيطة 😁 : عند الضغط على اسم البرنامج في شريط الوندوز تظهر شاشة البرنامج الرمادية 🙂 عند الضغط على [غفوة] تظهر رسالة الاستعلام ( أقترح لو تخفيها ) ظهورها مزعج 🙂 عند حذف أحد المنبهات تظل الصفحة ويطلع التالي : بعد الضغط على زر الإغلاق يظل الأكسس شغال في الخلفية 🙂 بالنسبة لنغمة المنبه أقترح تعمل قائمة منسدلة للاختيار من الأصوات المرفقة مع النظام ، وزر لاستعراض الملفات لو حب المستخدم يضيف الملف الصوتي من عنده 🙂 + لون النصوص حبذل لو يكون رمادي فاتح لما تكون الخلفية سوداء لتسهل قرائتها 🙂 هذا وتقبل تحياتي 😊🌹

مرجع التعليمات من مايكروسوفت : https://learn.microsoft.com/en-us/office/vba/api/access.docmd.copyobject

- تسجيل من أضاف السجل . - تسجيل من حذف السجل . - إمكانية التطبيق لجميع النماذج .. هذه ممكنة والله أعلم .. ولكن ستكون لها إجراءات إضافية وتعديلات في جدول التغيرات . 🙂

وعليكم السلام ورحمة الله وبركاته .. 🙂 1- هل تريد نسخ الجدول كجدول كامل لأنه غير موجود في القاعدة المستهدفة ؟ 2- أم أنك تريد نقل البيانات فقط ؟ في الأولى يمكنك نقل (نسخ) الجدول من قاعدة بيانات إلى أخرى عن طريق الكود التالي : Sub CopyTable() Dim sourceDB As DAO.Database Dim destinationDB As DAO.Database Dim sourceTable As DAO.TableDef Dim destinationTable As DAO.TableDef ' افتح قاعدة البيانات المصدر Set sourceDB = OpenDatabase("مسار قاعدة البيانات المصدر.accdb") ' افتح قاعدة البيانات الهدف Set destinationDB = OpenDatabase("مسار قاعدة البيانات الهدف.accdb") ' حدد الجدول المصدر الذي ترغب في نسخه Set sourceTable = sourceDB.TableDefs("اسم الجدول المصدر") ' إنشاء جدول في قاعدة البيانات الهدف بنفس التركيبة Set destinationTable = destinationDB.CreateTableDef("اسم الجدول الهدف") For Each fld In sourceTable.Fields destinationTable.Fields.Append destinationTable.CreateField(fld.Name, fld.Type, fld.Size) Next fld ' إضافة الجدول الجديد إلى قاعدة البيانات الهدف destinationDB.TableDefs.Append destinationTable ' نسخ بيانات الجدول destinationDB.Execute "INSERT INTO [اسم الجدول الهدف] SELECT * FROM [اسم الجدول المصدر]" ' أغلق قواعد البيانات sourceDB.Close destinationDB.Close ' تحرير الذاكرة Set sourceTable = Nothing Set destinationTable = Nothing Set sourceDB = Nothing Set destinationDB = Nothing MsgBox "تم النسخ بنجاح!" End Sub وفي حال أنك تريد نقل البيانات فقط .. أعمل ربط بين القاعدتين عن طريق استيراد الجدول كجدول مرتبط .. ثم يمكنك نقل البيانات بين الجدولين عن طريق استعلام الإلحاق.

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