ตย.ข้างล่างนี้เฉพาะการลิงค์ไปยัง .mdb หรือ .mda ไฟล์เท่านั้น

Public Sub ChangeLinkedMDB()
    Dim DB As DAO.Database
    Dim TD As DAO.TableDef

    Set DB = CurrentDb
    For Each TD In DB.TableDefs
        If (TD.Attributes And dbAttachedTable) = dbAttachedTable Then
            TD.Connect = ";c:\...\file.mdb"   ' ต้องมี semicolon อยู่ข้างหน้า
            TD.RefreshLink
        End If
    Next TD
    DB.Close : Set DB = Nothing
End Sub

สวัสดีครับ
    ผมรบกวนอธิบาย และวิธีใช้ด้วยครับผม

ก็ไม่มีอะไรมาก

- For each TD .... ก็เป็นการวนลูป โดยกำหนด object variable TD ให้เป็นทีละเทเบิลในฐานข้อมูล

- TD.Attributes จะให้ค่าเท่ากับ dbAttachedTable เมื่อเทเบิลนั้นเป็น Linked Table ที่ลิงค์มาจากฐานข้อมูลประเภท Access ด้วยกันเอง (พวก .mdb, .mda) แต่ถ้าลิงค์มาจาก ODBC จะให้เป็นค่า dbAttachedODBC โดยปกติผมคิดว่า 99.99% เราสามารถทดสอบด้วยคำสั่ง If TD.Attributes = dbAttachedTable then ได้โดยตรง แต่เนื่องจาก .Attributes อาจมีค่าเกิดจากการรวมหลายๆ option เข้าด้วยกัน ด้วย logical OR (แต่ผมก็ไม่ทราบเหมือนกันว่ามันจะรวมกับ option อื่นอย่างไรได้บ้าง) ดังนั้นเพื่อให้แน่ใจเต็ม 100% เวลาจะทดสอบกรองเอาเพื่อดูว่ามีค่าของ dbAttachedTable อยู่ในส่วนผสมนั้นหรือไม่ ก็ต้องทดสอบด้วย logical AND (ตรงนี้คิดว่าหลายๆท่านก็คงจะทราบดีอยู่แล้ว) คำสั่ง If ที่เขียนให้ดูเลยออกมาเป็นอย่างนั้น

- TD.Connect ก็เป็นการกำหนดชื่อพาธและไฟล์ที่จะลิงค์เข้ามา เนื่องจากเราลิงค์มาจากเทเบิลต้นทางที่ชื่อเดิมเสมอ (ชื่อเดียวกันกับที่เราลิงค์มาครั้งแรก) ดังนั้นจึงไม่ต้องบอกมันอีกว่ามาจากเทเบิลชื่ออะไร

- TD.RefreshLink เพื่อให้ Access มันดึงเอาข้อมูลจำเป็นอื่นๆของเทเบิลนั้นๆจากฐานข้อมูลใหม่ แม้ว่าจะเป็นฐานข้อมูลเดิม แต่เมื่อมีการเปลี่ยนแปลงอะไรไปในโครงสร้างเทเบิลต้นทาง แม้จะเพียงเล็กน้อยก็ตาม ก็ควรจะสั่ง RefreshLink มาใหม่เสมอ

อ่อ ... ส่วนวิธีการใช้ก็เอาโค้ดนี้ไปใส่ไว้ใน Module ใหม่ หรือจะ Module เดิมที่มีแล้วก็ได้ แล้วก็กด Ctrl-G เพื่อเปิด Immediate Windows แล้วคีย์คำว่า ChangeLinkedMDB กด Enter เท่านั้นเอง

อย่างไรก็ตามก๊อปปี้ฐานข้อมูลเดิมก่อนทำลิงค์ใหม่ก็จะดี เผื่อมีอะไรผิดพลาดจะได้ไม่เสียเวลามาลิงค์กลับไป