Better way of coding large 'If / Then' statements

[karmacable]

I have this code which works great. However, it's getting very large to write and was hoping there's a better way to write it. Here's the basic scenario (not the actual code, just the structure for ease of readability);



Dim W1 As Integer
Dim W2 As Integer
W1 = Me.txtFirst
W2 = Me.txtSecond

 
If      W1 = 0    And   W2 = 0
    
    Me.txtStart  =  ""
    Me.txtEnd    =  ""
 
ElseIf  W1  <> 0  And  W2  =   0
    
    Me.txtStart  =  Me.txtHi
    Me.txtEnd    =  ""
 
ElseIf  W1  <> 0  And  W2  <>  0
    
    Me.txtStart  =  Me.txtRed
    Me.txtEnd    =  Me.txtYellow
 
ElseIf  W1  =   0  And  W2  <>  0
    
    Me.txtStart  =  ""
    Me.txtEnd    =  Me.txtLow
 
EndIf

As you can see in this structure, I have two fields (W1,W2) who's every combination (which in this case is four) has a specific output. I am currently using this structure on three fields, which caused me to create 8 possible combinations. I have another piece of code which using this structure will require me to create nine fields! I'm truly hoping there's a better way I currently don't know of (can a 'Select Case' statement work here)?

Any suggestions are appreciated!

[pdebaets]

What you have there is readable. I'm not sure there's a problem. You may want to try something like:

If W1 = 0 And W2 = 0 Then Me.txtStart = "":    Me.txtEnd = ""
ElseIf W1 <> 0 And W2 = 0 Then Me.txtStart = Me.txtHi: Me.txtEnd = ""
ElseIf W1 <> 0 And W2 <> 0 Then Me.txtStart = Me.txtRed: Me.txtEnd = Me.txtYellow
ElseIf W1 = 0 And W2 <> 0 Then Me.txtStart = "": Me.txtEnd = Me.txtLow
End If

... or:

Select _
Case W1 = 0 And W2 = 0: Me.txtStart = "": Me.txtEnd = ""
Case W1 <> 0 And W2 = 0: Me.txtStart = Me.txtHi: Me.txtEnd = ""
Case W1 <> 0 And W2 <> 0: Me.txtStart = Me.txtRed: Me.txtEnd = Me.txtYellow
Case W1 = 0 And W2 <> 0: Me.txtStart = "": Me.txtEnd = Me.txtLow
End Select

[ssanfu]

I don't know if this is better, but at least it is not hard coded....

My idea is to use a table, open a record set and get the values from the controls on the form.

The attached A2K MDB example has 2 fields V1 & V2 (v= values). This will allow 4 combinations:

0,0
0,1
1,0
1,1

If you used 3 fields to do the tests (V1, V2 & V3), you would have 8 records in the table.:
0,0,0
0,0,1
0,1,0
0,1,1
1,0,0
1,0,1
1,1,0
1,1,1


There are 2 other fields in the table, F1 & F2. These are the control names that the final values will be looked up. You could have as many fields as you want.

I used your names from the code example, so if it is hard to understand....


I know I'm not explaining this very well, so if you have questions, post back...