disabling all controls on a form save one

[DHSBW]

I want to disable all controls on a form open event execept of the textbox Employee ID. Is there some loop procedure I can use to accomplish that?

 

[KKit]

I also do this sometimes...Here is the code that I use

Dim ctl As Control
For Each ctl In Me.Form
   If not ctl.Name Like "MyExcludedControl" Then
        ctl.enabled = false
   End If
Next ctl

Of course, you cannot disable a control that has focus, so make sure that you set your focus to the control that you will leave enabled.

 

[TheAceMan1]

How are ya DHSBW . . .

Since you want this to occur when you first open the form why not [blue]disable the controls (default) in design view[/blue] and save yourself the code? . . .

See Ya! . . . . . .

Be sure to see FAQ219-2884:

 

[JoeAtWork]

AceMan - I assume that at some point he'll want to enable the controls (else why have them) so either way he will need the looping code (either to enable or disable).

 

[DHSBW]

Hi:

Thanks for responding. I found an example from another site. Sorry I didn't get back sooner. Posted the code below just for the hell of it.

Private Sub Form_Open(Cancel As Integer)
Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox
If ctl.Name Like "*Emp" Then
ctl.Enabled = True
Else
ctl.Enabled = False
End If
End Select
Next
Me.Emp.SetFocus
End Sub

 

[TheAceMan1]

Howdy JoeAtWork . . .

Yes they'll have to be turned on but it saves the following:

[blue]I want to disable all controls on a form open event execept . . .[/blue]

See Ya! . . . . . .

Be sure to see FAQ219-2884: