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

[Moosak]

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

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

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

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

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

 

      

      

      

 

 

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

 

 

التحميل 🙂 

Moosak MsgBox.accdbFetching info...

 

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

[Foksh]

 

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

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

[Moosak]

  في 12‏/3‏/2024 at 19:49, Foksh said:

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

Expand  

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

[abouelhassan]

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

[Moosak]

  في 13‏/3‏/2024 at 22:04, abouelhassan said:

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

Expand  

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

[king5star]

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

[Moosak]

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

[SAROOK]

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

[Moosak]

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

[gavan]

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

[طير البحر]

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

[Moosak]

  في 24‏/3‏/2024 at 03:09, طير البحر said:

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

Expand  

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, 2024 بواسطه abouelhassan

[Moosak]

  في 24‏/3‏/2024 at 22:00, abouelhassan said:

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

Expand  

تفضل أخي أبو الحسين @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]

  في 25‏/3‏/2024 at 11:51, abouelhassan said:

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

Expand  

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

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

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

‏‏Moosak MsgBox 2.accdbFetching info...

[abouelhassan]

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

[AlwaZeeR]

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

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

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

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

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

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

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

:: 

تحياتي

[Moosak]

  في 28‏/3‏/2024 at 23:29, AlwaZeeR said:

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

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

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

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

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

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

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

:: 

تحياتي

Expand  

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

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

نعم تقابلها yes

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

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

[jjafferr]

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

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

 

جعفر

[Moosak]

  في 6‏/4‏/2024 at 13:44, jjafferr said:

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

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

 

جعفر

Expand  

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

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

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

[aliwindows]

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

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

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

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

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

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

 

      

      

      

 

 

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

 

 

التحميل 🙂 

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

 

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

Expand  

 

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

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

تم تعديل أبريل 11, 2024 بواسطه aliwindows
خطا املائي