Struggling with msgbox

[speakers_86]

I haven't used error handling nor message boxes nearly enough, so I'm stumped at this. I'm not sure what the =vbOK is for, but access said it expected an equal sign, so I gave it one.

On Error GoTo Err_A
Application.FollowHyperlink "long complicated website here"
Exit Sub

Err_A:
Msgbox("Could not go to long complicated website here", vbOKOnly, "Error") = vbOK


End Sub

 

[MarkK]

VBA expects a function to return a value if you bracket the parameters so you can have ...

Dim r as vbMsgBoxResult
[COLOR="Green"]'returns a value[/COLOR]
r = MsgBox("Really?")

... or if you don't want to return a value, don't bracket the parameters ...

MsgBox "Yeah, really."

 

[jonathanchye]

Just remove the brackets if you do not want anything to happen when user presses ok.

Try :

Err_A: Msgbox "Could not go to long complicated website here", vbOKOnly, "Error"

 

[ted.martin]

What is useful is when you use the Yes/No option for the Message Box. For example putting a Command Button on a form where you are enetering some data and you want the user to check it is correct before closing.

Private Sub cmdSave_Click()

    If MsgBox("Have you Checked the Data?" & vbNewLine & vbNewLine & "Is it Correct?", vbQuestion + vbYesNo, "Check Data") = vbNo Then
        
        If MsgBox("Do you wish to Continue?" & vbNewLine & "(Form will not Close)", vbQuestion & vbYesNo, "Continue or Close") = vbYes Then
            Exit Sub
        Else
            DoCmd.Close acForm, "F-TCard"
        End If
        
    Else  ' Yes
        
        'Save Data
        DoCmd.RunCommand acCmdSaveRecord
        DoCmd.SetWarnings False
        DoCmd.OpenQuery "QA-TCard"
        DoCmd.SetWarnings True
          
        MsgBox "Data saved Successfully", vbInformation, "Closing Now"
                  
        DoCmd.Close acForm, "F-TCard"
    End If
    

End Sub

 

[speakers_86]

Thank you all