Me. statements not working

[RaptureReady]

Hey all, I am trying to write a me. statement that has more than one condition, is this possible?

Here is what I have, oh and btw I'm learning access if you could not tell...:

Private Sub Product_LostFocus()
If Me.Product = "1" or "3" or "7" or "12" or "Large" Then
Me.stocked = True
Else
Me.stocked = False
End If
End Sub
[\code]
 
Thanks for the help.
RR

 

[Kryst51]

Try Me.Product.Value = "1" or "3" or "7" or "12" or "Large" Then
Me.stocked = True
Else
Me.stocked = False
End If
End Sub
[\code]


Not sure but may need the .value on the "stocked" portion as well.

 

[RaptureReady]

Thank you for the reply. I tried that and it did not work.

 

[Kryst51]

Is there anyway you can zip and post your database? What version are you working in?

 

[Brianwarnock]

Use Select Case

Private Sub Product_LostFocus()

Select case Me.Product

case "1" ,"3", "7" ,"12","Large" 
           Me.stocked = True
Case Else
           Me.stocked = False
End Select

Brian

 

[RaptureReady]

Awesome, that worked Brian, thanks for the help from all.

 

[pbaldy]

For general info, your problem was in not repeating the field:

If Me.Product = "1" or Me.Product = "3" or Me.Product = ...

 

[RaptureReady]

For general info, your problem was in not repeating the field:

If Me.Product = "1" or Me.Product = "3" or Me.Product = ...

lol...I actually did that and it worked, but then I saw Brian's post and decided to use it.

God bless all!

 

[Kryst51]

I am glad that you were able to get everything working.

 

[pbaldy]

I saw Brian's post and decided to use it.

I would too; Select/Case is cleaner in this instance. I just wanted to clarify what the original error was.