Vba

Hi I a code to print out a report sheet but I needed the code to check that the results are correct first and if not then tell the user to select a different check box. Well the code does that as far as tell the user to select the correct box but when you select the correct box the code does not do enthing? Can some one help please.
'------------------------------------------------------------
' PRINT_REPORT
'
'------------------------------------------------------------
Function PRINT_REPORT()
On Error GoTo PRINT_REPORT_Err

With CodeContextObject
If (.CheckChoice = 1 And .RingAppr = "Not Approved") Then
Beep
MsgBox "1st Off Not Approved please select SETTING tick box", vbExclamation, "NOT APPROVED"
End If
Exit Function
DoCmd.Close acForm, "ENTER DATA"
DoCmd.OpenReport "Inner Ring Result page", acViewPreview, "", "", acNormal
DoCmd.PrintOut acPages, 1, 1, acHigh, 1, True
DoCmd.Close acReport, "Inner Ring Result page"
DoCmd.OpenForm "Switchboard", acNormal, "", "", , acNormal
End With


PRINT_REPORT_Exit:
Exit Function

PRINT_REPORT_Err:
MsgBox Error$
Resume PRINT_REPORT_Exit

End Function