Please find to fight this error

[sabavno]

Hi

I have this code

Dim frm As Form_AddRecord1
Dim x As TextBox

For Each x In frm
If x.Visible = False Then
x.Visible = True
End If
Next x

And I get an error "Object required"

Why is that?

Please help.

 

[SBendBuckeye]

Dim ctl As Control

For Each ctl In Form_AddRecord1
If Not ctl.Visible Then
ctl.Visible = Not ctl.Visible
End If
Next ctl

Good Luck!