If Then Else Problem

[315hughes]

Hi i am trying to do the following code but it is saying i have an error "else without and if" but i do have an if below is the code

Private Sub StockDesc_Click()
 
If StockDesc = "Hard Hat" Then ExpiryDate.Visible = True
If StockDesc = "Boots" Then ExpiryDate.Visible = True
Else: ExpiryDate.Visible = False
End If
End Sub

thanks for any help

[Rabbit]

When you put the If expression Then expression code all on one line, it doesn't process any further.

You need to use this syntax instead.

if expression then
   expression
else
   expression
end if

[315hughes]

Thank you very much im supprised somthing like that affects it. Thanks again

[NeoPa]

If it had worked that way, then the first If line would also have required an Else. Whichever way you look at it your code was going to fail there on one of them ;-)

Anyway, let me just remind you that post #2 is ripe for selection as Best Answer and please remember to post in the correct forum another time (You must have ignored one or two warnings this time to end up in the Articles forum).