Applies ToAccess لـ Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

في قاعدة بيانات سطح مكتب Access ، تعرض دالة MsgBox رسالة في مربع حوار، وتنتظر حتى ينقر المستخدم فوق زر، وترجع عددا صحيحا يشير إلى الزر الذي نقر عليه المستخدم.

بناء الجملة

MsgBox ( prompt [, buttons ] [, title ] [, helpfile ] [, context ] )

يحتوي بناء جملة الدالة MsgBox على هذه الوسيطات:

الوسيطة

الوصف

موجه

مطلوبة. يتم عرض تعبير السلسلة كرسالة في مربع الحوار. يبلغ الحد الأقصى لطول المطالبة حوالي 1024 حرفا، اعتمادا على عرض الأحرف المستخدمة. إذا كانت المطالبة تتكون من أكثر من سطر واحد، يمكنك فصل الأسطر باستخدام حرف إرجاع حرف (Chr(13)) أو حرف ملف خطي (Chr(10)) أو إرجاع السطر - تركيبة أحرف ملف خطي (Chr(13) & Chr(10)) بين كل سطر.

الأزرار

اختيارية. تعبير رقمي هذا هو مجموع القيم التي تحدد عدد ونوع الأزرار المراد عرضها، ونمط الأيقونة المراد استخدامه، وهوية الزر الافتراضي، وأسلوب مربع الرسالة. إذا تم حذفها، فإن القيمة الافتراضية للأزرار هي 0.

عنوان

اختيارية. تعبير السلسلة المعروض في شريط العنوان لمربع الحوار. إذا حذفت العنوان، يتم وضع اسم التطبيق في شريط العنوان.

ملف التعليمات

اختيارية. تعبير سلسلة يحدد ملف التعليمات المراد استخدامه لتوفير تعليمات حساسة للسياق لمربع الحوار. إذا تم توفير ملف المساعدة ، يجب أيضا توفير السياق .

سياق

اختيارية. تعبير رقمي هو رقم سياق التعليمات المعين لموضوع التعليمات المناسب بواسطة مؤلف التعليمات. إذا تم توفير السياق ، يجب أيضا توفير ملف المساعدة .

الإعدادات

الأزرار وسيطة الإعدادات هي:

ثابت

قيمة

الوصف

vbOKOnly

0

الزر "عرض موافق " فقط.

vbOKCancel

1

عرض الزرين موافقوإلغاء الأمر.

vbAbortRetryIgnore

2

عرض أزرار "إحباط" و"إعادة المحاولة" و"تجاهل".

vbYesNoCancel

3

عرض أزرار نعمولاوإلغاء .

vbYesNo

4

عرض الزريننعم ولا.

vbRetryCancel

5

عرض زري إعادة المحاولةوالإلغاء .

vbCritical

16

أيقونة عرض الرسالة الهامة.

vbQuestion

32

أيقونة "عرض استعلام تحذير   ".

vbExclamation

48

أيقونة رسالة تحذير    العرض.

vbInformation

64

أيقونة رسالة معلومات العرض.

vbDefaultButton1

0

الزر الأول افتراضي.

vbDefaultButton2

256

الزر الثاني افتراضي.

vbDefaultButton3

512

الزر الثالث افتراضي.

vbDefaultButton4

768

الزر الرابع افتراضي.

vbApplicationModal

0

نموذج التطبيق؛ يجب على المستخدم الاستجابة لمربع الرسالة قبل متابعة العمل في التطبيق الحالي.

vbSystemModal

4096

نموذج النظام؛ يتم تعليق جميع التطبيقات حتى يستجيب المستخدم لمربع الرسالة.

vbMsgBoxHelpButton

16384

إضافة الزر "تعليمات" إلى مربع الرسالة

VbMsgBoxSetForeground

65536

تحديد نافذة مربع الرسالة كنافذة أمامية

vbMsgBoxRight

524288

تمت محاذاة النص إلى اليمين

vbMsgBoxRtlReading

1048576

يجب أن يظهر النص كقراءة من اليمين إلى اليسار على الأنظمة العبرية والعربية

تصف المجموعة الأولى من القيم (0-5) عدد ونوع الأزرار المعروضة في مربع الحوار؛ تصف المجموعة الثانية (16، 32، 48، 64) نمط الأيقونة؛ تحدد المجموعة الثالثة (0، 256، 512) الزر الافتراضي؛ وتحدد المجموعة الرابعة (0، 4096) طريقة مربع الرسالة. عند إضافة أرقام لإنشاء قيمة نهائية لوسيطة الأزرار ، استخدم رقما واحدا فقط من كل مجموعة.

ملاحظة: يتم تحديد هذه الثوابت بواسطة Visual Basic for Applications. ونتيجة لذلك، يمكن استخدام الأسماء في أي مكان في التعليمات البرمجية بدلا من القيم الفعلية.

إرجاع القيم

ثابت

قيمة

الوصف

vbOK

1

موافق

vbCancel

2

إلغاء

vbAbort

3

احباط

vbRetry

4

إعادة المحاولة

vbIgnore

5

IGNORE

vbYes

6

نعم

vbNo

7

لا

ملاحظات

عند توفير كل من ملف المساعدةوالسياق ، يمكن للمستخدم الضغط على F1 (Windows) أو HELP (macOS) لعرض موضوع التعليمات المطابق للسياق. تقوم بعض التطبيقات المضيفة، على سبيل المثال، Microsoft Excel، بإضافة زر تعليمات تلقائيا إلى مربع الحوار.

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

ملاحظة: لتحديد أكثر من الوسيطة المسماة الأولى، يجب استخدام MsgBox في تعبير. لحذف بعض الوسيطات الموضعية، يجب تضمين محدد الفاصلة المقابل.

مثال

ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة Visual Basic for Applications (VBA).

يستخدم هذا المثال الدالة MsgBox لعرض رسالة خطأ حرج في مربع حوار مع أزرار نعم ولا. يتم تحديد الزر No كاستجابة افتراضية. تعتمد القيمة التي تم إرجاعها بواسطة الدالة MsgBox على الزر الذي اختاره المستخدم. يفترض هذا المثال أن DEMO.HLP عبارة عن ملف تعليمات يحتوي على موضوع برقم سياق تعليمات يساوي 1000.

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue?"
Style = vbYesNo + vbCritical + vbDefaultButton2    
Title = "MsgBox Demonstration" 
Help = "DEMO.HLP"
Ctxt = 1000
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then    ' User chose Yes.
    MyString = "Yes"    ' Perform some action.
Else    ' User chose No.
    MyString = "No"    ' Perform some action.
End If

هل تحتاج إلى مزيد من المساعدة؟

الخروج من الخيارات إضافية؟

استكشف مزايا الاشتراك، واستعرض الدورات التدريبية، وتعرف على كيفية تأمين جهازك، والمزيد.

تساعدك المجتمعات على طرح الأسئلة والإجابة عليها، وتقديم الملاحظات، وسماعها من الخبراء ذوي الاطلاع الواسع.