Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Display MessageBox after Hyperlink

Status
Not open for further replies.

krispi

MIS
May 16, 2002
281
GB
Can anyone advise on the following...?
I have a button on my menu which opens a hyperlink to a policy document in Word. I want to display a messagebox after the word document is displayed advising the user to click on the back arrow to return to the menu. I am using the following code, but the messagebox pops up before the switch takes place, while the Access menu page is still displayed.

Sub HlkToPolicy()

Dim ctlSelected As CommandButton
Dim hlk As Hyperlink
Set ctlSelected = Me!Command33
Set hlk = ctlSelected.Hyperlink
With hlk
.Address = " End With
MMPolicyDoc
End Sub

(The messagebox function is the following...)
Function MMPolicyDoc()

Dim msg, style, title, response
msg = ("Click the blue 'back' arrow on the toolbar to return to the database")
style = vbOKOnly + vbInformation
title = "Fraud Policy Document"
response = MsgBox(msg, style, title)
End Function
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top