Langsung aja...kawan2 sekalian
permisi mo gabung....
met malam semua
mohon maaf untuk publikasi relinktables pak Haer
dari buku Kupas Tuntas
minta penjelasan, ada pesan kesalahan pada dim dbs as database
dan koreksinya atas list berikut ini :
Function relinkTables()
Dim newpathname As String
Dim dbs As Database ' compile error' user-defined type not defined
Dim tdf As tabledef
Dim tdfs As tabledefs
Set dbs = CurrentDb
Set tdfs = dbs.tabledefs
newpathname = Nz(getmemory("\\TRA\Pegawai.mdb"), "")
DBPASSWORD = Nz(getmemory("andik"), "")
On Error Resume Next
For Each tdf In tdfs
If ((tdf.Attributes And dbsystemObject) = 0) And Not (tdf.Name
Like "~*") Then
tdf.connect = ";DATABASE=" & newpathname & " ;PWD=" &
DBPASSWORD
tdf.refreshlink
End If
Next
Set tdfs = Nothing
Set dbs = Nothing
On Error Resume Next
securingTables
End Function
thank U semua..
