Checking table lock status.

[Kraeg]

Is there a way using VBA to check if a table has any records at all locked/being viewed or edited?

 

[Golom]

Try to get exclusive access

Dim rs As DAO.Recordset
On Error Resume Next
Set rs = db.OpenRecordset ("tblName", dbDenyWrite + dbDenyRead )
If Err.Number > 0 Then
   MsgBox "Table in Use"
End If
Set rs = Nothing