REcord Locking

[Chance1234]

Im using record locking in mydb, only thing is how do i in VBA tell if a record is locked ?

 

[nickjar2]

You could trap for error 3188 (record locked by another user).

Nick

 

[Chance1234]

using the record lock property of the form, im trying to use the editmode property of the recordset clone to tell me whether the current record is locked but getting no where just 0 after 0 after 0 after 0 after 0

 

[nickjar2]

I have something like this:

Dim db As Database
Dim rs As DAO.Recordset

on error goto lockErr

Set db = CurrentDb
Set rs = db.OpenRecordset("person", dbOpenDynaset)

rs.Edit

ok:

lockErr:
if err.number = 3188 then
exit sub
else
msgbox err.description
end if

Nick