Tips Forum Logo
Tips Forum Home PageSpacerVisit Microsoft Knowledge BaseMAUG Home PageMAUG Russian Home Page

Открыта ли БД монопольно
Is database open exclusively

Applies to: Access 97

Function IsDbOpenedExclusively(Optional strDbPath As String = "") As Boolean
' This function uses the unsupported PrivDBEngine object to check
' whether a database is open exclusively. This is useful when you
' want to check whether the current database is open exclusively,
' since you can open the current database exclusively any number
' of times with the same DBEngine object.
' Arguments:
' strDbPath: The path to the database you want to check.
' If left out, the current database is used.
' Returns:
' A Boolean value indicating whether the database is opened exclusively.

On Error Resume Next
Dim dbe As PrivDBEngine
Dim wrk As Workspace
Dim dbs As Database
Const conFileInUse As Integer = 3045
Const conDBOpenedExclusively As Integer = 3356
If Len(strDbPath) = 0 Then strDbPath = CurrentDb.Name

' Return reference to private DBEngine object.
Set dbe = New PrivDBEngine
' Return reference to default workspace.
Set wrk = dbe.Workspaces(0)
' Attempt to open database.
Set dbs = wrk.OpenDatabase(strDbPath)
' If reference to database isn't returned, check error.
If dbs Is Nothing Then
' If error indicates database is open exclusively, return True.
If (Err = conFileInUse Or Err = conDBOpenedExclusively) Then
IsDbOpenedExclusively = True
' If unanticipated error occurs, display message.
MsgBox "Error: " & Err & ": " & vbCrLf & Err.Description
End If
' If reference to database is returned, it must not be opened
' exclusively by any other user.
IsDbOpenedExclusively = False
Set dbs = Nothing
End If
End Function

From  Andy Baron , Entry Date 24.09.1999

Microsoft Access Solutions

Written and designed by
Alex Dybenko
Send us your comments
Last Update: 2007-10-15
Copyright © 1998-2007 by MAUG

Alex & Access