*كود* يغير الرابط بين الاكسس والاكسل بالكود

هذا الكود وجدته ايضا في موقع اجنبي يقوم بتفير الرابط قد يفيد لمن يقوم بربط الاكسس مع الاكسل او اي برنامج ودائما هناك ملفات جديدة باسماء متغيره كمن يتعامل مع زبائن ويقوم بدراسم معينه لملفاتهم

الكود:

Dim dbs As Database

Dim tdef As TableDef

Dim strLink, Strpath As String

Set dbs = CurrentDb()

Strpath = Text1.Value

' هذا مكان الملف

' Delete old attachment

On Error Resume Next

dbs.TableDefs.Delete "table1"

' tabl1 هو اسم الجدول وهو الذي عبارة عن رابط اكسل

'Create new attachment

Set tdef = dbs.CreateTableDef("table1")

strLink = "Excel 5.0;DATABASE=" & Strpath

tdef.Connect = strLink

tdef.SourceTableName = "Sheet1$"

' Sheet1 هي الصفحة في الاكسل

dbs.TableDefs.Append tdef

******

لقد جربته ويعمل جيدا