Can I code like this?

[TA]

Dear all experts,
I have a piece of code like this , could you take a look
can we have a diff. way to write a short then? Thanks you
for any recomendation.

If (rs.Fields("sitetype").Value) <> 1 _
Or (rs.Fields("sitetype").Value) <> 2 _
Or (rs.Fields("sitetype").Value) <> 3 Then
Rs3.AddNew
Rs3!ident = tempID
Rs3!code = "111"
Rs3.Update
End If

Best Regards,
TA

 

[TA]

Thank you.

-----Original Message-----
with rs.Fields("sitetype")
if .Value < 1 or .value > 3 then
(your code)
endif
end with

HTH,
TC





.

 

[ta]

Thank you.
TA

-----Original Message-----
How about:

if abs(rs!sitetype) > 3 then
your code etc.
End if

Ron W



.