Salam para pakar access bagaimana caranya dari access ver 2000 dibuka di access ver 2003 DAO nya supaya bisa menyesuaikan otomatis/atau tidak error, biasanya error dan baru dari tool, reference saya sesuaikan lg versi DAO nya
Terimaksih --- In [email protected], "Haer Talib" <[EMAIL PROTECTED]> wrote: > > 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 > > => >
