-
VBA problem..
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
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules