(11-11-22, 09:58 AM)Taha Okla كتب : الكود فيه خطأ

كود :

AccessDB = OpenCurrentDatabase

والصحيح تكتب :

كود :

AccessDB.OpenCurrentDatabase

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

(11-11-22, 09:58 AM)Taha Okla كتب : الكود فيه خطأ

كود :

AccessDB = OpenCurrentDatabase

والصحيح تكتب :

كود :

AccessDB.OpenCurrentDatabase

جربته نفس المشكلة 

(10-11-22, 11:20 PM)يوسف العزير كتب : احتاج إلى طريقة لفتح ملف اكسس بالفجول استوديو 2015 والملف يحتوي على كلمة سر 
استخدمت الكود التالي ولكن لم ينفع 

        Try
            Dim AccessDB As Object
            AccessDB = CreateObject("Access.Application")
            AccessDB = OpenCurrentDatabase(Application.StartupPath + "\Interface system.accdb", False, "123456")
            Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            'Close()
        End Try

المطلوب افتح ملف اكسس عن طريق الفيجول استوديو 2015

(11-11-22, 05:24 PM)يوسف العزير كتب : جربت الكود بيطلع لي خطأ آخر مع ان الرن تايم محمل معي 2010 محمل معي 

ملاحظة : الأوفس الذي معي 2019

(11-11-22, 05:17 PM)odai كتب :

(10-11-22, 11:20 PM)يوسف العزير كتب : احتاج إلى طريقة لفتح ملف اكسس بالفجول استوديو 2015 والملف يحتوي على كلمة سر 
استخدمت الكود التالي ولكن لم ينفع 

        Try
            Dim AccessDB As Object
            AccessDB = CreateObject("Access.Application")
            AccessDB = OpenCurrentDatabase(Application.StartupPath + "\Interface system.accdb", False, "123456")
            Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            'Close()
        End Try

المطلوب افتح ملف اكسس عن طريق الفيجول استوديو 2015

Dim c As New OleDb.OleDbConnention("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\Interface system.accdb; Jet OLEDB:database Password=123456")
Try
   c.Open()

Catch ex As Exception
   MsgBox(ex.Message)

Finally
   c.Close()
End Try

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

(11-11-22, 05:17 PM)odai كتب :

(10-11-22, 11:20 PM)يوسف العزير كتب : احتاج إلى طريقة لفتح ملف اكسس بالفجول استوديو 2015 والملف يحتوي على كلمة سر 
استخدمت الكود التالي ولكن لم ينفع 

        Try
            Dim AccessDB As Object
            AccessDB = CreateObject("Access.Application")
            AccessDB = OpenCurrentDatabase(Application.StartupPath + "\Interface system.accdb", False, "123456")
            Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            'Close()
        End Try

المطلوب افتح ملف اكسس عن طريق الفيجول استوديو 2015

Dim c As New OleDb.OleDbConnention("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\Interface system.accdb; Jet OLEDB:database Password=123456")
Try
   c.Open()

Catch ex As Exception
   MsgBox(ex.Message)

Finally
   c.Close()
End Try

اخي العزيز هذا الكود لا يفتح قاعدة البيانات بشكل منفصل ولكن يقوم بالاتصال بها فقط انا اريد ان يفتح قاعدة البيانات بشكل منفصل بالاكسس نفسه يعني كأني قمت بالنقر على ملف الاكسس

(11-11-22, 06:16 PM)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()