Senin, 15 April 2013

Re: [belajar-access] relink tabel

 

iya pak aksan maksud saya seperti itu, saya punya FE-ACCESS dengan BE
lebih dari satu file ACCESS. (update link tadi saya gunakan ketika
foldernya berbeda)

Pada tanggal 14/04/13, aksan kurdin <aksan.kurdin@gmail.com> menulis:
> 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
>> <mailto:aksan.kurdin%40gmail.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 (5)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar