How lock form with checkbox but be able to unlock the form with the same checkbox

use the afterupdate  or change event ofthe checkbox

private sub .chkbxFormLocked_afterupdate()
dim ctl as control
for each ctl in me.controls
     if ctl.controltype<>aclabel then
         if ctl.name<>".chkbxFormLocked" then
             ctl.locked=me.chkbxFormLocked
         end if
      end if
next
end sub
next

Getting an error on

ctl.locked=me.chkbxFormLocked

"Object doesn't support this property or method"

Also had to comment out:
'end sub
'next

private sub .chkbxFormLocked_afterupdate()
dim ctl as control
for each ctl in me.controls
     if ctl.controltype<>aclabel then
         if ctl.name<>"chkbxFormLocked" then
             ctl.locked=me.chkbxFormLocked.value
         end if
      end if
next
end sub

Same error on

ctl.Locked = Me.chkbxFormLocked.Value

private sub chkbxFormLocked_afterupdate()
dim ctl as control

for each ctl in me.controls
     if ctl.controltype<>aclabel then
         if ctl.name<>"chkbxFormLocked" then
             me(ctl.name).locked=me.chkbxFormLocked.value
         end if
      end if
next
end sub

Same error using:

Me(ctl.Name).Locked = Me.chkbxFormLocked.Value

do a compact and repair and the do a Debug>compile

correct any errors raised

if that doesn't fix it, your form could be corrupted.

create a new form and try the codes again.

Compiled.  C&R.  Copied objects to new form.  I'm now trying this ans still get the error "Object doesn't support this property or method"

Dim ctl As Control

    If Me.chkbxFormLocked = True Then
    For Each ctl In Me.Form.Controls
        Me(ctl.Name).Locked = True
    Next
    End If

Select allOpen in new window

this is not my code
 For Each ctl In Me.Form.Controls

the code I posted is
 For Each ctl In Me.Controls


and I tried it over and over again and it is working....

if ray's comment doesn't fix it then its possible one of the controls in the collection doesn't support the locked property.
add a msgbox ctl.name line so you can identify which one, then only set locked  'if ctl.name <> problem one,

e.g.
    If Me.chkbxFormLocked = True Then
    For Each ctl In Me.Controls
      msgbox ctl.name
        Me(ctl.Name).Locked = True
    Next
    End If

and once you know which one causes the error

    If Me.chkbxFormLocked = True Then
    For Each ctl In Me.Controls
      if ctl.name <> 'whatever' then Me(ctl.Name).Locked = True
    Next
    End If