ACC2000: ???? MsgBox ????? ??? ????? (@) ?????

?????? ????????? ?????? ?????????
???? ???????: 242889 - ??? ???????? ???? ????? ????? ??? ???????.
??? ????? ??? ???????. ????? "??? ??" ??? ??? ??????? ??? ????.
??????: ????? ????? ???????? ????? ? ???????? ??????? ??????? ????????.

????? ??? ?????? ??? ????? ?????? Microsoft Access (.mdb) ????? Microsoft Access (.adp).

????? ???? | ?? ????

?? ??? ??????

???????

?? Microsoft Access 2000 ??????? (@) ?? ???? ????? ??? ??? ????????? ?? ?????? MsgBox.

?????

?? ????? ?????? MsgBox ??????? ?????? Microsoft Visual Basic Editor (Vbe6.dll) ??????? ??????? ?????? ????? (@).

????

???? ????? ?? ?????? ???????. ??? ?? ???? ???????? ??????? MsgBox ?? ?????. ?? ???? ?????? ?? ????? ???? ????? ?? ??? ???????? ?????? ?????? Eval ??????? ???? MsgBox.

????? ????? ?????? ??????? MsgBox

  1. ?? ?????? "????? ??????" ? ???? ??? ????? ??????? ??? ?????? ?? ???? ??? ????.
  2. ?? ?????? "?????" ? ???? ??? ????? ??????? ???? ??????? ?? ???? ??? Msgbox ?? ??????? ?????.
  3. ???? F6 ???? ?????? ??? ???? ????? ??? ?????? ???????.
  4. ???? ??????? ??????? ?? ???? ???????:
    ?? button!@This ???? ?? work.@Try ???.
  5. ?? ??????? ???? ???? ??? ??? ???? ?? ???? ??? ????? ???? ??????? ?? ????? ?????????.
  6. ?? ??????? ????? ? ???? ??? ?????. ???? ?? ????? ????? ?? ??????? ????.

????? ???? FormattedMsgBox

???? ?????? Eval Visual Basic ????????? ??????? ???? ????? ?????? MsgBox ???? ????? ?? ???? Visual Basic ? ????? ???? ?? ?????? ????????? ?? ????? ?????. ?????? ?????? ?????? ???? ????? ?? ??? ???????? ???? FormattedMsgBox ????? ?? ?????? MsgBox. ?????? ???? FormattedMsgBox ???? ??????? ???????:
  1. ???? ????? Microsoft Access.
  2. ???? ????? ????? ???????? Northwind.mdb.
  3. ????? ???? ????? ?????.
  4. ????? ??????? ?????? ??? ?????? ???????:
    Function FormattedMsgBox(Prompt As String, _
                             Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
                             Optional Title As String = "Microsoft Access", _
                             Optional HelpFile As Variant, _
                             Optional Context As Variant) As VbMsgBoxResult
        Dim strMsg As String
        If IsMissing(HelpFile) Or IsMissing(Context) Then
           strMsg = "MsgBox(" & Chr(34) & Prompt & Chr(34) & ", " & Buttons & _
                     ", " & Chr(34) & Title & Chr(34) & ")"
        Else
           strMsg = "MsgBox(" & Chr(34) & Prompt & Chr(34) & ", " & Buttons & _
                     ", " & Chr(34) & Title & Chr(34) & ", " & Chr(34) & _
                          HelpFile & Chr(34) & ", " & Context & ")"
        End If
        FormattedMsgBox = Eval(strMsg)
    End Function
    					
  5. ??? ?????? ??????? ???????? ????? ????????? ???? ???? ?? ?????? ??? ?????? ???????.
  6. ????? ???? ??????? ????? ??? ?????? ?? ????? ??????? ??????? ???? FormattedMsgBox ????? ?? ?????? MsgBox ???????. ??? ???? ??????:
    Sub TestMsgBox()
        Dim lngResult As Long
        lngResult = FormattedMsgBox("Extremely Important@This is an invalid operation.@Refer to online help.", _
            vbCritical + vbOkOnly, "Microsoft Access")
    End Sub
    					

??????? ????

?? ????????? ??????? ?? Microsoft Access ????? ??????? ??????? ??? ????? ????? ?? ?? ??????? ?? ???? MsgBox. ??? ???????? ????? ?? ?????? ?? ?? ?????? MsgBox ???? ????? ?????? ?? ????? ??? ??? ???? ????? ?? "???? ?????" ?? ?????? ?????? ??? ????.

??? ????? ??? ??????? ?????? Visual Basic ????? ????????? (Vba332.dll) ?? Microsoft Access 97. ?? ??????? ?? Microsoft Visual Basic Editor ???? Microsoft Access 2000 ?? ??? Vba332.dll.

????? ????? ????? ??????

  1. ???? ????? Microsoft Access.
  2. ???? ????? ????? ???????? Northwind.mdb.
  3. ????? ???? ????? ?????.
  4. ?? ?????? ????????? ???????? ??????? ??? ?????? ???????:
    Option Compare Database
    Option Explicit
    
    Sub FormatMessage()
        Dim strMsgText As String
        strMsgText = "Extremely Important@This is an invalid operation.@" & _
                     "Refer to online help."
        MsgBox strMsgText
    End Sub
    					
  5. ????? ??? ??????? ?? ?????? ??????.
?????? ????? ??????? ??? ????? ????? "?????? Important@This ?? operation.@Refer ??? ???? ??? ????????? ???????." ??? ????? ??? ??????? ?? Microsoft Access 95 ?97 ?? ???? ????? ?????? ?? ???? "????? ???????" ?? ???? ? ?????? ??? ???:
??? ??????

??? ????? ??? ?????.

???? ????????? ???????.

???????

???? ???????: 242889 - ????? ??? ??????: 09/???? ??????/1435 - ??????: 3.0
????? ???
  • Microsoft Access 2000 Standard Edition
????? ??????: 
kbnosurvey kbarchive kbmt kbprb KB242889 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????242889

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com