Jumat, 12 April 2013

Re: [belajar-access] relink tabel

 

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)
Recent Activity:
SPAM IS PROHIBITED
MARKETPLACE


.

__,_._,___

Tidak ada komentar:

Posting Komentar