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!

exception to MsgBox
 

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" wrote in message
oups.com...
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!

exception to MsgBox
 

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?

exception to MsgBox
 

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" wrote in message
ups.com...
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?

exception to MsgBox
 

Thank you sir, that works PERFECTLY!