ACCESS FEED: Re: [belajar-access] relink tabel

Sabtu, 13 April 2013

Re: [belajar-access] relink tabel

kode anda ini dimaksudkan hanya mengupdate link dari tabel yang terdaftar dalam tblLink saja.
kode ini bisa dikembangkan untuk link tabel dari beberapa sumber sekali jalan, dengan menambahkan field connection string. Jadi variable NewConstring bisa mengambil dari tabel.

On 4/12/2013 4:38 PM, him mah wrote:

saya buat satu tabel yang berisi nama-nama link tabel saya kasih nama
tblLink dengan filed NamaTabel

VBA diatas saya modifikasi seperti ini pak

For Each td In db.TableDefs

If DCount("[NamaTabel]", "tblLink", "[NamaTabel] = '" &
td.Name & "'") > 0 Then
td.Connect = ";DATABASE=" & NewConString
td.RefreshLink
End If
Next td

ketika dijalankan merhasil melakukan relink tabel, mungkin ada masukan

Pada tanggal 12/04/13, aksan kurdin <aksan.kurdin@gmail.com> menulis:
> logikanya, proses semuanya, jangan di select case.
> bisa ?
> usahakan dulu, jangan di scroll sampai bawah ya .......
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
>
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
> .
>
>
> For Each td In db.TableDefs
> td.Connect = ";DATABASE=" & NewConString '& ";PWD=23012007"
> td.RefreshLink
> Next td
>
> aksan kurdin
>
>
> On 4/12/2013 8:50 AM, him mah wrote:
>>
>> Assalamu'alaikum Wr. Wb.
>>
>> dulu saya dapat fungsi relink tabel ini kalau ngga salah dari pak aksan
>>
>> VBA nya seperti ini
>>
>> Function UpdateLinkTable(NewConString As String) As Boolean
>> 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
>> Select Case td.Name
>> Case "TblA", "TblB", "tblC" :
>> td.Connect = ";DATABASE=" & NewConString '& ";PWD=23012007"
>> td.RefreshLink
>> End Select
>> Next td
>>
>> 'MsgBox " Update Link file berhasil", vbInformation
>> Set td = Nothing
>> Set db = Nothing
>>
>> UpdateLinkTable = True
>> Exit Function
>>
>> errHandle:
>> MsgBox Err.Description & vbCrLf & "File Database tidak ditemukan !!!!"
>> Set td = Nothing
>> Set db = Nothing
>> Exit Function
>> End Function
>>
>> yang jadi pertanyaan untuk bagian VBA di bawah
>>
>> For Each td In db.TableDefs
>> Select Case td.Name
>> Case "TblA", "TblB", "tblC" :
>>
>> caranya gimana agar tidak nulis nama tabel satu-satu, misal nama
>> tabelnya diambilkan dari sebuah tabel yang kita buat (misal TblLink)
>>
>>
>
>