Or....

[Gangsta]

Hey,
I've got to validate a value in access, which I am doing in VB.

Basically I'm doing something Like this

If LeftP = "A" or "B" or "C" .....etc then

Some values like 0 and I will not be accepted since they are not allowed ( Car registation Number ) .

Anyway is there anyway to make Vb check more than one character in a If statement. Because I know how to do a simple

If Leftp= "A" then ...

Hope you understand.

[RhinoBull]

There are few ways to do that:

If LeftP = "A" Or LeftP = "B" Or ... Then
 
Else
 
End If
 
Select Case LeftP
    Case "A", "B", "C", ...
        '...
    Case Else
        '...
End Select

[Gangsta]

I guess I could do it via an array too, using a loop right... Then declare the numbers/ letters which could be accepted at the beginnning?

[RhinoBull]

You may certainly use arrays or array of UDT... I don't, however, know what you are after.

[Gangsta]

I think I'll just declare at the beginning something like.

Dim AcceptedValues 0 to 22 as String

Then delcare the accepted values like

AcceptedValues(0)= "A" and so on.

Then for the checking line
For I = 0 to 24
If LeftP= AcceptedValues(I) then
Msgbox= "Correct Value"
Else
Msgbox = "Entered incorrect Value"
End If
Next I

I know that code isn't 100% right.. I cant get the loop to work

[brucevde]

I think you want "pattern matching". The Like operator might be what you need.

The following code indicates the registration number must
have a length of 6
first character can only be A, B, C
2nd can only be F,N,R
3rd X,Y,Z
4th, 5th and 6th - must be digits and cannot be 0

Dim strRegistrationNumber
 
strRegistrationNumber = "ARY173"
 
If strRegistrationNumber Like "[A-C][FNR][X-Z][1-9][1-9][1-9]" Then
   Debug.Print "Reg # is valid"
Else
   Debug.Print "Reg # is invalid"
End If

[Gangsta]

Thanks brucevde + RhinoBull.
I think that should do the trick. I might have to edit the
"[A-C][FNR][X-Z][1-9][1-9][1-9]" to what I need it to be ( I have to do it in the Pre 2001 UK format which is slighty different to todays format.

[Shaggy Hiker]

Before you go off on that array solution, take a good look at RhinoBull's second suggestion in his first post. Using the Select Case statement can put all the options into one statement. Whether this is actually faster than looping through the arrays, would have to be tested, since I don't know how VB would implement the Select, but I would expect it to be faster.

[chemicalNova]

I would say that Select Case statements are alot faster than looping through and using If...Then statements.


Phreak

[RhinoBull]

It really depends on size of your array - you wouldn't notice difference if it's a small one but theoretically Select Case should be faster due to indexing.

[Gangsta]

I would use case but I don't really understand how it works.

[chemicalNova]

It isn't much harder to understand than If...Then statements

Dim str As String
 
str = "Hello World!"
 
Select Case str
    Case "Hello World!": 'If str = "Hello World!" Then
        MsgBox "Hello World!"
    Case "Hello World 2!": 'If str = "Hello World 2!" Then
        MsgBox "Hello World 2!"
End Select

Phreak

[Gangsta]

Thanks. That makes it easier to understand.

Basically now I have three blocks of text

First is a block of 2 characters which is letter block ( No Numbers)
I can validate that it is simply letters by using access validation. But what I need to do is make sure certain letters are not used.
IE. O, l ..etc . Is there anyway I can scan the LeftP ( Left Part) for these characters and if they are contained in this part flag it up.

Thanks once again.