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
