Toggle button to lock record (1 Viewer)

[jonathanchye]

Hi all,

I would like to create a lock button on top of my form to lock and unlock editing to a specific record.

What I am doing now is add a toggle button and the following code for my form :

Private Sub tglLock_Click()
Me.AllowEdits = Not Me.AllowEdits

Me.tglLock.Caption = IIf(Me.AllowEdits, "Lock", "Unlock")

End Sub

However this is not really working well. I can still alter fields in the form. Is there a way to prevent any editing at all for that current record ie all fields are locked and non clickable?

Thank you.

 

[Chrism2]

Hi all,

I would like to create a lock button...

Thank you.

Whenever I do this, I usually lock down / unlock the fields with the following code:

Dim ctl as control

 For Each ctl In Me.Form

            If ctl.Tag = "LockMeDown" Then  'In the controls' properties, set the tag
                ctl.Locked = True 'Can't be edited
                ctl.Enabled = False  'Can't be clicked
                ctl.BackColor = 16777215  'Changing the colour of the box is a nice touch
            End If

 Next ctl

I usually lock down using the same routine (kind of in reverse) on the Form_Open and then use the above on the unlock trigger...