Is another DB opened exclusive

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

XP - 15 Nov 2006 14:01 GMT

In Office 2003:

Does anyone have a working VBA function that will ping another DB and return
TRUE if the DB has been opened exclusively; false if not?

If so, could you please post it? Thanks.

Reply to this Message

Roger Carlson - 15 Nov 2006 15:02 GMT

Function OpenExclusiveTest(Filename As String) As Boolean
On Error GoTo Err_OpenExclusiveTest

Dim db As DAO.Database
Set db = OpenDatabase(Filename)
OpenExclusiveTest = False

Exit_OpenExclusiveTest:
Exit Function

Err_OpenExclusiveTest:
If Err.Number = 3045 Then
OpenExclusiveTest = True
End If
Resume Exit_OpenExclusiveTest
End Function

Signature

--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

> In Office 2003:
>
> Does anyone have a working VBA function that will ping another DB and return
> TRUE if the DB has been opened exclusively; false if not?
>
> If so, could you please post it? Thanks.

Reply to this Message