Gunakan metode dari DAO:
Sub relinktables(newLocation As String)
Dim db As DAO.Database
Set db = CurrentDb
Dim td As DAO.TableDef
For Each td In db.TableDefs
If Len(td.Connect & "") > 0 Then
td.Connect ";DATABASE=" & newLocation & "Data.mdb"
td.RefreshLink
End If
Next
End Sub
Aksan Kurdin
--- In [email protected], Harry siswanto <harry.siswa...@...>
wrote:
>
> dear para Suhu,
> saya mau coba sharing data.mdb saya untuk User lain.
> kalau di Program, sudah link ke Data.mdb yaitu ke D:\Data\Data.mdb
> sedangkan pada link manager Properties ke D:\data\data.mdb
> nah bagaimana caranya supaya saya bisa ganti propertiesnya menjadi
> \\ComputerName\SharingNama\Data.mdb
> jadi harusnya bisa ke \\CLGC003W\DATA\DATA.MDB
>
> terima kasih sebelumnya
>
> --
> Harry Siswanto
> Email: harry.siswa...@...
> http://www.facebook.com/harry.siswanto
> http://harry-siswanto.blogspot.com/
>
