lock and unlock buttons

[ShaunG]

I have found this code which im trying to separate into 2 separate buttons lock and unlock...

on form load if a check box its not checked the 3 other fields can have data inserted into them, if check box has been checked the fields are Lock.....

once the fields have data the check box is checked, click a Lock and exit button to lock the record.... if I need to make changes was going to assign DLookup for the AccessLevel

any help would be much appreciated, thanks.

for the button click -

Private Sub cmdLock_Click()
If Me.AllowEdits = True Then
Me.AllowEdits = False
Me.cmdLock.Caption = "Unlock"
Else
Me.AllowEdits = True
Me.cmdLock.Caption = "Lock"
End If
End Sub

and on current event -



If Me.NewRecord = True Then
Me.AllowEdits = True
Else
Me.AllowEdits = False
End If

[llkhoutx]

Toggle (True/False) the controls respective "Locked" property.

[ShaunG]

Toggle (True/False) the controls respective "Locked" property.

Davegri gave me some pointers how to come up with a true/false toggle and adding in code to enable controls = false once toggle is pushed as well as toggle itself... works well, thanks for responding