[odai]

(11-11-22, 06:19 PM)يوسف العزير كتب :

(11-11-22, 06:16 PM)odai كتب : الكود تبعك انا اقتبسته وصححته باللون الاحمر
ارجع لكودك الاول وحاول فيه بعد وضع العلامه \  قبل اسم الملف

هذا ليس الكود الخاص بي الكود الخاص بي هذا 

            Dim AccessDB As Object
            AccessDB = CreateObject("Access.Application")
            AccessDB = OpenCurrentDatabase(Application.StartupPath + "\Interface system.accdb", False, "123456")
            Close()

---

            Dim AccessDB As Object
            AccessDB = CreateObject("Access.Application") 'الخطأ يظهر بهذا السطر لا يمكن إنشاء مكون Active X
            AccessDB = OpenCurrentDatabase(Application.StartupPath + "\Interface system.accdb", False, "123456")
            Close()

نجح معي الكود

Dim AccessDB As Object
AccessDB = CreateObject("Access.Application")
AccessDB.Visible = True
AccessDB.OpenCurrentDatabase(Application.StartupPath & "\Interface system.accdb", False, "123456")