coba pasang break point di atas baris td.connect, lalu periksa isi variabel lokasidb. lokasi itu valid gak ? gunakan perintah dir(lokasidb) untuk memastikan itu valid path. fungsi dir akan mengembalikan nilai string kosong jika invalid path sebagai parameter.
aksan kurdin 2009/2/3 Teguh JAP <[email protected]>: > Pak Nino (Che) G.R > > Untuk syntax " lokasidb " sudah saya koreksi beberapa kali. > 1. CurrentProject.Path + "DB.mdb" > 2. CurrentProject.Path + "\DB.mdb" > 4. CurrentProject.Path & "DB.mdb" > 5. CurrentProject.Path & "\DB.mdb" > > tapi muncul error lagi ketika proses " td.RefreshLink " . > Pesan Errornya seperti ini " Could Not Find Installable ISAM " :(( > > 2009/2/2, Nino Guevara Ruwano <[email protected]>: >> Pak Teguh >> >> Kayaknya sih masalah sintaks aja, coba anda ganti: >> lokasidb = Me.Path + "DB.mdb" >> dengan >> lokasidb = CurrentProject.Path + "DB.mdb" >> atau >> lokasidb = CurrentProject.Path & "DB.mdb" >> >> Mudah2an bisa membantu >> >> Salam, >> Nino >> >> >> >> >> ----- Original Message ----- >> From: Teguh JAP >> To: belajar-access >> Sent: Monday, February 02, 2009 5:19 PM >> Subject: [belajar-access] Link Tabel pada Path yg sama >> >> >> Salam Semua.. >> Buat Abang2 yg baik >> >> Saya ada kesulitan untuk melakukan Link / Relink tabel ke DB lain tapi >> dalam satu path. >> Saya punya folder mis folder "Program" saya taruh di C:\ >> Dalam folder tsb berisi DB.mdb dan Program.mde (program.mde link tabel >> dari DB.mdb) >> >> Bagaimana cara agar folder beserta file - file yg ada didalamnya >> ketika saya pindahkan ke direktory lain (D:\ ) atau folder lain tapi >> link tabel tetap berfungsi tanpa perlu melakukan proses Relinking... >> >> saya sudah coba kode ini, tapi tidak berhasil : >> >> Dim td As DAO.TableDef >> Dim db As DAO.Database >> Dim lokasidb As String >> lokasidb = Me.Path + "DB.mdb" >> >> On Error GoTo errHandle >> >> Set td = New DAO.TableDef >> Set db = CurrentDb >> >> For Each td In db.TableDefs >> If Left(td.Name, 4) <> "MSys" Then >> td.Connect = lokasidb >> td.RefreshLink >> End If >> Next td >> >> MsgBox "All table has reconected to current server.", vbInformation >> Set td = Nothing >> Set db = Nothing >> >> UpdateLinkTable = True >> Exit Sub >> >> errHandle: >> MsgBox Err.Description & vbCrLf & "Reconnection failed to server !!!!" >> Set td = Nothing >> Set db = Nothing >> >> terima kasih >> >> >> >> > > -- Aksan Kurdin
