Bang Haer kok ketawa ?? Saya liat lagi code dari Bang Aksan memang ternyata ada "for each" yg artinya untuk semua tabel...
Bisakah kita pilih sendiri TABELDEF nya? misal For Each td dan For Each tdx nah td As DAO.TableDef ini bisakah kita tentukan tabelnya misal untuk td tabelnya tbl_a; tbl_b sedangkan tdx tabelnya tbl_c; tbl_d sehingga kita bisa menjalankan 2 code For Each td dan For Each tdx bisa ga ya ? Pada tanggal 28/01/09, Haer Talib <[email protected]> menulis: > HAHAHAHAHA... > > > > 2009/1/13 aksan kurdin <[email protected]> > >> gak mau, >> :) >> >> anda kirim sample yang sudah anda jalankan, entar tak liatnya .... >> >> >> aksan kurdin >> >> >> 2009/1/13 Teguh JAP <[email protected]> >> >>> Masih blm paham pa. >>> bisa dikirim contoh mdb nya ? >>> terima kasih sebelumnya.. >>> >>> Pada tanggal 13/01/09, aksan kurdin >>> <[email protected]<aksan.kurdin%40gmail.com>> >>> menulis: >>> >>> > Apakah nama tabel dinamic selalu berubah2? >>> > Jika fix, dan dia berubah hanya lokasi saja (semula di C:\DB01.mdb, >>> > lalu >>> di >>> > install tempat lain di C:\Data\DB01.mdb), maka relink saja dengan vba >>> > seperti berikut: >>> > >>> > Link biasa saja dengan cara normal untuk link tabel, kita butuhkan >>> koneksi >>> > stringnya. Untuk memperoleh koneksi string, gunakan fungsi berikut yang >>> akan >>> > mengeluarkan connection string setiap tabel: >>> > >>> > dim td as dao.tabledef >>> > for each td in currentdb.tabledefs >>> > debug.print td.name, td.connect >>> > next td >>> > >>> > anda sekarang bisa melihat list connection string yang ada, contoh >>> > kalau >>> > link ke Access MDB di saya keluar seperti ini: >>> > >>> > ;DATABASE=C:\Documents and Settings\Aksan.KOBELCO\Desktop\test.mdb >>> > >>> > Bentuk connection string akan bervariasi, sesuai dengan jenis link >>> > table >>> > (dbf, xls, txt, odbc, sql server, dll). Sesuaikan. >>> > >>> > Modul berikut bisa untuk merefresh connection string ke lokasi yang >>> baru: >>> > >>> > >>> > >>> > Public Sub UpdateLinkTable(NewConString as string) >>> > Dim td As DAO.TableDef >>> > Dim db As DAO.Database >>> > >>> > On Error GoTo errHandle >>> > >>> > Set td = New DAO.TableDef >>> > Set db = CurrentDb >>> > >>> > For Each td In db.TableDefs >>> > If Left(td.Name, 4) <> "MSys" Then >>> > td.Connect = NewConString >>> > td.RefreshLink >>> > End If >>> > Next td >>> > >>> > MsgBox "All table has reconected to current server.", vbInformation >>> > Set td = Nothing >>> > Set db = Nothing >>> > >>> > Exit Sub >>> > >>> > errHandle: >>> > MsgBox Err.Description & vbCrLf & "Reconnection failed to server !!!!" >>> > Set td = Nothing >>> > Set db = Nothing >>> > End Sub >>> > >>> > >>> > >>> > >>> > 2009/1/13 Teguh JAP <[email protected] <nduhjap%40gmail.com>> >>> > >>> >> Semangat Pagi semuanya.. >>> >> >>> >> To The Point >>> >> >>> >> Coding : >>> >> 1. Delete Tabel >>> >> DoCmd.DeleteObject acTable, "nama_tabel" >>> >> >>> >> 2. Linking Tabel >>> >> DoCmd.TransferDatabase acLink, , "C:\DB01.mdb", acTable, >>> >> "nama_tabel", "nama_tabel" >>> >> >>> >> Jika kita punya 5 tabel kita cukup menuliskan kode diatas sebanyak 5 >>> >> X, kita cukup mengganti nama tabel tersebut dengan nama tabel yg >>> >> dibutuhkan. >>> >> >>> >> Tapi jika kita (misalkan) punya 50 tabel, ga mungkin kan kita tulis >>> >> kode diatas sebanyak 50 kali. >>> >> >>> >> Apakah ada cara yg lebih praktis ? >>> >> >>> >> Terima kasih sebelumnya >>> >> >>> >> >>> > >>> > >>> > >>> > -- >>> > Aksan Kurdin >>> > >>> >> >> >> >> -- >> Aksan Kurdin >> >> > > > > -- > [Haer Talib] > MVP Office Access > Meet me at www.RumahAccess.com > > => >
