L
Loren McGuire
I have modified an appointment form to put in a second page with
information. The second page has 2 buttons that access web pages. While
filling out the form, the user has the ability to click on the buttons and
they will open the appropriate web pages. The appointment then saves to
their personal outlook calendar and to a shared outlook calendar (required).
When the user opens the new appointment/meeting form from their calendar
entry or from the shared calendar entry, the buttons no longer access the
appropriate web sites. The button depresses, but there is no action from
the click_event action handler in the Visual Basic Script. Is there
specific syntax that changes when the form is saved to the calendars that
breaks this link? How would the syntax change to allow the buttons to work
correctly.
This is the current code:
Function cmdHelp_Click()
LaunchHelp()
End Function
****************** Then ******************************
Sub LaunchHelp()
Set objBrowser = CreateObject("InternetExplorer.Application")
If objBrowser Is Nothing Then
str1 = "Internet Explorer is not available. Please use your" & vbCrLf
str2 = "default browser to access the following URL:" & vbCrLf
str3 = " http://helpdesk.ugs.com/"
MsgBox str1 & str2 & str3, vbExclamation, "Warning!"
Else
objBrowser.Navigate("http://helpdesk.com/")
objBrowser.Visible = True
End If
End Sub
***********************************
Any ideas on this would be appreciated.
Thanks.
information. The second page has 2 buttons that access web pages. While
filling out the form, the user has the ability to click on the buttons and
they will open the appropriate web pages. The appointment then saves to
their personal outlook calendar and to a shared outlook calendar (required).
When the user opens the new appointment/meeting form from their calendar
entry or from the shared calendar entry, the buttons no longer access the
appropriate web sites. The button depresses, but there is no action from
the click_event action handler in the Visual Basic Script. Is there
specific syntax that changes when the form is saved to the calendars that
breaks this link? How would the syntax change to allow the buttons to work
correctly.
This is the current code:
Function cmdHelp_Click()
LaunchHelp()
End Function
****************** Then ******************************
Sub LaunchHelp()
Set objBrowser = CreateObject("InternetExplorer.Application")
If objBrowser Is Nothing Then
str1 = "Internet Explorer is not available. Please use your" & vbCrLf
str2 = "default browser to access the following URL:" & vbCrLf
str3 = " http://helpdesk.ugs.com/"
MsgBox str1 & str2 & str3, vbExclamation, "Warning!"
Else
objBrowser.Navigate("http://helpdesk.com/")
objBrowser.Visible = True
End If
End Sub
***********************************
Any ideas on this would be appreciated.
Thanks.