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
