منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أظن عندك مشكلة بالأوفس نفسه، نسخة غير مكتملة ..
أنا جربت الكود المختصر :

وفتحت القاعدة بدون مشاكل ..

وكذلك جربت الكود الأساسي التالي وفتحت القاعدة معي :

في حال لم تنجح مع العملية قم بإزالة أوفيس من جذوره ثم قم بإعادة تشغيل الجهاز وأعد تثبيته من جديد .

(11-11-22, 07:12 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()

نجح معي الكود

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

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

لو ممكن تتأكد من المكتبات التي اضفتهن قد يمكن الخلل مهنا
 ماهي المكتبات المضافة عندك

---

(11-11-22, 08:04 PM)Taha Okla كتب : [ -> ]أظن عندك مشكلة بالأوفس نفسه، نسخة غير مكتملة ..
أنا جربت الكود المختصر :

كود :

Try
   Dim AccessDB As Object
   AccessDB = CreateObject("Access.Application")

   AccessDB.OpenCurrentDatabase(Application.StartupPath + "Interface system.accdb", False, "123456")
   AccessDB.Visible = True
   Close()
Catch ex As Exception
   MsgBox(ex.Message)
   Close()
End Try

وفتحت القاعدة بدون مشاكل ..

وكذلك جربت الكود الأساسي التالي وفتحت القاعدة معي :

كود :

Dim AccessDB As Access.Application
AccessDB = New Access.Application

AccessDB.OpenCurrentDatabase(Application.StartupPath + "Interface system.accdb", False, "123456")
AccessDB.Visible = True

'AccessDB.CloseCurrentDatabase()

في حال لم تنجح مع العملية قم بإزالة أوفيس من جذوره ثم قم بإعادة تشغيل الجهاز وأعد تثبيته من جديد .

---

ممكن ترسل الملف الذي اشتغلت عليه اجربه عندي عشان اتأكد هل الخلل في الكود أم في المكتبات

المكتبة هي :
Microsoft.Office.Interop.Access
بأي اصدار كانت - سيعمل الكود ..

استبدل الكود بالكود التالي : 

(11-11-22, 09:19 PM)Taha Okla كتب : [ -> ]المكتبة هي :
Microsoft.Office.Interop.Access
بأي اصدار كانت - سيعمل الكود ..

استبدل الكود بالكود التالي : 

كود :

       Dim AccessDB As Microsoft.Office.Interop.Access.Application
       AccessDB = New Microsoft.Office.Interop.Access.Application

ظهرة مشكلة اخرى 

---

ظهر خطأ جديد 

(11-11-22, 08:04 PM)Taha Okla كتب : [ -> ]أظن عندك مشكلة بالأوفس نفسه، نسخة غير مكتملة ..
أنا جربت الكود المختصر :

كود :

Try
   Dim AccessDB As Object
   AccessDB = CreateObject("Access.Application")

   AccessDB.OpenCurrentDatabase(Application.StartupPath + "Interface system.accdb", False, "123456")
   AccessDB.Visible = True
   Close()
Catch ex As Exception
   MsgBox(ex.Message)
   Close()
End Try

وفتحت القاعدة بدون مشاكل ..

وكذلك جربت الكود الأساسي التالي وفتحت القاعدة معي :

كود :

Dim AccessDB As Access.Application
AccessDB = New Access.Application

AccessDB.OpenCurrentDatabase(Application.StartupPath + "Interface system.accdb", False, "123456")
AccessDB.Visible = True

'AccessDB.CloseCurrentDatabase()

في حال لم تنجح مع العملية قم بإزالة أوفيس من جذوره ثم قم بإعادة تشغيل الجهاز وأعد تثبيته من جديد .

شكرا لك اخي الكريم  Taha Okla 
تم حل المشكلة وكان كما ذكرت المشكلة بالاوفيس حذفت الاوفيس القديم 2019 وحملت اصدار جديد 2021 واشتغل الكود بشكل طبيعي