لدى مشكلة فى فتح قاعدة بيانات اكسيس من داخل اكسيل

[A L M A I S T R O]

وقمت بإضافة كل المكتبات اللازمة

Sub NewAccessDatabase()
'

'
    Dim AppAccess As Access.Application
    Dim Dbs       As Object, tdf As Object, fld As Variant
    Dim strDB     As String
    Const DB_Text As Long = 10
    Const FldLen  As Integer = 40

    strDB = "C:\Newdb.mdb"
    
    Set AppAccess = CreateObject("Access.Application.11")
    
    AppAccess.NewCurrentDatabase strDB
    
    Set Dbs = AppAccess.CurrentDb
    
    Set tdf = Dbs.CreateTableDef("Contacts")
    
    Set fld = tdf.CreateField("CompanyName", DB_Text, FldLen)
    
    tdf.Fields.Append fld
    Dbs.TableDefs.Append tdf
    

    Set AppAccess = Nothing


End Sub
'
Sub DisplayForm()

'On Error Resume Next

Dim AppAccess As Access.Application
Dim strDB As String

    
Const strConPathToSamples = "C:\"

    strDB = strConPathToSamples & "Newdb.mdb"
    
    Set AppAccess = CreateObject("Access.Application")
   
المشكلة تكمن هنا فى هذا السطر 
    AppAccess.OpenCurrentDatabase strDB
    
    AppAccess.DoCmd.OpenTable "Contacts"

End Sub

أرجو ان اجد حل للمشكلة

[omar elhosseini]

الاخ almaistro

اذكر المشكلة او رسالة الخطأ

اذكر المكتبات التى اضفتها

او ارفق الملف لعل وعسى يستطيع احد الاخوة مساعدتك

تم تعديل مارس 9, 2008 بواسطه أبو تامر

[A L M A I S T R O]

إليك المثال بالمرفق

انا اقوم بإستخدام هذا الكود لتحويل ملف اكسيل لأكسيس (من داخل اكسيل نفسه)

ملحوظة

لو لديك مثال لذلك اكون شاكر لوترفقة

وجزاك الله خير

Book1.rar

[A L M A I S T R O]

up