Pak Teguh Kayaknya sih masalah sintaks aja, coba anda ganti: lokasidb = Me.Path + "DB.mdb" dengan lokasidb = CurrentProject.Path + "DB.mdb" atau lokasidb = CurrentProject.Path & "DB.mdb"
Mudah2an bisa membantu Salam, Nino ----- Original Message ----- From: Teguh JAP To: belajar-access Sent: Monday, February 02, 2009 5:19 PM Subject: [belajar-access] Link Tabel pada Path yg sama Salam Semua.. Buat Abang2 yg baik Saya ada kesulitan untuk melakukan Link / Relink tabel ke DB lain tapi dalam satu path. Saya punya folder mis folder "Program" saya taruh di C:\ Dalam folder tsb berisi DB.mdb dan Program.mde (program.mde link tabel dari DB.mdb) Bagaimana cara agar folder beserta file - file yg ada didalamnya ketika saya pindahkan ke direktory lain (D:\ ) atau folder lain tapi link tabel tetap berfungsi tanpa perlu melakukan proses Relinking... saya sudah coba kode ini, tapi tidak berhasil : Dim td As DAO.TableDef Dim db As DAO.Database Dim lokasidb As String lokasidb = Me.Path + "DB.mdb" On Error GoTo errHandle Set td = New DAO.TableDef Set db = CurrentDb For Each td In db.TableDefs If Left(td.Name, 4) <> "MSys" Then td.Connect = lokasidb td.RefreshLink End If Next td MsgBox "All table has reconected to current server.", vbInformation Set td = Nothing Set db = Nothing UpdateLinkTable = True Exit Sub errHandle: MsgBox Err.Description & vbCrLf & "Reconnection failed to server !!!!" Set td = Nothing Set db = Nothing terima kasih
