Check open database in vba

Hello,

I will need your help.

I use the following code to open a database in access with vba.

Code:

---

    Dim strfilePath As String
    strfilePath = CurrentProject.Path & "\test.accdb"
    Call Shell("msaccess.exe " & (strfilePath), vbMaximizedFocus)
    DoEvents

---

I want before open the database to check if it is already open. If it is already open I don’t want to open it again.

Thank you in advance.


Regards,
Dimitris

Check open database in vba