Alison Balter's Mastering Access 2002 Enterprise Development

Testing a Record for Locking Status

Often you want to determine the locking status of a record before you attempt an operation with it. By utilizing pessimistic locking and trying to modify the record, you can determine whether someone has locked the current row. The code looks like Listing 2.14.

Listing 2.14. Determining Whether a Record Is Locked Before Editing It

Sub TestLocking() Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim boolLocked As Boolean Set cnn = New ADODB.Connection cnn.ConnectionString = " Provider=sqloledb;" & _ "Data Source=(local);Initial Catalog=pubs;uid=sa;pwd=" cnn.Open Set rst = New ADODB.Recordset rst.ActiveConnection = cnn rst.CursorType = adOpenKeyset rst.LockType = adLockPessimistic 'Invoke Pessimistic ...