Bang Aksan dan Guru2 yg laen
Saya sudah coba utak atik lagi neh, dan hasilnya sukses..
For Each td In db.TableDefs
If td.Name = "BELI" Or td.Name = "JUAL" Or td.Name = "STOCK" or
... or... or.. (s.d 50 X ) Then
td.Connect = ";DATABASE=" & NewConString1
td.RefreshLink
ElseIf td.Name = "MASTER" or ... or... or.. (s.d 50 X) Then
td.Connect = ";DATABASE=" & NewConString2
td.RefreshLink
End If
Next td
Hanya saja tetap kita harus menuliskan nama-nama tabelnya ya ...
Kalo 50 tabel tetap saja ditulis 50 tabel tsb, weks... :((
Ada yg lebih sederhana ga ??
Thx
Pada tanggal 29/01/09, Teguh JAP <[email protected]> menulis:
> Bang Aksan, Bang Haer, Bang Edi, dan para Abang Guru yg lain
>
> Saya sudah coba, dan tidak ada error..
> Tapi kok linknya tidak berubah..
> Apa ada penulisan kode yg salah
> Bersama ini saya lampirkan filenya
>
> ThanX
>
