ACC: How to Determine If a Database Is Open Exclusively

MORE INFORMATION

1. Open the sample database Northwind.mdb (or NWIND.MDB in version 2.0) exclusively.
2. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit

3. Type the following procedure:

         Function IsCurDBExclusive () As Integer
         '   Purpose: Determine if the current database is open exclusively.
         '   Returns: 0 if database is not open exclusively.
         '            -1 if database is open exclusively.
         '            Err if any error condition is detected.
   
           Dim db As Database
           Dim hFile As Integer
           hFile = FreeFile
   
           Set db = dbengine.workspaces(0).databases(0)
           If Dir$(db.name) <> "" Then
             On Error Resume Next
               Open db.name For Binary Access Read Write Shared As hFile
                 Select Case Err
                   Case 0
                     IsCurDBExclusive = False
                   Case 70
                     IsCurDBExclusive = True
                   Case Else
                     IsCurDBExclusive = Err
                 End Select
               Close hFile
             On Error GoTo 0
           Else
             MsgBox "Couldn't find " & db.name & "."
           End If
         End Function
   						

4. To test this function, type the following line in the Debug window (or the Immediate window in version 2.0), and then press ENTER:

   If IsCurDBExclusive()=True Then Msgbox "It's Exclusive!"

   Note that you receive the message, "It's Exclusive!".
5. Open the database not exclusively, and then repeat step 4. Note that the message does not appear.