• דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

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

מתוזמן נעוץ נעול הועבר תכנות
5 פוסטים 3 כותבים 94 צפיות
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • א מנותק
    א מנותק
    ארי
    כתב ב נערך לאחרונה על ידי
    #1

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

    chagoldC תגובה 1 תגובה אחרונה
    0
  • chagoldC מנותק
    chagoldC מנותק
    chagold
    השיב לארי ב נערך לאחרונה על ידי
    #2

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

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

    א תגובה 1 תגובה אחרונה
    1
  • א מנותק
    א מנותק
    ארי
    השיב לchagold ב נערך לאחרונה על ידי
    #3

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

    OdedDvirO תגובה 1 תגובה אחרונה
    0
  • OdedDvirO מנותק
    OdedDvirO מנותק
    OdedDvir
    השיב לארי ב נערך לאחרונה על ידי OdedDvir
    #4

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

    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
    
    א תגובה 1 תגובה אחרונה
    4
  • א מנותק
    א מנותק
    ארי
    השיב לOdedDvir ב נערך לאחרונה על ידי
    #5

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

    תגובה 1 תגובה אחרונה
    0

  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.
  • פוסט ראשון
    פוסט אחרון
0
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.