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)
>>
>>
>
>
Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (3) |
Tidak ada komentar:
Posting Komentar