or, if it is truly from the start of the code,
you could recall the code,
Sub TimeCalc()
y = 12
Docmd.SendObject acReport.....
Do While x <> y
x = x + mintNumber
Loop
If x = y Then Call TimeCalc Else Exit Sub
End Sub
...the code makes no sense, but I have seen before,
a call to a sub, within the sub itself.