الدالة MsgBox و الدالة InputBox

[أبو امين]

الدالة MsgBox

Access لـ Microsoft 365 Access 2021 Access 2019 Access 2016 Access 2013 المزيد...

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

بناء الجملة

MsgBox ( مطالبة [، أزرار ] [ ،عنوان ] [، ملف تعليمات ] [، سياق ] )

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

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

 

الإعدادات

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

ثابت	القيمة	الوصف
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	تحديد النص يجب أن يظهر كقراءة من اليمين إلى اليسار على الأنظمة العبرية والعربية

 

تلميح:  في Access 2010، يكون "منشئ التعبير" لديه IntelliSense، حيث يمكنك معرفة الوسيطات التي يتطلبها التعبير. 

تصف المجموعة الأولى من القيم (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 (Macintosh) لعرض موضوع "تعليمات" المطابق للسياب. تقوم بعض التطبيقات المضيفة، على سبيل المثال، Microsoft Excel، أيضا بإضافة زر تعليمات تلقائيا إلى مربع الحوار.

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

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

مثال

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

يستخدم هذا المثال الدالة MsgBox لعرض رسالة خطأ هامة في مربع حوار يحتوي على الزرين "نعم" و"لا". يتم تحديد الزر "لا" كالاستجابة الافتراضية. تعتمد القيمة التي يتم إرجاعها بواسطة الدالة 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

 

الدالة InputBox

Access لـ Microsoft 365 Access 2021 Access 2019 Access 2016 Access 2013 المزيد...

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

بناء الجملة

InputBox ( مطالبة [ ,عنوان ] [ ,افتراضي ] [, xpos ] [, ypos ] [, helpfile ] [ ,context ] )

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

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

 

ملاحظات

عند توفير كل من ملف تعليمات وسياق، يمكن للمستخدم الضغط على F1 (Windows) أو HELP (Macintosh) لعرض موضوع "تعليمات" المطابق للسياب. تقوم تطبيق مضيف ، على سبيل Microsoft Office Excel 2007 ، بإضافة زر تعليمات إلى مربع الحوار تلقائيا. إذا قام المستخدم بالنقر فوق موافق أو الضغط على ENTER، ترجع الدالة InputBox كل ما هو في مربع النص. إذا نقر المستخدم فوق "إلغاءالأمر"، ترجع الدالة سلسلة ذات طول صفري ("").

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

مثال

ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية في Visual Basic for Applications (VBA). لمزيد من المعلومات حول استخدام VBA، حدد "مرجع المطور" في القائمة المنسدل إلى جانب "البحث" وأدخل مصطلحا واحدا أو أكثر في مربع البحث.

يوضح هذا المثال طرقا متنوعة لاستخدام الدالة InputBox لمطالبة المستخدم بإدخال قيمة. إذا تم حذف الموضعين س وy، يتم توسط مربع الحوار تلقائيا للمحاور الخاصة بها. يحتوي MyValue المتغير على القيمة التي أدخلها المستخدم إذا قام المستخدم بالنقر فوق موافق أو الضغط على المفتاح ENTER. إذا نقر المستخدم فوق "إلغاءالأمر"، يتم إرجاع سلسلة ذات طول صفري.

Dim Message, Title, Default, MyValue
Message = "Enter a value between 1 and 3"  ' Set prompt.
Title = "InputBox Demo"    ' Set title.
Default = "1"    ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)
' Use Helpfile and context. 
' The Help button is added automatically.
MyValue = InputBox(Message, Title,,,,"DEMO.HLP", 10)
' Display dialog box at position 100, 100.
MyValue = InputBox(Message, Title, Default, 100, 100)

 

Database3.accdb

 

 

Database3.accdb

تم تعديل يوليو 15, 2022 بواسطه derbali ammar

[عمر طاهر]

ماشاء الله 

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