Ok.Bang Aksan Saya akan coba.. Thanks untuk infonya Bang haer lagi bahagia ya...? jadi ketawa terus :D
Pada tanggal 29/01/09, aksan kurdin <[email protected]> menulis: > Bang Haer nertawain saya kok, Mas Teguh .... > :) > > kalau tabel2nya tidak konek dalam satu database yang sama, berarti > anda harus satu persatu melakukan relink-nya: > >>>>> > For Each td In db.TableDefs >>>>> > If Left(td.Name, 4) <> "MSys" Then >>>>> > td.Connect = NewConString >>>>> > td.RefreshLink >>>>> > End If >>>>> > Next td > > Select Case td.name > Case "tbl_a", "tbl_b": > td.Connect = NewConString1 > td.RefreshLink > Case "tbl_c", "tbl_d": > td.Connect = NewConString2 > td.RefreshLink > End Select > > > aksan kurdin > > 2009/1/29 Teguh JAP <[email protected]>: >> 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 >>> >>> => >>> >> >> > > > > -- > Aksan Kurdin >
