22-06-14, 08:14 AM
السلام عليكم
جزاك الله خيرا
استطعت أن أضيف المرجع
لكن لم يتحقق الكود التالي
Dim oAccess As Access.Application
' Start a new instance of Access for Automation:
oAccess = New Access.ApplicationClass()
' Open a database in exclusive mode:
oAccess.OpenCurrentDatabase(filepath:="c:\mydb.mdb", Exclusive:=True)
و خاصة السطر الأول حيث لم يظهر Access.application
شكرا لكم
جزاك الله خيرا
استطعت أن أضيف المرجع
لكن لم يتحقق الكود التالي
Dim oAccess As Access.Application
' Start a new instance of Access for Automation:
oAccess = New Access.ApplicationClass()
' Open a database in exclusive mode:
oAccess.OpenCurrentDatabase(filepath:="c:\mydb.mdb", Exclusive:=True)
و خاصة السطر الأول حيث لم يظهر Access.application
شكرا لكم
