Visual Basic

[les]

I am trying to translate some code from another program into access. In
Visual basic, I created the module seen below.

The problem I am having is instead of using "=" I need to change it to be
"Contains" I can not figure out what the function should be.
Thanks!

If (CLASSCD = "0763" Or CLASSCD = "6006" Or CLASSCD = "6801" Or CLASSCD =
"6803" Or _
CLASSCD = "6824" Or CLASSCD = "6825" Or CLASSCD = "6826" Or CLASSCD
= "6827" Or CLASSCD = "6828" Or CLASSCD = "6829" Or _
CLASSCD = "6843" Or CLASSCD = "6845" Or CLASSCD = "6846" Or CLASSCD
= "6869" Or CLASSCD = "6872" Or CLASSCD = "6873" Or _
CLASSCD = "6874" Or CLASSCD = "6875" Or CLASSCD = "7309" Or CLASSCD
= "7313" Or CLASSCD = "7317" Or CLASSCD = "7323" Or _
CLASSCD = "7327" Or CLASSCD = "7350" Or CLASSCD = "7352" Or CLASSCD
= "7366" Or _
CLASSCD = "8709" Or CLASSCD = "8726" Or CLASSCD = "9077") Then
FCLASS = ITDEP
Else 'Other values.
Class = 0
End If


End Function

 

[Stefan Hoffmann]

hi Les,

The problem I am having is instead of using "=" I need to change it to be
"Contains" I can not figure out what the function should be.

InStr(CLASSCD, "0763") > 0

or

CLASSCD LIKE "*0763*"


mfG
--> stefan <--

 

[S.Clark]

IF Instr("8709|8726|9077", CLASSCD) > 0 then
....
End If

 

[les]

Thank you!!!!

IF Instr("8709|8726|9077", CLASSCD) > 0 then
...
End If