trap hyperlink error

[bobdydd]

Hi Everbody

I am trying to trap the error that SHOULD occur when there is no
internet connection.

Private Sub CmdPayHere_Clic k()
On Error GoTo Err_CmdPayHere_ Click
Application.Fol lowHyperlink "http://www.microsoft.c om"
Err_CmdPayHere_ Click:
MsgBox "Page Not Available, Check that You ARE online",
vbInformation, "No Internet Connection"
End Sub

However, the above code displays the error message whether there is a
connection or not

Also, when there is NO CONNECTION, there is no error displayed at all.
All that happens is the browser does not display.

Thanks in advance for any help.

Bob

[Mike Labosh]

> I am trying to trap the error that SHOULD occur

when there is no internet connection. However, the above code displays the error message
whether there is a connection or not
See my inline VBA comments below:

Private Sub CmdPayHere_Clic k()

On Error GoTo Err_CmdPayHere_ Click

Application.Fol lowHyperlink "http://www.microsoft.c om"

' In normal operation, you must exit the sub before your
' error handler. Otherwise execution passes straight through
' and runs the code in your Error handler block.
Exit_CmdPayHere _Click:
Exit Sub

Err_CmdPayHere_ Click:
MsgBox "Page Not Available, Check that You ARE online",
vbInformation, "No Internet Connection"

' I also like to do this. This way, my procedure has exactly
' one exit point and exactly one entry point. But some folks
' hate Goto's more than me:
Goto Exit_CmdPayHere _Click

End Sub

--
Peace & happy computing,

Mike Labosh, MCSD

"When you kill a man, you're a murderer.
Kill many, and you're a conqueror.
Kill them all and you're a god." -- Dave Mustane
"bobdydd" <re************ **@yahoo.co.uk> wrote in message
news:11******** **************@ g44g2000cwa.goo glegroups.com.. . Hi Everbody

I am trying to trap the error that SHOULD occur when there is no
internet connection.

Private Sub CmdPayHere_Clic k()
On Error GoTo Err_CmdPayHere_ Click
Application.Fol lowHyperlink "http://www.microsoft.c om"
Err_CmdPayHere_ Click:
MsgBox "Page Not Available, Check that You ARE online",
vbInformation, "No Internet Connection"
End Sub

However, the above code displays the error message whether there is a
connection or not

Also, when there is NO CONNECTION, there is no error displayed at all.
All that happens is the browser does not display.

Thanks in advance for any help.

Bob

[bobdydd]

THanks Mike. That did the trick.

[Douglas J. Steele]

"Mike Labosh" <ml*****@hotmai l.com> wrote in message
news:%2******** *******@TK2MSFT NGP09.phx.gbl.. .

' In normal operation, you must exit the sub before your
' error handler. Otherwise execution passes straight through
' and runs the code in your Error handler block.
Exit_CmdPayHere _Click:
Exit Sub

Err_CmdPayHere_ Click:
MsgBox "Page Not Available, Check that You ARE online",
vbInformation, "No Internet Connection"

' I also like to do this. This way, my procedure has exactly
' one exit point and exactly one entry point. But some folks
' hate Goto's more than me:
Goto Exit_CmdPayHere _Click

Mike: Try using Resume Exit_CmdPayHere _Click. It ensures that the
application realizes that the error has been handled.

Good advice, btw.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

[Mike Labosh]

> Mike: Try using Resume Exit_CmdPayHere _Click. It ensures that the

application realizes that the error has been handled.

[slapping forehead] OOPS! Yes, because Resume also clears the error
condition. Can you tell it's been a while since I used VBA?

--
Peace & happy computing,

Mike Labosh, MCSD

"When you kill a man, you're a murderer.
Kill many, and you're a conqueror.
Kill them all and you're a god." -- Dave Mustane

[bobdydd]

Thanks Doug
I will alter it to that.

Bob