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"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
style = vbOKOnly + vbInformation
title = "Fraud Policy Document"
response = MsgBox(msg, style, title)
End Function
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