Lock From Problem

[eliffman]

I have an option group on my form to toggle the controls' Locked
property. Somehow I'm also locking the "Unlock" button, but I'm not
sure why. Here's my code:

Public Sub LockForm()
On Error Resume Next

Dim frm As Form, i As Integer
Dim ctl As Control

i = Forms.Count - 1
Set frm = Forms(i)

For Each ctl In frm.Controls
ctl.Locked = True
Next ctl
frm.fraLocked.Locked = False
End Sub

Any advice would be greatly appreciated. Thanks.

[Wayne Morgan]

Well, I see a couple of problems if this is the full code.

1)

i = Forms.Count - 1
Set frm = Forms(i) You will always be doing this to the last form opened, the one with the
highest index number, is that what you want?

2) For Each ctl In frm.Controls
ctl.Locked = True
Next ctl
frm.fraLocked.Locked = False
End Sub
You are locking every control on the form (including buttons) then unlocking
fraLocked. You will need to unlock the Unlock button the same way or you
could use an If statement in the loop to keep from locking it in the first
place.

Example:
For Each ctl In frm.Controls
If ctl.Name<>"cmdMyButton" Then
ctl.Locked = True
End If
Next ctl
frm.fraLocked.Locked = False
End Sub
--
Wayne Morgan
MS Access MVP
"eliffman" <el******@gmail.com> wrote in message
news:11*********************@f14g2000cwb.googlegro ups.com...I have an option group on my form to toggle the controls' Locked
property. Somehow I'm also locking the "Unlock" button, but I'm not
sure why. Here's my code:

Public Sub LockForm()
On Error Resume Next

Dim frm As Form, i As Integer
Dim ctl As Control

i = Forms.Count - 1
Set frm = Forms(i)

For Each ctl In frm.Controls
ctl.Locked = True
Next ctl
frm.fraLocked.Locked = False
End Sub

Any advice would be greatly appreciated. Thanks.

[Wayne Morgan]

PS.

Rather than locking every control on the form, would it be easier to set the
form's AllowEdits, AllowAdditions, and AllowDeletions properties to False?
Since you're unlocking the frame, this may not work because it may lock the
frame for you also.

--
Wayne Morgan
MS Access MVP

[eliffman]

I originally tried it that way, but I was getting inconsistent results
with the subforms and several of the forms have "find record" combo
boxes that need to stay active.

Shouldn't explicity unlocking the frame also unlock the toggle buttons
("Locked" & "Unlocked") inside it?

[eliffman]

....Apparently not. I modified the code to unlock the frame and the
toggle button. Now it works.

Public Sub LockForm()
On Error Resume Next

Dim frm As Form, i As Integer
Dim ctl As Control

i = Forms.Count - 1
Set frm = Forms(i)

For Each ctl In frm.Controls
If ctl.Name <> "fraLocked" And ctl.Name <> "tglUnlocked" Then
ctl.Locked = True
End If
Next ctl
End Sub

Thanks for your help, Wayne.