كود لإنشاء ملف mdb يصيغة 2003

[omar elhosseini]

السلام عليكم ورحمة الله وبركاته

احاول انشاء ملف mdb من خلال VBA فى الاكسيل

بالكود التالى :::

Public Const db_File = "Omar_db"
Sub CreateMydb()
Dim MyCatalog As New ADOX.Catalog
FullName = ThisWorkbook.Path & "\" & db_File & ".mdb"
On Error Resume Next
Kill FullName
On Error GoTo 0
MyConct = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & FullName & ";"
MyCatalog.Create MyConct & ";Data Source = " & FullName
End Sub

والملف الناتج بتنسيق ( Access 2000 )

فهل يمكن التعديل ليكون بتنسيق 2003

ولكم جزيل الشكر

Test.rar

تم تعديل فبراير 26, 2014 بواسطه أبو آدم
احتواء الكود ضمن المعالج