I have this on a subform. When the form opens the form is not locked but the message "This record is being changed by another user." comes up every time even when there is no other user logged on. When I move to another record on the main form the error clears and all is well??
Have I got something in the wrong place?
Private Sub btnLock_Click()
Dim rs As DAO.Recordset
On Error Resume Next
Set rs = Me.RecordsetClone
If rs.EditMode = dbEditInProgress Then
MsgBox "This record is being changed by another user."
Me.Form.AllowEdits = True
Me.Form.AllowAdditions = False '***************