Display Next Record in query if current record is locked

[primagic]

ANyone know how I can check to see if a record is looked and if so, display the next free record in the query?

My code is:

Dim db As Database
Dim rst As DAO.Recorset
Dim strCriteria As String

Set db = CurrentDb
Set rst = db.OpenRecordsest("NextTaskList")
strCriteria = "TempAdviserLock = 'Free'"
rst.FindFirst strCriteria
If rst.NoMatch Then
MsgBox "There are no matching records"
Else
MsgBox "Record found"
End If
rs
rst.Close

 

[danvlas]

If you open your recordset in Pessimistic locking mode, issuing rst.Edit when the record is already locked will generate an error.

If the mode is 'Optimistic', you need to do both .Edit and .Update to check if the record is locked.

Test the error code and try a rst.FindNext



Daniel Vlas
Systems Consultant