How Can I go about making the msgbox appear if any of the conditions is wrong?? Please assist


Private Sub cmd_LO_PBA_Facility_Click()
On Error GoTo Err_Cmd_LO_PBA_Facility_Click
Me.Refresh
Dim stDocName As String

If cmb_Product_Type = "PBA Facility" Then

If Not IsNull(RCF_Limit) Then

If Not IsNull(FX_Option_Limit) Then

If Not IsNull(Security_Option_Limit) Then

If Not IsNull(PBA_Account_No) Then

If Not IsNull(Interest_Rate) Then

stDocName = "PBA_Facility_LO"
DoCmd.OpenReport stDocName, acPreview

Else:
MsgBox "Please check your input at Revolving Credit Facility tab"
Me!RCF_Limit.SetFocus

End If

End If

End If

End If

End If

End If

Exit_Cmd_LO_PBA_Facility_Click:
Exit Sub
Err_Cmd_LO_PBA_Facility_Click:
MsgBox Err.Description
Resume Exit_Cmd_LO_PBA_Facility_Click

End Sub