اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر (معدل)

=============================================( صور + مرفق + فيديو )

Update: :biggrin2:🌹

بعد اذن استاذ @Moosak ❤️🌹

عدلة على مرفقك :eek2:😇

بضيف له بعد التحديث حقل ادراج نص مع حقل قناع على الرسالة 

بامكان للعميل اختيار النمط المناسب له او بس للمطور تخصيص الرسائل وتنسيقها للانجاز وتحكم لكافة الاجهزة 

 

====================( بتحديث 

يكون نص والعنوان DlookUp 

من جدول تاخذ الرقم وتسبدله بنص والعنوان 

 لامكانية تغير نص الرسالة والغات الثانية كتغير  لغة او التصحيح وتعديل  

 

 

1-  تخصيص الرسائل من الازرار الى الخلفية وحجم الرسالة 

- نوع الخط 

-حجم الخط 

-تحجيم الازرار

- تحديد نمط الازار 

- تغير الالوان 

- تعين خلفية وايقونة وصوت 

2- تغير اتجاه الرسالة من اليمين الى اليسار والعكس :blink:

-تغير محاذات القراءه يمين ويسار وتوسيط

3- تغير حواف اطار النص 

4- حفظ باسم مع تغير الباكيج

........

====================================( تحديث )

1- اضافة زر وتحجيمة لتحديث احداثية الزر

2-اضافة الغاء الصوت 

3-  عداد الوقت للالغاء وغلق الرسالة او مرات عدد ظهور الرسالة حسب الطلب

 بعض التحسينات وتصحيح واستكمال 

بعده دمج باكيج الواجهة الرئيسية مع الرسائل الى ثيم :wink2:

tablet = Name packge 1 ,  Name packge 1 = ( Name packge 1 install 

تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق

=============================================( مرفق + فيديو )

تحميل مرفق مع باكيج للتجربة

 

https://www.mediafire.com/file/qysrlx6x8g81nos/V1+Full_Control_Buld_MSGBOX_with+Stly+ON+MS+ACCESS.rar/file

تم تعديل بواسطه hanan_ms
  • Thanks 1
قام بنشر

=============================================( صور + مرفق + فيديو )

Update: :biggrin2:🌹

بعد اذن استاذي @ابو جودي ❤️🌹🌹

استعمل جدول الرسائل مع ادوات الميديا من مرفقك :eek2: 😇

بعد اذن استاذ @Moosak ❤️🌹

عدلة شي بسيط بداله :eek2:😇

 

1-  اضافة قائمة لادارج الرسائل فقط عدل على هذا كود بكتابة رقم فقط

Dim NMSG_1 As String
NMSG_1 = "101"
    MyMsgBox (NMSG_1), (NMSG_1), (NMSG_1), msg_Information, Btn_OK_Only, Arabic_Center

- رقم مسلسل من عند الاضافة رسالة جديدة  

- تعديل على الرسالة بتصحيح والحذف!

- نسيت اضيف رقم الرسالة بصندوق الرسالة عند الفتح كمرجع  مع ادارة التحكم او مع العميل 

 

2-  اضافة قائمة الاخطاء وتغير كود والدالة عند الخطأ من الرقم الى جهاز و المستخدم ..الخ

Dim GiveMeError                  As Recordset

On Error GoTo GiveMe

Me.Error = "/"

 Exit Sub
GiveMe:
'  MsgBox "Error Number : " & Err.Number & vbNewLine & "Error Description : " & Err.Description

  Dim strMsg                As String: strMsg = "Error Description : " & vbCrLf & Err.Description
  Dim Title                 As String: Title = "Error Massage !"
  Dim SubTitle              As String: SubTitle = "Error Number: " & Err.Number
  Dim Number_MX_Error       As String '============( XLong
  
'========================( Sand Error To Tablet
        Set GiveMeError = CurrentDb.OpenRecordset("Error_All_MSGBOX")
        GiveMeError.AddNew
        GiveMeError![Err_Number] = Err.Number
        GiveMeError![Error_Description] = Err.Description
        GiveMeError![User] = "Not Now _CommingSoon "
        GiveMeError![PC] = Environ("username")
        GiveMeError![Today] = Date
        GiveMeError![ToTime] = Time()
        GiveMeError![Name_Form] = Me.Form.name
        GiveMeError![Click_Button] = "GiveMe_Click()" & " -Name_Button: " & "تفعيل رسالة الخطأ عند الخطأ OnError" 'Me.Error.Caption
        GiveMeError.Update
DoEvents

'Number_MX_Error = DMax("[ID]", "[Error_All_MSGBOX]")
    MyMsgBox strMsg, Title, SubTitle, msg_Critical, Btn_OK_Only, English_Left, False

   ' Resume GiveMe
 Exit Sub

3- تصحيح مسار عند التشغيل 

4- اضافة الغاء الصوت او تفعيل 

================================( تحديث

1- تعامل مع الدالة مثال اسم الجهاز

2- تغير ابعاد الزر نافذه تحدد اما ارتفاع او عرض ثم الحفظ 

3- تغير ابعاد الواجهة 

4 5 ....... 

تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق

=============================================( مرفق + فيديو )

 

تحميل المرفق 

https://www.mediafire.com/file/14jm050l7a9q5jx/Link+Tablt+On+MsgBoX+V1-2+Full_Control_Buld_MSGBOX_with+Stly+ON+MS+ACCESS.rar/file

  • Thanks 1
قام بنشر

=============================================( صور + مرفق + فيديو )

Update: :biggrin2:🌹

بعد اذن استاذي @ابو جودي ❤️🌹🌹

اشرايك من نفس كود الرسالة هي صناديق ادخال بأنواعها مع التقويم وارقام الهاتف والمبالغ :eek2:😇

بعد اذن استاذ @Moosak ❤️🌹

عدلة شي بسيط بداله :eek2:😇

اضافة انواع جديده للرسالة وصلة 14 

 msg_Original = 0
    msg_Information = 1
    msg_Critical = 2
    msg_Exclamation = 3
    msg_Question = 4
    msg_Idea = 5
    msg_OK = 6
    msg_Alarm_bell = 7
    msg_InputMask_Date = 8
    msg_InputMask_Time = 9
    msg_InputMask_Number = 10
    msg_InputMask_Text = 11
    msg_InputMask_Mony = 12
    msg_Pick_Date = 13
    msg_InputMask_password = 14

 

1- استخدام الرسالة بالارقام عند دخول قائمة تسجيل ارقام الرسائل 

- تفيد كمرجع للتعديل وتغير الغات فقط غير ارتباط الجدول :wink2:

- كود عند عدم وجود الرقم الرسالة 

- ملاحظة يكتب الكود بنوعين اما 1 بداخل الكود مثل كتابة كود الرسالة اكسس والنوع الثاني 2 يكتب رقم مرجع الرسالة 

- كود فقط غير النوع الرسالة واختر ما يناسبك موضح بصوره ادناه 

66.PNG.1611a94151cdd8bb16dbc92991a57bfb.PNG

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

67.PNG.3465026942d2c71aca1c4c98b83206ef.PNG

2- تجربة كل الانواع نابع الفيديو

3- تعديل واجهة الاعداداة 

 

================================== تحديث 

1- نسيت اكتب كود فتح حجز ايام وترصيد الاجازات موجود

3- ضبط حد للتحجيم لا يمكن تقليل الحجم النافذة اقل من حجم الاصلي بالارتفاع والعرض

4- اصلاح بعض والتحسين

5  6 ........

تابع الفيديو للتوضيح اسفل الموضوع + تحميل المرفق

=============================================( مرفق + فيديو )

تحميل المرفق

https://www.mediafire.com/file/o90b64wdsnv7al2/Vx+Msgbox+With+Into+Msgbox+Full+Control+IN+Msgbox+One+On+Ms_Access.rar/file

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information