Coba referensinya (Tools >References) ke DAO.
Haer
On Wed, Aug 13, 2008 at 7:30 PM, andikprabowo <[EMAIL PROTECTED]>wrote:
> 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..
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
>
>
>
--
[Haer Talib]
MVP Office Access
Meet me at www.RumahAccess.com
=>
