أظن عندك مشكلة بالأوفس نفسه، نسخة غير مكتملة ..
أنا جربت الكود المختصر :
وفتحت القاعدة بدون مشاكل ..
وكذلك جربت الكود الأساسي التالي وفتحت القاعدة معي :
في حال لم تنجح مع العملية قم بإزالة أوفيس من جذوره ثم قم بإعادة تشغيل الجهاز وأعد تثبيته من جديد .
أنا جربت الكود المختصر :
كود :
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()في حال لم تنجح مع العملية قم بإزالة أوفيس من جذوره ثم قم بإعادة تشغيل الجهاز وأعد تثبيته من جديد .
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
