Assalamu'alaikum Wr. Wb.
dulu saya dapat fungsi relink tabel ini kalau ngga salah dari pak aksan
VBA nya seperti ini
Function UpdateLinkTable(NewConString As String) As Boolean
Dim td As DAO.TableDef
Dim db As DAO.Database
On Error GoTo errHandle
Set td = New DAO.TableDef
Set db = CurrentDb
For Each td In db.TableDefs
Select Case td.Name
Case "TblA", "TblB", "tblC" :
td.Connect = ";DATABASE=" & NewConString '& ";PWD=23012007"
td.RefreshLink
End Select
Next td
'MsgBox " Update Link file berhasil", vbInformation
Set td = Nothing
Set db = Nothing
UpdateLinkTable = True
Exit Function
errHandle:
MsgBox Err.Description & vbCrLf & "File Database tidak ditemukan !!!!"
Set td = Nothing
Set db = Nothing
Exit Function
End Function
yang jadi pertanyaan untuk bagian VBA di bawah
For Each td In db.TableDefs
Select Case td.Name
Case "TblA", "TblB", "tblC" :
caranya gimana agar tidak nulis nama tabel satu-satu, misal nama
tabelnya diambilkan dari sebuah tabel yang kita buat (misal TblLink)
Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (1) |
Tidak ada komentar:
Posting Komentar