Private Sub cmdLockRec_Click()
If Me.cmdLockRec.Caption = "Lock Records" Then
Me.AllowAdditions = False
Me.AllowDeletions = False
Me.AllowEdits = False
Me.cmdLockRec.Caption = "Unlock Records"
Else
Me.AllowAdditions = True
Me.AllowDeletions = True
Me.AllowEdits = True
Me.cmdLockRec.Caption = "Unlock Records"
End If
End Sub