sorry my fault, this is the code below, it now errors on: Resume Exit_Save_Monthly_Report_Click:
error time 20
resume without error
before the error a box comes up that say "ok"
End If
DoCmd.OutputTo acOutputReport, "MD Form", "Microsoft Excel Workbook(*.xls)", "C:\Documents and Settings\KevanAlderton.THERMOSHIELD\Desktop\MD Form.xls"
Exit_Save_Monthly_Report_Click:
Err_Save_Monthly_Report_Click:
MsgBox Err.Description
Resume Exit_Save_Monthly_Report_Click:
End Sub