ACCESS VBA - check if workbook is open or not open (1 Viewer)

[johnseito]

is there any access VBA code to check if an workbook is open or not open ?

In excel VBA - you could just loop through all the excel files that are open and you find the name of the file while you loop through and you could tell if that file is open. I couldn't do this in Access VBA.

 

[ashleedawg]

Sub IsDatabaseOpen()
    Dim appAccess As Access.Application
    Dim fileName As String, File_is_closed As Boolean
    fileName = "c:\path\filename.accdb"
    On Error Resume Next
    Set appAccess = GetObject(fileName)
    If Err.Number <> 0 Then File_is_closed = True
    Debug.Print "File Closed? " & File_is_closed
End Sub

 

[arnelgp]

same what you did in excel to check if it is open.
on a Module paste this:

Public Function IsWorkbookOpen(ByVal strWorkBookName As String) As Boolean
    Dim objExcel As Object
    Dim varWorkbook As Variant
On Error GoTo ExitFunction
    Set objExcel = GetObject(, "Excel.Application")
    For Each varWorkbook In objExcel.Workbooks
        If varWorkbook.Name = strWorkBookName Then
            IsWorkbookOpen = True
            Exit For
        End If
    Next
ExitFunction:
    Set objExcel = Nothing
End Function

To call:

debug.print IsWorkbookOpen("Text.xlsx")

 

[johnseito]

Ok- thank you both, that work. It's a bit different than excel VBA but I see how it is. Can't put the path and file name but just the file name.