السلام عليكم ورحمة الله وبركاته
ارجو من لدية معرفة ان يساعد في تعديل هذا الكود من الاكسس 2003 الى اكسس 2010
المشكله في هذا الكود
CommonDialog.FileName = ""
يعمل على 2003 ولا يعمل على 2010
وهو عبارة عن ربط الجداول مع قاعده البيانات
والامر هو كالتالي الذي يعمل على 2003
CommonDialog.FileName = ""
CommonDialog.Filter = "All files(*.*)|*.*"
CommonDialog.ShowOpen
txtFilepath.Value = Trim(CommonDialog.FileName)
Call FillDetail(Trim(CommonDialog.FileName))
Dim db As Database
Dim db2 As Database
Dim obj As AccessObject, dbs As Object
Dim tdf As TableDef
Dim RS As Recordset
Set db = OpenDatabase(Trim(CommonDialog.FileName))
Set dbs = Application.CurrentData
Set db2 = CurrentDb
MsgBox db.TableDefs.Count
Dim I As Integer
For I = 0 To db.TableDefs.Count - 1
Set tdf = db.TableDefs(I)
If Left(tdf.Name, 4) <> "msys" Then
Set tdf = db2.CreateTableDef(db.TableDefs(I).Name)
tdf.Connect = ";DATABASE=" & CommonDialog.FileName
tdf.SourceTableName = db.TableDefs(I).Name
db2.TableDefs.Append tdf
End If
Next
MsgBox "Êã ÑÈØ ÌãíÚ ÇáÌÏÇæá ÈäÌÇÍ"
db.Close
Set db = Nothing
db2.Close
Set db2 = Nothing
DoCmd.Close
اريد ان يعمل على 2010 ولكم مني جزيلالشكر والعرفان
اخوكم هشام الحامدي