רשימת מודול בקובץ אקסס

[ארי]

ערב טוב.
אני מנסה לעשות קוד שאני יכניס לו נתיב של קובץ אקסס, והוא יוציא לי רשימה של כל המודולים שיש בו.
אבל אני לא מצליח
יש איך לעשות את זה?
תודה.

[chagold]

@ארי נראה לי שלזה אתה מתכוין.

הראשון בחיפוש הזה.

[ארי]

@chagold תודה, אבל את זה כבר מצאתי לבד....
אני צריך למצוא רשימה כזאת אבל בקובץ אקסס אחר.
זאת אומרת להפעיל קוד VBA בקובץ ולמצוא רשימת מודולים של קובץ אחר.
תודה!

[OdedDvir]

@ארי בבקשה:
למקרה של קובץ עם סיסמה יש לספק אותה כמובן, בארגומנט השני.

Public Sub GetListOfModulesFromDB(dbPath As String, Optional dbPassword As String = "")
On Error GoTo ErrHandler
    
    Dim db As DAO.Database
    Dim cnt As DAO.Container
    Dim doc As DAO.Document
    
    Dim connectionString As String
    connectionString = "MS Access"
    If dbPassword <> "" Then connectionString = connectionString & ";PWD=" & dbPassword
    
    Set db = DBEngine.OpenDatabase(dbPath, False, False, connectionString)

    'Loop through all modules
    Set cnt = db.Containers("Modules")
    If cnt Is Nothing Then GoTo ExitHandler
    For Each doc In cnt.Documents
        Debug.Print doc.Name
    Next doc
ExitHandler:
    If Not db Is Nothing Then db.Close
    Exit Sub
ErrHandler:
    MsgBox "GetListOfModulesFromDB Error: " & vbNewLine & Err.Number & " " & Err.Description
    Resume ExitHandler
End Sub

[ארי]

@odeddvir מעולה!
תודה!