Disable all controls in from upon opening...?

[Klopper]

I would like to disable each control in a form when the form is opened - can anyone tell me why this code does not work?

Private Sub Form_Open(Cancel As Integer)
Dim ctl As Control
Dim frm As Form

Set frm = Forms!form_name

For Each ctl In frm.Controls
ctl.Enabled = False
Next ctl

End Sub

Any help appreciated!
Klopper

 

[jebry]

Hi!

Try putting the code in the Form_Load event instead. I'm not sure that all of the controls are available for the open event.

hth
Jeff Bridgham

 

[Klopper]

Good suggestion, Jeff, but it didn't quite work.
For some reason, the "enabled" propery is not available but the "visible" property is!
This does the job but seems a little odd to a novice like me.

TFTH
Klopper

 

[JohnLowell]

Why not disable them in design view. That way when you open the form they are disabled. When you need to get at the fields, run your code to enable them.

 

[Klopper]

Yup, that works!

Why is it that the most trivial things lose you the most amount of hair?