accessdummy
Registered User.
- Local time
- Today, 11:23
- Joined
- Sep 7, 2003
- Messages
- 44
It's me again.
I have an option group with 5 options and 5 disable textboxs.
If I select any option, the corresponding textbox will be enabled while the rest of the 4 textbox will be disabled.
I have a sub procedure to do tt but I find that coding is cumbersome.
Anyone has an easier solution to this problem?
I add the subprocedure into the option group's afterupdate
Private Sub Optiongrp1_AfterUpdate()
Select Case Optiongrp1
Case 1 'file in
Me!Text1.Enabled = True
Me!Text2.Enabled = False
Me!Text3.Enabled = False
Me!Text4.Enabled = False
Me!Text5.Enabled = False
Case 2 'routed to
Me!Text1.Enabled = False
Me!Text2.Enabled = True
Me!Text3.Enabled = False
Me!Text4.Enabled = False
Me!Text5.Enabled = False
Case 3 ' date destroyed
Me!Text1.Enabled = False
Me!Text2.Enabled = False
Me!Text3.Enabled = True
Me!Text4.Enabled = False
Me!Text5.Enabled = False
.
.
.
End Select
End Sub
I have an option group with 5 options and 5 disable textboxs.
If I select any option, the corresponding textbox will be enabled while the rest of the 4 textbox will be disabled.
I have a sub procedure to do tt but I find that coding is cumbersome.
Anyone has an easier solution to this problem?
I add the subprocedure into the option group's afterupdate
Private Sub Optiongrp1_AfterUpdate()
Select Case Optiongrp1
Case 1 'file in
Me!Text1.Enabled = True
Me!Text2.Enabled = False
Me!Text3.Enabled = False
Me!Text4.Enabled = False
Me!Text5.Enabled = False
Case 2 'routed to
Me!Text1.Enabled = False
Me!Text2.Enabled = True
Me!Text3.Enabled = False
Me!Text4.Enabled = False
Me!Text5.Enabled = False
Case 3 ' date destroyed
Me!Text1.Enabled = False
Me!Text2.Enabled = False
Me!Text3.Enabled = True
Me!Text4.Enabled = False
Me!Text5.Enabled = False
.
.
.
End Select
End Sub