Multiple Ifs make different controls visible 1

[BrianLe]

I have a form with many textboxes and a few listboxes. I want to hide specific textboxes depending on what is selected in the listbox. I've tried the following, but it only seems to work for ProcessID = 3.

Private Sub lbxProcessID_AfterUpdate()

If Me![lbxProcessID] = 1 Then
     
      Me!lbxTrainOrderID.Visible = False
      Me!tbxPileAdjustment.Visible = False
 
 End If
 
 If Me![lbxProcessID] = 2 Then
           
      Me!tbxPileAdjustment.Visible = False
 
 End If

    If Me![lbxProcessID] = 3 Then
 
      Me!lbxTrainOrderID.Visible = False
   
Else
   
      Me!lbxTrainOrderID.Visible = True
      Me!tbxPileAdjustment.Visible = True
      Me!tbxStackingTubeAdjustment.Visible = True
      
   End If
      
End Sub

With my code none of the textboxes are hidden for ProcessID =1 or 2, but they should be hidden.

Any suggestions?

Thanks,

Brian

 

[Remou]

That is because the final If is overriding the other two. I think you would be better with Select Case:

Private Sub lbxProcessID_AfterUpdate()

Select Case Me![lbxProcessID] 
   Case 1
     
      Me!lbxTrainOrderID.Visible = False
      Me!tbxPileAdjustment.Visible = False
 
   Case 2 
           
      Me!tbxPileAdjustment.Visible = False
 
   Case 3 
 
      Me!lbxTrainOrderID.Visible = False
   
   CaseElse
   
      Me!lbxTrainOrderID.Visible = True
      Me!tbxPileAdjustment.Visible = True
      Me!tbxStackingTubeAdjustment.Visible = True
      
End Select
      
End Sub

 

[BrianLe]

Remou,

That works good as long as the correct ProcessID is selected. If the wrong one is selected, and then the correct one is selected, the controls that were originally hidden do not reappear.

Thanks,

Brian

 

[BrianLe]

Remou,

I figured out how to solve my problem. In each case, I put in code to make the controls that were set to visible = false by the other cases to visible = true.

Now I have,

Private Sub lbxProcessID_AfterUpdate()

Select Case Me![lbxProcessID]
   Case 1
     
      Me!lbxTrainOrderID.Visible = False
      Me!tbxPileAdjustment.Visible = False
      Me!tbxStackingTubeAdjustment.Visible = True
 
   Case 2
           
      Me!tbxPileAdjustment.Visible = False
      Me!lbxTrainOrderID.Visible = True
      Me!tbxStackingTubeAdjustment.Visible = True
 
   Case 3
 
      Me!lbxTrainOrderID.Visible = False
      Me!tbxPileAdjustment.Visible = True
      Me!tbxStackingTubeAdjustment.Visible = True
   
   Case Else
   
      Me!lbxTrainOrderID.Visible = True
      Me!tbxPileAdjustment.Visible = True
      Me!tbxStackingTubeAdjustment.Visible = True
      
End Select
      
End Sub

Thanks again,

Brian