Mengganti link table pada MS Access sesuai dengan yang kita inginkan.
‘Beta, 4-Oktober-2011
‘Procedure untuk mengganti link di MS Access
Public Sub ChangeLink(strNewLink As String)
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim i As Integer
On Error GoTo HandleErr
‘Set database
Set dbs = CurrentDb
‘Looping table yang ada
For i = 0 To dbs.TableDefs.Count – 1
‘set table
Set tdf = dbs.TableDefs(i)
‘check jika table merupakan linked table
If Len(tdf.Connect) > 0 Then
‘ganti koneksi
tdf.Connect = “;Database=” & strNewLink
‘Update link
tdf.RefreshLink
End If
Set tdf = Nothing
Next i
Set dbs = Nothing
Exit_Me:
Exit Sub
HandleErr:
MsgBox Err.Number & ” : ” & Err.Description, vbOKOnly + vbCritical
Resume Exit_Me
End Sub
Selamat mencoba dan berkreasi.
