Option Compare Database

'------------------------------------------------------------
' CloseReportForm
'
'------------------------------------------------------------
Function CloseReportForm()
On Error GoTo CloseReportForm_Err

    Beep
    MsgBox "You Are About To Close Report Form.", vbQuestion, ""
    Beep
    Beep
    Beep
    DoCmd.Close acForm, "Report Form"
    DoCmd.OpenForm "MainForm", acNormal, "", "", , acNormal


CloseReportForm_Exit:
    Exit Function

CloseReportForm_Err:
    MsgBox Error$
    Resume CloseReportForm_Exit

End Function