internet handing error

[medic5678]

Hi everyone. My application does a data query on an internet site. When the internet isn't functioning, I'm getting the following error message"

runtime error

[DATAFORMAT.ERROR]
THE SERVER OR PROXY WASN'T FOUND

I would like to trap this specific error and allow the user to manually input the data and continue with the program. We lose internet access daily and it's essential that we can continue to process if the internet is down.

If the error is another error of any sort, I want to tell the user there has been an error and they need to start excel again. Very occasionally, I will get what appears to be a random error to me. It's simple enough to restart excel should this happen. I will eventually address this issue, but as a practical matter, it happens so rarely it's not worth addressing at this time. Data integrity is not an issue here. So I just want to put up a message box and tell them excel will have to be started over.

Thanks!

 

[diddi]

hi. rather than have your program falling over due to errors, it is better programming practice to pre-empt likely errors. so one solution would be to check if the internet is connected prior to executing the query.

declare this at the top of your module outside any subs

Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

and this sample demonstrates how to incorporate the line in your code

Sub Test()
    Dim NetActive As Boolean
    NetActive = InternetGetConnectedState(0&, 0&)
   
    MsgBox "internet status is " & NetActive
    If NetActive Then
        ' do the query
       ....
    End If
End Sub

 

[medic5678]

Sub Test() Dim NetActive As Boolean NetActive = InternetGetConnectedState(0&, 0&) MsgBox "internet status is " & NetActive If NetActive Then ' do the query .... End If End Sub

Absolutely brilliant! Worked like a charm. You have expanded my bag of tricks. Much appreciated!