במסד נתונים שולחני של Access, MsgBox הפונקציה מציגה הודעה בתיבת דו-שיח, Integer מחכה שהמשתמש יבחר לחצן, ומחזירה לחצן המציין את הלחצן שהמשתמש בחר.
תחביר
MsgBox(prompt[, buttons][, title][, helpfile][, context])
MsgBox תחביר הפונקציה מכיל את הארגומנטים הבאים:
| ארגומנט | תיאור |
|---|---|
prompt |
נדרש. ביטוי מחרוזת המוצג כהודעה בתיבת הדו-שיח. האורך המרבי של prompt הוא כ- 1024 תווים, בהתאם לרוחב התווים הנמצאים בשימוש. אם prompt יש יותר משורה אחת, באפשרותך להפריד בין השורות באמצעות תו החזרת גררה (), תו הזנה בשורות (Chr(13)Chr(10)) או שילוב הזנה קווית של החזרת גררה (Chr(13) & Chr(10)) בין כל שורה. |
buttons |
אופציונלי. ביטוי מספרי שהוא סכום הערכים המציין את המספר ואת סוג הלחצנים שיש להציג, את סגנון הסמל שבו יש להשתמש, את הזהות של לחצן ברירת המחדל ואת המודולריות של תיבת ההודעה. אם הוא מושמט, ערך ברירת המחדל הוא buttons .0 |
title |
אופציונלי. ביטוי מחרוזת המוצג בפס הכותרת של תיבת הדו-שיח. אם השמטת titleאת , שם היישום מופיע בפס הכותרת. |
helpfile |
אופציונלי. ביטוי מחרוזת המזהה את קובץ העזרה שבו יש להשתמש כדי לספק עזרה תלוית הקשר עבור תיבת הדו-שיח. אם helpfile סופק, context יש לספק גם אותו. |
context |
אופציונלי. ביטוי מספרי שהוא מספר הקשר העזרה שהוקצה לנושא העזרה המתאים על-ידי מחבר העזרה. אם context סופק, helpfile יש לספק גם אותו. |
הגדרות
הגדרות buttons הארגומנט הן:
| קבוע | Value | תיאור |
|---|---|---|
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 |
הגדר את הטקסט כך שיופיע עם קריאה מימין לשמאל במערכות עברית וערבית. |
קבוצת הערכים הראשונה ( עד ) מתארת05את המספר וסוג הלחצנים המוצגים בתיבת הדו-שיח. הקבוצה השניה (16, , 32, 4864) מתארת את סגנון הסמל. הקבוצה השלישית (0, 256, 512) קובעת איזה לחצן מוגדר כברירת המחדל. הקבוצה הרביעית (0, 4096) קובעת את המודאליות של תיבת ההודעה. בעת הוספת מספרים כדי ליצור ערך סופי עבור הארגומנט buttons , השתמש במספר אחד בלבד מכל קבוצה.
הערה
קבועים אלה מצוינים על-ידי Visual Basic for Applications. כתוצאה מכך, באפשרותך להשתמש בשמות בכל מקום בקוד במקום בערכים בפועל.
ערכי החזרה
| קבוע | Value | תיאור |
|---|---|---|
vbOK |
1 |
אישור |
vbCancel |
2 |
ביטול |
vbAbort |
3 |
בטל |
vbRetry |
4 |
נסה שוב |
vbIgnore |
5 |
להתעלם |
vbYes |
6 |
כן |
vbNo |
7 |
לא |
הערות
כאשר הם helpfile מסופקיםcontext, המשתמש יכול להקיש F1 ב- Windows או בעזרה ב- macOS כדי להציג את נושא העזרה התואם contextל- . יישומים מארחים מסוימים, כגון 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