Lock Form

[mattc66 via AccessMonster.com]

On the suggestion of another thread I placed the word LOCK on each of my
controls TAG.

On the Form event Current I placed the following code. I get run-time error
438 Object doesn't support this property.

What I am trying to do is Lock all items on my form if the "EDI_Complete"
Check box is TRUE.

Can anyone offer me a suggested solution?

Thanks
Matt

Private Sub Form_Current()

Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Tag = "LOCK" Then
If Me.EDI_Complete = True Then
ctl.Locked = True
ctl.ForeColor = vbBlue
Else
ctl.Locked = False
ctl.ForeColor = vbGreen
End If
End If
Next ctl


End Sub

 

[Douglas J. Steele]

I don't believe every control has a Tag property. You'll have to put in
error trapping to determine which control(s) cause the error, and ensure
that you don't look at the Tag property for those controls. (Look at the
ControlType property if you need to eliminate certain controls)

 

[Marshall Barton]

I don't believe every control has a Tag property. You'll have to put in
error trapping to determine which control(s) cause the error, and ensure
that you don't look at the Tag property for those controls. (Look at the
ControlType property if you need to eliminate certain controls)

I think all the Access controls have the Tag property,
though some ActiveX controls might not.

However, there are some controls that do not have a Locked
(e.g. label) or ForeColor (e.g. checkbox) property.

If a control does not have the Locked property, it should
not be included in the set of controls with "LOCK" in the
Tag property.

An alternative is to use different values in the Tag
property. E,g, "LOCK" for controls that need to be locked
and "FORE" for controls that need to change color. For
those controls that need both, set their Tag to "LOCK;FORE"
The code could then look like:

For Each ctl In Me.Controls
If ctl.Tag Like "*LOCK*" Then
ctl.Locked = Me.EDI_Complete
End If
If ctl.Tag Like "*FORE*" Then
If Me.EDI_Complete = True Then
ctl.ForeColor = vbBlue
Else
ctl.ForeColor = vbGreen
End If
End If

Error handling is a good idea regardless of how the problem
is addressed.

 

[Douglas J. Steele]

I think all the Access controls have the Tag property,
though some ActiveX controls might not.

However, there are some controls that do not have a Locked
(e.g. label) or ForeColor (e.g. checkbox) property.

If a control does not have the Locked property, it should
not be included in the set of controls with "LOCK" in the
Tag property.

An alternative is to use different values in the Tag
property. E,g, "LOCK" for controls that need to be locked
and "FORE" for controls that need to change color. For
those controls that need both, set their Tag to "LOCK;FORE"
The code could then look like:

For Each ctl In Me.Controls
If ctl.Tag Like "*LOCK*" Then
ctl.Locked = Me.EDI_Complete
End If
If ctl.Tag Like "*FORE*" Then
If Me.EDI_Complete = True Then
ctl.ForeColor = vbBlue
Else
ctl.ForeColor = vbGreen
End If
End If

Error handling is a good idea regardless of how the problem
is addressed.

Yeah, I believe you're correct, Marsh.

 

[mattc66 via AccessMonster.com]

That works thanks - How would I lock a subform?

I think all the Access controls have the Tag property,
though some ActiveX controls might not.

However, there are some controls that do not have a Locked
(e.g. label) or ForeColor (e.g. checkbox) property.

If a control does not have the Locked property, it should
not be included in the set of controls with "LOCK" in the
Tag property.

An alternative is to use different values in the Tag
property. E,g, "LOCK" for controls that need to be locked
and "FORE" for controls that need to change color. For
those controls that need both, set their Tag to "LOCK;FORE"
The code could then look like:

For Each ctl In Me.Controls
If ctl.Tag Like "*LOCK*" Then
ctl.Locked = Me.EDI_Complete
End If
If ctl.Tag Like "*FORE*" Then
If Me.EDI_Complete = True Then
ctl.ForeColor = vbBlue
Else
ctl.ForeColor = vbGreen
End If
End If

Error handling is a good idea regardless of how the problem
is addressed.

 

[Marshall Barton]

You can lock the entire subform by locking the subform
control.