Problems with my Select Case

[Barkley via AccessMonster.com]

I am trying to run a Select Case procedure but regardless of the outcome of
my combo box, the procedure keeps running the Case Else option... which is to
display a message box stating "try again"... here is my code...

Private Sub Combo0_AfterUpdate()
Select Case [Combo0]
Case [Combo0] = "Apples"
Option2.Enabled = True
Option4.Enabled = True
Option6.Enabled = True
Option11.Enabled = False
Option13.Enabled = False
Option15.Enabled = False
Option17.Enabled = False
Label9.Visible = True
Label10.Visible = False
Case [Combo0] = "Oranges"
Option2.Enabled = False
Option4.Enabled = False
Option6.Enabled = False
Option11.Enabled = True
Option13.Enabled = True
Option15.Enabled = True
Option17.Enabled = True
Label9.Visible = False
Label10.Visible = True
Case [Combo0] = "Papayas"
Option2.Enabled = False
Option4.Enabled = False
Option6.Enabled = False
Option11.Enabled = False
Option13.Enabled = False
Option15.Enabled = False
Option17.Enabled = False
Label9.Visible = False
Label10.Visible = False
Case Else
MsgBox ("Try Again")
End Select
End Sub


Any suggestions?

 

[Allen Browne]

Assuming Combo0 is bound to a Text field (not a Number field), and the
RowSource and BoundColumn match correctly, the code would be like this:
Select Case Me.Combo0
Case "Apples"
Me.Option2.Enabled = True
...
Case "Oranges"
...

 

[Barkley via AccessMonster.com]

Thanks Allen... I got it to work... I didn't realize the Me. had to be
entered into the procedure... I was under the impression that, because this
is a class procedure, only the name of the control had to be entered...

Assuming Combo0 is bound to a Text field (not a Number field), and the
RowSource and BoundColumn match correctly, the code would be like this:
Select Case Me.Combo0
Case "Apples"
Me.Option2.Enabled = True
...
Case "Oranges"
...

I am trying to run a Select Case procedure but regardless of the outcome of
my combo box, the procedure keeps running the Case Else option... which is

[quoted text clipped - 37 lines]

End Select
End Sub

 

[Allen Browne]

Actually, the Me is optional (but recommened as it helps identify what you
are talking about.)

The crucial change was just stating the value in the Case statement.

--
Allen Browne - Microsoft MVP. Perth, Western Australia

Reply to group, rather than allenbrowne at mvps dot org.

Thanks Allen... I got it to work... I didn't realize the Me. had to be
entered into the procedure... I was under the impression that, because
this
is a class procedure, only the name of the control had to be entered...

Assuming Combo0 is bound to a Text field (not a Number field), and the
RowSource and BoundColumn match correctly, the code would be like this:
Select Case Me.Combo0
Case "Apples"
Me.Option2.Enabled = True
...
Case "Oranges"
...

I am trying to run a Select Case procedure but regardless of the outcome
of
my combo box, the procedure keeps running the Case Else option... which
is

[quoted text clipped - 37 lines]

End Select
End Sub