Msgbox در اکسس

Sub TestButtons()

 Dim question As String

 Dim bts As Integer

 Dim myTitle As String

 Dim myButton As Integer

 question = "Do you want to preview the report now?"

 bts = vbYesNoCancel + vbQuestion + vbDefaultButton1

 myTitle = "Report"

 myButton = MsgBox(prompt:=question, buttons:=bts, _

 Title:=myTitle)

 Select Case myButton

 Case 6

 DoCmd.OpenReport "Sales by Year", acPreview

 Case 7

 MsgBox "You can review the report later."

 Case Else

 MsgBox "You pressed Cancel."

 End Select

End Sub

جورجینا فاش کرد که آن‌ها تقریبا هر روز در مدرسه مورد ضرب و شتم قرار می‌گیرند و هرگز نیز از خود دفاع نمی‌کنند: «به خاطر شهرت رونالدو این رفتارهای خشونت‌آمیز از جانب دیگر بچه‌ها عجیب نیست و من متوجه می‌شوم چون اغلب فرزندانم با گریه به خانه برمی‌گردند. دفاع از خود را بلد نیستند؟ این‌طور نیست. واقعیت این است که هرگز دوست ندارم فرزندانم با افراد دیگر به خشونت رفتار کنند.»

جورجینا همچنین فاش کرد که او یک مادر سخت‌گیر است و با وجود زندگی مرفه و لوکس، او همیشه به بچه‌هایش سخت می‌گیرد: «من به آن‌ها توضیح می‌دهم که باید وعده غذایی را کامل بخورند و غذا نباید اضافه بیاید. اگر بخشی از ناهار را نخورند، همان را باید به عنوان میان وعده یا شام مصرف کنند. اگر این کافی نباشد، ویدیوهایی از کودکان گرسنه را به آن‌ها نشان می‌دهم و به آن‌ها توضیح می‌دهم که اگر اصرار داشته باشند چیزی را که آماده شده، نخورند، ممکن است همین اتفاق برای آن‌ها بیفتد.»