Help!!!

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
 
you could try this code
Code:
Private Sub Optiongrp1_AfterUpdate()
  Dim i As Integer

  For i = 1 To 5
    With Me("Text" & i)
      .Enabled = i = Me!Optiongrp1
    End With
  Next i
  
End Sub
 

Users who are viewing this thread

Back
Top Bottom