فصل ۹ — Message Box و تبدیل Form به Dialog

MsgBox برای Feedback ساده یا سؤال کوتاه است. Syntax ساده فقط OK نشان می‌دهد؛ شکل تابعی می‌تواند دکمه، Icon، Title و Default Button را تعیین و نتیجه را در Variable ذخیره کند.

MsgBox

Dim Answer As Integer
Answer = MsgBox("Did Labels print OK?", vbQuestion + vbYesNo, "Question")

اجرای Procedure تا پاسخ کاربر متوقف می‌شود. vbYes، vbNo، vbCancel و سایر Constantها مشخص می‌کنند کدام Button کلیک شده است. Esc و Close معمولاً vbCancel برمی‌گردانند.

تصمیم بر اساس پاسخ

Select Case Answer
   Case vbYes
      Debug.Print "You clicked Yes"
   Case vbNo
      Debug.Print "You clicked No"
   Case vbCancel
      Debug.Print "You did not click Yes or No"
End Select

Dialog Form

برای چند Choice و Control، Form را به Dialog تبدیل کنید. اگر Setting باید بین Sessionها حفظ شود، Table تک‌رکوردی مانند SettingsTable با Fieldهای ReportName و LabelsToSkip می‌تواند Record Source فرم باشد. Propertyهایی مانند Pop Up، Modal، Border Style، Navigation Buttons و Record Selectors ظاهر Dialog را کنترل می‌کنند.

Buttonهای Dialog

Private Sub CancelBttn_Click()
   DoCmd.Close acForm, Me.Name, acSaveNo
End Sub

Private Sub PrintBttn_Click()
   Call SkipLabels([ReportName].Value, [LabelsToSkip].Value)
   DoCmd.Close acForm, Me.Name, acSaveYes
End Sub

شکل‌ها و عناصر بصری این بخش