Macro stops after 38 hours, is this a feature?

[mrshl9898]

Hi,

We have an SQL query that uses a stored procedure on our database. For some reason it keeps going into error every few days.

I made the below to refresh the query and try to detect the time for the break, however, coming in this morning to check it, it has errored (msgbox displayed) after 38 hours.

Is there anything built into excel that would cause this?

Thanks in advance

Public counter As Long
Public counter1 As Long
Public starttime As String


Sub breaktester()


Application.DisplayAlerts = False


If starttime = "" Then
starttime = Now()
End If


If counter = 0 Then
counter = 1
End If


restart:
On Error GoTo getout
ActiveWorkbook.Connections("MainstreetNZ1").Refresh
counter = counter + 1
counter1 = Format(counter, "0,000")
Application.StatusBar = "Attempt no. " & counter1
GoTo restart


getout:
MsgBox "Search started at - " & starttime & vbNewLine & "Search stopped at - " & Now() & vbNewLine & "attempt no. " & counter


Application.DisplayAlerts = True


End Sub

Msgbox was:

Search started at - 23/11/18 15:37:58
Search stopped at - 25/11/188 05:37:57
attempt no. 26809

 

[Joe4]

Is there anything built into excel that would cause this?

No.

It might be helpful to see what the actual error message is. You can add to your error catching with something like:

MsgBox err.Number & ": " & err.Description

Also note that the Format function actually returns a String value, not a numeric one.
So you should declare counter1 as String, and not Long
Actually, I am not sure what the purpose of counter1 is anyway. You can just display counter. Why the need to format it?