|
Sub ShowRecord
If rs.Fields("Locking") then 'show message MsgBox "Sorry, data in use" Else 'set locking rs.Edit rs.Fields("Locking").Value = True rs.Update 'show rest of record End If End Sub '___________________________________________________________ 'Don't forget to reset the locking when you stop handling the record! Sub Reset 'reset locking rs.Edit rs.Fields("Locking").Value = False rs.Update End Sub 'If you have another field which contains the username you can use that in the messages. |