If you are not using the timer event on your current form, you could apply IMO's idea (or a version of) on the current form:
Private Sub YourButton_Click()
Docmd.OutputTo acOutputQuery, "Qy_1", acFormatXLS, "C:\A.xls"
Me.TimerInterval = 30000
End Sub
Private Sub Form_Timer()
Me.TimerInterval...