Wah masih pakai Access 2000 ya? Kalau lintas versi gini saya agak kurang pengalaman. Kenapa tdk pakai 2003 aja semua? Toh bisa pakai runtime 2003.
Haer 2008/8/15 hasimnurhsm <[EMAIL PROTECTED]> > 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 > > > > => > > > > > > ------------------------------------ > > SPAM IS PROHIBITEDYahoo! Groups Links > > > > -- [Haer Talib] MVP Office Access Meet me at www.RumahAccess.com =>
