'OR' Condition

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi,
Is there a limit to the no of 'OR's in a statement, cos in the below condition
the 1st 6 conditions get checked, but not the last checking criteria
[*****],refer below.
(also another simple Q, how can i break the lenght of the code
& continue typing it on a next line ?)

If Me.CboSubType.Value = "Blue" Or
Me.CboSubType.Value = "Blue MGM" Or
Me.CboSubType.Value = "Gold" Or
Me.CboSubType.Value = "Gold MGM" Or
Me.CboSubType.Value = "Citi-Access [Sal. Dom Only]" Or
Me.CboSubType.Value = "Citi-Plus" Or
Me.CboSubType.Value = "CG Fee Account" [*******] doesnt check this ! !
AND
Me.CboType = "New to Bank" Then
Me.Label7.Visible = False
Me.txtVlu.Visible = False
Else
Me.Label7.Visible = True
Me.txtVlu.Visible = True
 
Easy

TempOR1 = (Me.CboSubType.Value = "Blue") Or _
(Me.CboSubType.Value = "Blue MGM") Or _
(Me.CboSubType.Value = "Gold") Or _
(Me.CboSubType.Value = "Gold MGM")

TempOR2 = (Me.CboSubType.Value = "Citi-Access [Sal. Dom Only]") Or _
(Me.CboSubType.Value = "Citi-Plus") Or _
(Me.CboSubType.Value = "CG Fee Account")

if (TempOR1 or TempOR2) and (Me.CboType = "New to Bank") then
Me.Label7.Visible = False
Me.txtVlu.Visible = False
Else
Me.Label7.Visible = True
Me.txtVlu.Visible = True
 
Hi Joel,
Only the first half is getting checked (TempOR1).
Doesnt seem to work for the values in the (TempOR2) argument.

What next ?

Joel said:
Easy

TempOR1 = (Me.CboSubType.Value = "Blue") Or _
(Me.CboSubType.Value = "Blue MGM") Or _
(Me.CboSubType.Value = "Gold") Or _
(Me.CboSubType.Value = "Gold MGM")

TempOR2 = (Me.CboSubType.Value = "Citi-Access [Sal. Dom Only]") Or _
(Me.CboSubType.Value = "Citi-Plus") Or _
(Me.CboSubType.Value = "CG Fee Account")

if (TempOR1 or TempOR2) and (Me.CboType = "New to Bank") then
Me.Label7.Visible = False
Me.txtVlu.Visible = False
Else
Me.Label7.Visible = True
Me.txtVlu.Visible = True

Matts said:
Hi,
Is there a limit to the no of 'OR's in a statement, cos in the below condition
the 1st 6 conditions get checked, but not the last checking criteria
[*****],refer below.
(also another simple Q, how can i break the lenght of the code
& continue typing it on a next line ?)

If Me.CboSubType.Value = "Blue" Or
Me.CboSubType.Value = "Blue MGM" Or
Me.CboSubType.Value = "Gold" Or
Me.CboSubType.Value = "Gold MGM" Or
Me.CboSubType.Value = "Citi-Access [Sal. Dom Only]" Or
Me.CboSubType.Value = "Citi-Plus" Or
Me.CboSubType.Value = "CG Fee Account" [*******] doesnt check this ! !
AND
Me.CboType = "New to Bank" Then
Me.Label7.Visible = False
Me.txtVlu.Visible = False
Else
Me.Label7.Visible = True
Me.txtVlu.Visible = True
Click to expand...
Click to expand...
 
As I thought, the problem wasn't with the number of ORs strung together. The
is either a typo, a exttra blank character or an invisible character in the
string you are searching.

try something like this

for i = 1 to len(mystring)
msgbox("Char: " & i & "=" & _
mid(mystring,1,1) & "=" & _
asc(mid(mystring,1,1)))
next i

Matts said:
Hi Joel,
Only the first half is getting checked (TempOR1).
Doesnt seem to work for the values in the (TempOR2) argument.

What next ?

Joel said:
Easy

TempOR1 = (Me.CboSubType.Value = "Blue") Or _
(Me.CboSubType.Value = "Blue MGM") Or _
(Me.CboSubType.Value = "Gold") Or _
(Me.CboSubType.Value = "Gold MGM")

TempOR2 = (Me.CboSubType.Value = "Citi-Access [Sal. Dom Only]") Or _
(Me.CboSubType.Value = "Citi-Plus") Or _
(Me.CboSubType.Value = "CG Fee Account")

if (TempOR1 or TempOR2) and (Me.CboType = "New to Bank") then
Me.Label7.Visible = False
Me.txtVlu.Visible = False
Else
Me.Label7.Visible = True
Me.txtVlu.Visible = True

Matts said:
Hi,
Is there a limit to the no of 'OR's in a statement, cos in the below condition
the 1st 6 conditions get checked, but not the last checking criteria
[*****],refer below.
(also another simple Q, how can i break the lenght of the code
& continue typing it on a next line ?)

If Me.CboSubType.Value = "Blue" Or
Me.CboSubType.Value = "Blue MGM" Or
Me.CboSubType.Value = "Gold" Or
Me.CboSubType.Value = "Gold MGM" Or
Me.CboSubType.Value = "Citi-Access [Sal. Dom Only]" Or
Me.CboSubType.Value = "Citi-Plus" Or
Me.CboSubType.Value = "CG Fee Account" [*******] doesnt check this ! !
AND
Me.CboType = "New to Bank" Then
Me.Label7.Visible = False
Me.txtVlu.Visible = False
Else
Me.Label7.Visible = True
Me.txtVlu.Visible = True
Click to expand...
Click to expand...
Click to expand...
 
Your right Joel. Was a character mismatch.
Thanks a ton. Works brilliant.

Joel said:
As I thought, the problem wasn't with the number of ORs strung together. The
is either a typo, a exttra blank character or an invisible character in the
string you are searching.

try something like this

for i = 1 to len(mystring)
msgbox("Char: " & i & "=" & _
mid(mystring,1,1) & "=" & _
asc(mid(mystring,1,1)))
next i

Matts said:
Hi Joel,
Only the first half is getting checked (TempOR1).
Doesnt seem to work for the values in the (TempOR2) argument.

What next ?

Joel said:
Easy

TempOR1 = (Me.CboSubType.Value = "Blue") Or _
(Me.CboSubType.Value = "Blue MGM") Or _
(Me.CboSubType.Value = "Gold") Or _
(Me.CboSubType.Value = "Gold MGM")

TempOR2 = (Me.CboSubType.Value = "Citi-Access [Sal. Dom Only]") Or _
(Me.CboSubType.Value = "Citi-Plus") Or _
(Me.CboSubType.Value = "CG Fee Account")

if (TempOR1 or TempOR2) and (Me.CboType = "New to Bank") then
Me.Label7.Visible = False
Me.txtVlu.Visible = False
Else
Me.Label7.Visible = True
Me.txtVlu.Visible = True

:

Hi,
Is there a limit to the no of 'OR's in a statement, cos in the below condition
the 1st 6 conditions get checked, but not the last checking criteria
[*****],refer below.
(also another simple Q, how can i break the lenght of the code
& continue typing it on a next line ?)

If Me.CboSubType.Value = "Blue" Or
Me.CboSubType.Value = "Blue MGM" Or
Me.CboSubType.Value = "Gold" Or
Me.CboSubType.Value = "Gold MGM" Or
Me.CboSubType.Value = "Citi-Access [Sal. Dom Only]" Or
Me.CboSubType.Value = "Citi-Plus" Or
Me.CboSubType.Value = "CG Fee Account" [*******] doesnt check this ! !
AND
Me.CboType = "New to Bank" Then
Me.Label7.Visible = False
Me.txtVlu.Visible = False
Else
Me.Label7.Visible = True
Me.txtVlu.Visible = True
Click to expand...
Click to expand...
Click to expand...
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Automatically protect cells after updating information 6
Formula,Function, or VBA 1
Conditional Formatting 1
File dialog makes application visible 2
Testing CF Conditions 4
"Or" statement not working 22
run sub routine with multiple conditions 9
Access MS Access Required Fields 0

Back
Top