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