exception to MsgBox

I am currently running this code to prevent users from leaving a
TextBox (txtPO) empty:

If Trim(Me.txtPO.Value) = "" Then
Me.txtPO.SetFocus
MsgBox "Please enter a Purchase Order Number."
Exit Sub
End If

I would like this to only apply if "A," "B," or "C" are entered into
cboDealer which is on the same user form. Otherwise I want the user to
be able to leave this TextBox Empty. Can anybody provide me the
appropriate code?

Thanks in advance for all of your help!

Dim s as String
s = Trim(Me.cboDealer.Value)
if Len(s) = 1 and instr(1,"ABC",s,vbTextCompare)>0 then
If Trim(Me.txtPO.Value) = "" Then
Me.txtPO.SetFocus
MsgBox "Please enter a Purchase Order Number."
Exit Sub
End If
End if

--
Regards,
Tom Ogilvy


"L Scholes" <[email protected]> wrote in message
news:[email protected]...
> I am currently running this code to prevent users from leaving a
> TextBox (txtPO) empty:
>
> If Trim(Me.txtPO.Value) = "" Then
> Me.txtPO.SetFocus
> MsgBox "Please enter a Purchase Order Number."
> Exit Sub
> End If
>
> I would like this to only apply if "A," "B," or "C" are entered into
> cboDealer which is on the same user form. Otherwise I want the user to
> be able to leave this TextBox Empty. Can anybody provide me the
> appropriate code?
>
> Thanks in advance for all of your help!
>

In your code you have "ABC" on line 3. When I substitute for my list,
should I include the names without spaces or commas within one set of
quotes, or list each separately in their own quotes, separated by
commas?

You asked a specific question and got a specific answer. It the choices are
not "A" "B" or "C", then the answer isn't appropriate

If the choices are actually three text strings of multiple characters than
checking for a len of 1 is inappropriate.

Dim s as String
s = "#" & Trim(Me.cboDealer.Value) & "#"
if instr(1,"#AAAAA#BBBBB#CCCCC#", _
s,vbTextCompare)>0 then
If Trim(Me.txtPO.Value) = "" Then
Me.txtPO.SetFocus
MsgBox "Please enter a Purchase Order Number."
Exit Sub
End If
End if

Replace AAAAA, BBBBB, and CCCCC with your text strings.

--
Regards,
Tom Ogilvy




"L Scholes" <[email protected]> wrote in message
news:[email protected]...
> In your code you have "ABC" on line 3. When I substitute for my list,
> should I include the names without spaces or commas within one set of
> quotes, or list each separately in their own quotes, separated by
> commas?
>

Thank you sir, that works PERFECTLY!