What's wrong with this IF statement? 1

[ychousa]

Hi.

I have 2 txtfields to generate an ID in my form, but they are not working.

Here's the code:

Private Sub SSpaceH_AfterUpdate()
Dim SSpaceW As String, SSpaceH As String

SSpaceW = Me!SSpaceW
SSpaceH = Me!SSpaceH

Select Case (SSpaceW And SSpaceH)
Case ("10" And "10&quot: Me![SSpaceType] = "1010"
Case ("10" And "20&quot: Me![SSpaceType] = "1020"
Case ("10" And "15&quot: Me![SSpaceType] = "1015"
Case ("15" And "10&quot: Me![SSpaceType] = "1510"
Case ("20" And "10&quot: Me![SSpaceType] = "2010"
Case ("20" And "20&quot: Me![SSpaceType] = "2020"
End Select
End Sub

SSpaceW, SSpaceH, SSpaceType are all text fields. It works with some sets but not all of them.

For example, it works with (10 And 10), (10 and 20), (20 and 20).

What is wrong with this IF statement?

 

[missinglinq]

Duh, just for a start, what "If" statement?

"It's got to be the going,
not the getting there that's good!"
-Harry Chapin

 

[Eupher]

Hmm... I've not used multiple values with the Select Case statement before, but I suspect the AND operator is fouling the works. Anyway, it seems unnecessarily complicated. Why not just concatenate the strings?

Me![SSpaceType] = Me![SSpaceW] & Me![SSpaceH]

You can, of course, test for valid values in the fields before concatenating...

HTH

Ken S.

 

[ychousa]

Sorry, I should have named it a Case statement.

 

[ychousa]

Hi, Ken.

Thanks for your comments.

I tried to use Case statement for some reason, but your're right. It's too complicated and maybe not worth trying it.

I would go for your suggestion.

Thanks..

John