Hi
The code now looks like this:
Private Sub Form_Timer()
DoCmd.SetWarnings False
DoCmd.Close acForm, "TblTotalPorts", acSaveNo
DoEvents
DoCmd.OpenForm "frmReload"
DoCmd.OpenQuery "QMakeDump", acNormal, acEdit
DoCmd.OpenQuery "QPorts", acNormal, acEdit
DoCmd.OpenQuery "QDeleteTotalPorts"...