For Each ctl In Me.Controls
If ctl.Tag = "add" Then
ctl.Enabled = True
ctl.Locked = False
Else
End If
Next

In the Form_Current event I have some code which checks a date and
either locks and disables or unlocks and enables various controls
wherever they have "add" assigned as their Tag property. This code
has worked well for over 4 years without issue. I have been making
some amendments to the form, I have added another command button which
adds some functionality. I have made no amendments to the
Form_current coding, nor have I changed the Tag property of any of the
controls, yet I am getting an error 438 object doesn't support this
property or method, any ideas?

I should add that the first line of code is actually : - on Error
resume Next

I have removed the tag from all of the objects which do not have a
locked and enabled property and it now works fine. I don't understand
why it worked well for so long until today? Another form which had no
amendments to it but has a similar Form Current coding gave the 438
error as well. I'm never happy when things happen that shouldn't!

On 2012-01-23 6:00 PM, BobbyDazzler wrote:

Which of the form objects does ctl refer to when the code bombs out and
what type of object is it ?

On Jan 23, 5:21*pm, Jan T <access... (AT) yahoo (DOT) com> wrote:
I don't know Jan ) I had assumed that the original code worked by
ignoring any errors (on Error Resume Next) but now I'm not so sure. I
have fixed it anyway by removing the tag from all objects which do not
have the enabled and locked properties. Thanks for your post.

On Jan 24, 3:17*am, BobbyDazzler <david.a.mitch... (AT) inbox (DOT) com> wrote:
This is a code example from help.

Dim intI As Integer
Const conTransparent = 0
Const conWhite = 16777215
Dim ctl As Control

For Each ctl in frm.Controls
With ctl
Select Case .ControlType
Case acLabel
If .SpecialEffect = acEffectShadow Then
.SpecialEffect = acEffectNormal
.BorderStyle = conTransparent
Else
.SpecialEffect = acEffectShadow
End If
Case acTextBox
If .SpecialEffect = acEffectNormal Then
.SpecialEffect = acEffectSunken
.BackColor = conWhite
Else
.SpecialEffect = acEffectNormal
.BackColor = frm.Detail.BackColor
End If
End Select
End With
Next ctl

Maybe run your code for specific control types; combox or textboxes
and leave the others alone. Or run some code that Debug.Prints the
control name and control type. When it bombs you have the last
control name that bombed/