Yup spot on.
It's a good idea to rename the default names for things on forms so you know what you are referring to.
I call text boxes txtFieldName, and combos cmbFieldName as it makes the code much more readable in a few weeks time when I can't remember what is what.
It messed up the formatting for some reason
Code:
Dim bEnable as Boolean
Dim ctl As Control
bEnable = False
If Me.Authorise_reprint = "yes" Then bEnable = True
For Each ctl In Controls
If ctl.Tag = "Lock" Then
ctl.Enabled= bEnable
End If
Next ctl