J
JOM
I have 2 comboboxes on my form, (AcctDecision, AcctCode)
AcctDecision has the following values in it... (Accept, Deny, Pending)
AcctName has the following names ( XYZ, ABC, DEF)
So what I am getting into is that if I select Pending in the AcctCode
Combobox, I need to select something in the AcctName. My code is making me
be able to save the record with the ACCTName blank when the Acct Code is
Pending.
Dim StrControl as string
strControl = ""
If Me!AcctDecision.Column(1) = "Pending" And IsNull(Me!AcctCode) Then
strControl = strControl & "Select an Account Name" & vbCrLf
Cancel = True
End If
if strControl <>"" then
msgbox " Enter missing informatio": & vbcrlf & strcontrol,
vbinformation, "Incomplete Information"
End if
AcctDecision has the following values in it... (Accept, Deny, Pending)
AcctName has the following names ( XYZ, ABC, DEF)
So what I am getting into is that if I select Pending in the AcctCode
Combobox, I need to select something in the AcctName. My code is making me
be able to save the record with the ACCTName blank when the Acct Code is
Pending.
Dim StrControl as string
strControl = ""
If Me!AcctDecision.Column(1) = "Pending" And IsNull(Me!AcctCode) Then
strControl = strControl & "Select an Account Name" & vbCrLf
Cancel = True
End If
if strControl <>"" then
msgbox " Enter missing informatio": & vbcrlf & strcontrol,
vbinformation, "Incomplete Information"
End if