Enabling and disabling fields

[SgtSaunders69]

I want to enable and disable various combinations of text boxes based on what the user selects in a combo pulldown box. The code I have will only make the changes in the first section for the first report listed "All currently open work requests". ... After that nothing runs... no errors.. just doesn't do anything.


Private Sub Combo21_AfterUpdate()
If Forms![FRMrpt1]!Combo21! = "All currently open work requests" Then
Forms![FRMrpt1]!Combo19.Enabled = no
Forms![FRMrpt1]!Combo26.Enabled = no
Forms![FRMrpt1]!Combo28.Enabled = no
Else
Forms![FRMrpt1]!Combo19.Enabled = yes
Forms![FRMrpt1]!Combo26.Enabled = yes
Forms![FRMrpt1]!Combo28.Enabled = yes



End If
If Forms![FRMrpt1]!Combo21! = "All Excalated work requests - Closed" Then
Forms![FRMrpt1]!Combo19.Enabled = yes
Forms![FRMrpt1]!Combo26.Enabled = yes
Forms![FRMrpt1]!Combo28.Enabled = no
Else
Forms![FRMrpt1]!Combo19.Enabled = no
Forms![FRMrpt1]!Combo26.Enabled = no
Forms![FRMrpt1]!Combo28.Enabled = no


End If

End Sub

Any thoughts would be appreciated!

[RuralGuy]

Does all of this take place on the FRMrpt1 form? How many different values are possible for the Combo21 ComboBox?

[SgtSaunders69]

Yes.. it does... right now I have 15 reports... so there could be that many different scenarios.

[RuralGuy]

How about using a Select Case structure?

[SgtSaunders69]

I'm game.. can you show me some sample code?

[RuralGuy]

Something like:

Private Sub Combo21_AfterUpdate()
   Select Case Me.Combo21
      Case "All currently open work requests"
         Me.Combo19.Enabled = False
         Me.Combo26.Enabled = False
         Me.Combo28.Enabled = False
      Case "All Excalated work requests - Closed"
         Me.Combo19.Enabled = True
         Me.Combo26.Enabled = True
         Me.Combo28.Enabled = False
      Case Else
         ' Whatever
   End Select
End Sub

[SgtSaunders69]

Using this code I'm seeing the same behavior problem with the form. When I select the first report in the combo box the other coded fields enable and disable as desired, but after that the fields will not enable or disable again no matter which other report I select in the combo box.

[RuralGuy]

Try this and let us know what happens.

Private Sub Combo21_AfterUpdate()
   Select Case Me.Combo21
      Case "All currently open work requests"
         Me.Combo19.Enabled = False
         Me.Combo26.Enabled = False
         Me.Combo28.Enabled = False
      Case "All Excalated work requests - Closed"
         Me.Combo19.Enabled = True
         Me.Combo26.Enabled = True
         Me.Combo28.Enabled = False
      Case Else
         Me.Combo19.Enabled = True
         Me.Combo26.Enabled = True
         Me.Combo28.Enabled = True
   End Select
   MsgBox "The value is: " & Me.Combo21
End Sub

[SgtSaunders69]

That worked.... thanks... including the confirmation message...

Thanks....

[RuralGuy]

Is this thread ready for you to use the Thread Tools at the top of the thread and mark it Solved?