Maaf Pa Aksan Maksudnya "break point" itu apa ya ?
Pada tanggal 04/02/09, aksan kurdin <[email protected]> menulis: > 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 >
