Udah dicoba Bang untuk referensi DAO dicentang,
andik run gak ada masalah. bugnya gak nongol.
tapi gambar tabel2 yang link ke server belum tampil...
apa masih ada yang salah ?
dbpassword untuk sementara dinonaktifkan
'DBPASSWORD = Nz(getmemory("andik"), "")
mohon pencerahan bang?
--- In [email protected], "Haer Talib" <[EMAIL PROTECTED]>
wrote:
>
> 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" <haertalib@>
wrote:
> > >
> > > Coba referensinya (Tools >References) ke DAO.
> > >
> > > Haer
> > >
> > >
> > > On Wed, Aug 13, 2008 at 7:30 PM, andikprabowo
<andikprabowo@>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
>
> =>
>
