1- کد زیر را در یک ماجول کپی کنید:
Public Declare PtrSafe Function MessageBoxW Lib "User32" ( _
ByVal hWnd As LongPtr, _
ByVal lpText As LongPtr, _
ByVal lpCaption As LongPtr, _
ByVal uType As Long _
) As Long


Public Function MsgBoxW( _
Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String = "Access" _
) As VbMsgBoxResult

MsgBoxW = MessageBoxW( _
hWnd:=Application.hWndAccessApp, _
lpText:=StrPtr(Prompt), _
lpCaption:=StrPtr(Title), _
uType:=Buttons)
End Function


حالا میتونین از تابع MsgBoxW دقیقا مثل MsgBox استفاده کنین.

2- روش استفاده برای دیتا خوانده شده از دیتابیس:
1.png

2.png

3- روش استفاده برای دیتا گرفته شده از فرم:
Private Sub BTN_Click()
MsgBoxW _
Prompt:=Me.Text0, _
Buttons:=vbExclamation + vbYesNoCancel + vbMsgBoxRtlReading + vbMsgBoxRight, _
Title:="Test MsgBoxW for form data"
End Sub

3.png