Opening a web page

[ndltx5]

I'm trying to build an event procedure so that on click it opens say msn.com, whats the code to do this.

Thank you

 

[sxschech]

Did you look in the access help menu for "Create a Hyperlink" it has the steps to set one up on a form.

 

[ndltx5]

Ya I just figured it out.
Thanks

 

[Spenney]

An example... I have used this code to open the website stored in the textbox name 'txtWebsite'

Private Sub cmdOpenWebsite_Click()
On Error GoTo cmdOpenWebsite_Click_Err

Dim strAddress As String

If IsNull(Me.txtWebsite) Then
    MsgBox "No Website address data is present", vbOKOnly, "Missing Data"
Else:
    strAddress = "[URL unfurl="true"]http://"[/URL] & Me.txtWebsite
    Application.FollowHyperlink strAddress, , True
End If

cmdOpenWebsite_Click_Exit:
    Exit Sub

cmdOpenWebsite_Click_Err:
    MsgBox Err.Description, vbCritical, _
    "Error Opening Website"
    Resume cmdOpenWebsite_Click_Exit


End Sub