هدية رمضان 🎁✨ :: الرسائل الإبداعية :: 🌼🌷 :: استبدل الرسائل العادية برسائل قمة في الجمال 😊👌🏻

[Moosak]

السلام عليكم ورحمة الله وبركاته

أسعد الله أوقاتكم بكل خير وسرور .. وتقبل الله منا ومنكم صالحات الأعمال .. 😊🤲🏻

يطيب لي أن أقدم لكم هذا الهدية المتواضعة بمناسبة هذا الشهر الفضيل 🙂🌼🎁

استبدل الرسائل العادية في أكسس برسائل ذات تصاميم قمة في الإبداع وبمميزات إضافية .

من مميزات هذه الرسائل:
- تصميم جميل وألوان جذابة.
- خاصية ذاتية الاختفاء.
- عنوان رئيسي + عنوان فرعي
- تحكم بالنص ( عربي - إنجليزي ) ( توسيط - محاذاة على اليمين أو اليسار)
- سهلة الاستخدام .

 

      

      

      

 

 

الشرح على اليوتيوب :

 

 

التحميل 🙂 

Moosak MsgBox.accdb

 

ولا تنسوني من صالح دعواتكم 😊🌷🌼🌹

[Foksh]

 

ما شاء الله ، تقبل الله منا ومنكم الطاعات ، وبارك الله فيك على هذا العمل الجميل

أناقة وخفة جميلة جداً 

[Moosak]

10 ساعات مضت, Foksh said:

أناقة وخفة جميلة جداً 

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

[abouelhassan]

شكر وتقدير واحترام من اخيك 

[Moosak]

10 ساعات مضت, abouelhassan said:

شكر وتقدير واحترام من اخيك 

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

[king5star]

بسم الله ما شاء الله ابداع فوق الابداع تسلم ايدك

[Moosak]

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

[SAROOK]

جمال وابداع روعة الصراحة سلمت يداك

[Moosak]

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

[gavan]

مبدع يالغالي تحياتي 🌹🌹🌹

[طير البحر]

رائع اخي لكن هل ترجع قيم الى المتغير ؟
وهل من مثال ام نفس حالة الرسائل العادية؟

[Moosak]

3 ساعات مضت, طير البحر said:

رائع اخي لكن هل ترجع قيم الى المتغير ؟
وهل من مثال ام نفس حالة الرسائل العادية؟

1- نعم ترجع القيمة كمتتغير ( أنظر إلى الأمثلة الملحقة في الملف )

2- توجد أمثلة مختلفة في الملف المرفق .. وطالع الفيديو أيضا لمتابعة الشرح 🙂 

[abouelhassan]

اخى بعد اذنك اريد تطبيق هذا الكود ولم افلح

'If MsgBox("هل تريد حذف السجل؟؟", _
'    vbCritical + vbYesNo, _
'    "") = vbYes Then
  DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE tblFinancial_Records.*, tblFinancial_Records.Reg_Number, * FROM tblFinancial_Records WHERE (((tblFinancial_Records.Reg_Number)=[forms]![frm_search]![Reg_Number]))"
DoCmd.SetWarnings True
        Else
     Exit Sub
      End If

وكذلك

    If Err.Number <> 0 Then
        MsgBox "حدث خطأ: " & Err.Description
    End If

و

MsgBox "ليس لديك صلاحية بالدخول", _
    vbCritical + vbOKOnly, _
    "تنبيه"

    If MsgBox("خروج من البرنامج...!؟", vbCritical + vbYesNo, "") = vbYes Then

MsgBox "تم انشاء نسخة احتياطية بنجاح" & vbNewLine & "Backup successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbMsgBoxRight + vbOKOnly, "emphasis" & "/" & "تاكيد"

بارك الله فيك اخى الكريم لم اجد مثال لهؤلاء وهم كل الماسج التى احتاج تطبيها مشكور بارك الله فيك

تم تعديل مارس 24 بواسطه abouelhassan

[Moosak]

9 ساعات مضت, abouelhassan said:

اخى بعد اذنك اريد تطبيق هذا الكود ولم افلح

تفضل أخي أبو الحسين @abouelhassan 🙂 

If MyMsgBox("هل تريد حذف السجل؟؟", "" _
, , msg_Critical, Btn_Yes_No) = Yes Then

    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE tblFinancial_Records.*, tblFinancial_Records.Reg_Number, * FROM tblFinancial_Records WHERE (((tblFinancial_Records.Reg_Number)=[forms]![frm_search]![Reg_Number]))"
    DoCmd.SetWarnings True
Else
    Exit Sub
End If

 

If Err.Number <> 0 Then
    MyMsgBox "حدث خطأ: " & Err.Description
End If

 

MyMsgBox "ليس لديك صلاحية بالدخول", "تنبيه", , msg_Critical, Btn_OK_Only

If MyMsgBox("خروج من البرنامج...!؟", "", , msg_Critical, Btn_Yes_No) = Yes Then
    MyMsgBox "تم انشاء نسخة احتياطية بنجاح" & vbNewLine & "Backup successfully created" & vbNewLine & vbNewLine & _
            "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & _
            "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & _
            "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, "emphasis" & "/" & "تاكيد", , msg_Information, Btn_OK_Only, Arabic_Right
End If

 

[abouelhassan]

بارك الله فيك اخي الكريم

كل عام وانتم بخير وصحه وسلامه 

[عبد اللطيف سلوم]

مبدع كعادتك

الله يجزيكم الخير

[abouelhassan]

مع خالص الشكر والتقدير اعتذر لحضرتك اخى 

لدى مشكلة اتمنى يكون لها حل عند حضرتك الرسائل كتير جميلة وتعمل ممتازة

بس فى مشكلة أن الفورم يظهر فارغ 

وعندما اضغط عليه يظهر الكلام 

وساعات يظهر الكلام بغد مدة إذا تركت نموذج الرسائل بس بعد مدة 

هل احد حل عند حضرتك شاكر فضلك اخى الكريم 

[Moosak]

1 ساعه مضت, abouelhassan said:

مشكلة أن الفورم يظهر فارغ 

هل مواصفات جهازك جيدة ؟

كم نسخة الأوفيس عندك ؟

جرب استخدام هذه النسخة وأخبرني هل النتيجة نفسها ؟

‏‏Moosak MsgBox 2.accdb

[abouelhassan]

ممتاز اخى اسعد الله اوقاتكم بكل خير يارب

[AlwaZeeR]

صراحة مجهود يستحق الشكر والتقدير 

وتم دمجها في احد برامجي واخذ ما يلزم منها 

مع الاخذ بعين الاعتبار الحقوق طبعا

ولكن لم افهم الفرق بين نعم وموافق

عندما استخدم مثلا لحذف سجل 

ما الفرق بين ان اختار موافق او نعم؟؟

جميل وفي ميزان حسناتك ان شاء الله

:: 

تحياتي

[Moosak]

22 ساعات مضت, AlwaZeeR said:

صراحة مجهود يستحق الشكر والتقدير 

وتم دمجها في احد برامجي واخذ ما يلزم منها 

مع الاخذ بعين الاعتبار الحقوق طبعا

ولكن لم افهم الفرق بين نعم وموافق

عندما استخدم مثلا لحذف سجل 

ما الفرق بين ان اختار موافق او نعم؟؟

جميل وفي ميزان حسناتك ان شاء الله

:: 

تحياتي

تشريف أخي العزيز الوزير 😊🌹 والحقوق متاحة للجميع ..

موافق تقابلها ok

نعم تقابلها yes

موافق تجدها مقرونة بإلغاء الأمر أو وحدها..

ونعم تجدها مقرونة ب لا وأحيانا ( نعم - لا - إلغاء الأمر )

[jjafferr]

وعليكم السلام اخوي موسى 🙂

وعمل جميل آخر منك 🙂

 

جعفر

[Moosak]

1 ساعه مضت, jjafferr said:

وعليكم السلام اخوي موسى 🙂

وعمل جميل آخر منك 🙂

 

جعفر

عدت والعود أحمد 😊🌹

[محمد التميمي]

بارك الله بجهودك اخي الكريم وكل عام وانتم بالف خير 

[aliwindows]

في 12‏/3‏/2024 at 22:08, Moosak said:

السلام عليكم ورحمة الله وبركاته

أسعد الله أوقاتكم بكل خير وسرور .. وتقبل الله منا ومنكم صالحات الأعمال .. 😊🤲🏻

يطيب لي أن أقدم لكم هذا الهدية المتواضعة بمناسبة هذا الشهر الفضيل 🙂🌼🎁

استبدل الرسائل العادية في أكسس برسائل ذات تصاميم قمة في الإبداع وبمميزات إضافية .

من مميزات هذه الرسائل:
- تصميم جميل وألوان جذابة.
- خاصية ذاتية الاختفاء.
- عنوان رئيسي + عنوان فرعي
- تحكم بالنص ( عربي - إنجليزي ) ( توسيط - محاذاة على اليمين أو اليسار)
- سهلة الاستخدام .

 

      

      

      

 

 

الشرح على اليوتيوب :

 

 

التحميل 🙂 

Moosak MsgBox.accdb 1.14 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 188 downloads

 

ولا تنسوني من صالح دعواتكم 😊🌷🌼🌹

 

ابداع و اتقان جميل جدا استاذنا الغالي  اخذت منها اكثر من رسالة وطبقتها عندي عمل مذهل 

بعد اذنك عدلت على بعضها لتناسب ما اريد 
 

تم تعديل April 11 بواسطه aliwindows
خطا املائي