Re: [belajar-access] Relink tabel tidak connent

[Belajar Office]

Bpk yg terbaik Bpk harus simpan seluruh data nama-nama mdb, table beserta 
alamat link nya disuatu table, kemudian sebelum memulai menjalankan program, di 
form startup/splashscreen, lakukan pengecekan apakah mdb yg sudah diset di 
dalam table tersebut ada atau tidak. Hal tersebut bisa dilakukan dengan kode 
(misal):

if dir("H:\NamaFile.mdb",vbNormal)="" then
 msgbox "File MDB tidak ditemukan, silahkan lakukan relink table"
 docmd.openform "NamaFormUtkLinkTableOtomatis", acnormal
 exit sub
end if

Relink table juga jangan dilakukan menggunakan link table manager, sebaiknya 
buat sendiri programnya, misal:

Private Sub cmdLinkTable_Click()
On Error GoTo msgerr
    Dim db As Database
    Dim rs As Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("dbNamaTableBerisiDaftarTable", dbReadOnly)
    DoCmd.SetWarnings False
    rs.MoveFirst
    Do While Not rs.EOF
        Dir Me!LokasiFolderBE & "\" & rs!NamaMDB
        DoCmd.DeleteObject acTable, rs!NamaTable
        DoCmd.TransferDatabase acLink, "Microsoft Access", Me!LokasiFolderBE & 
"\" & rs!NamaMDB, acTable, rs!NamaTable, rs!NamaTable
        rs.MoveNext
    Loop
    rs.Close
    db.Close
    MsgBox "Proses link table telah berhasil."
    DoCmd.SetWarnings True
    'Barulah buka form login disini:
    DoCmd.OpenForm "NamaFormLogin", acNormal
    DoCmd.Close acForm, "FormLinkTableIni"
    Exit Sub
msgerr:
    If Err.Number = 7874 Then
        Resume Next
    ElseIf Err.Number = 3024 Then
        MsgBox "Lokasi folder yang Anda set tidak ditemukan, proses dibatalkan."
    ElseIf Err.Number = 3011 Then
        MsgBox "Table tidak ditemukan. Pastikan Anda link ke file mdb yang 
benar."
    ElseIf Err.Number = 52 Then
        MsgBox "Lokasi folder yang Anda set tidak ditemukan, proses dibatalkan."
    Else
        MsgBox Err.Number & ". " & Err.Description
    End If
End Sub

"rentangkanlah sayap ini, terbanglah sesuka hati..."

Thank's
  ----- Original Message ----- 
  From: Bumi Finance Surabaya 
  To: belajar-access@yahoogroups.com 
  Sent: Thursday, 11 February 2010 9:43 AM
  Subject: [belajar-access] Relink tabel tidak connent


    

  Dear All,

  Mohon pencerahan, saya memiliki data BE di drive H: dan FE di drive C: Front 
End ini di share di tiga PC yang berbeda. Yang jadi permasalahan bagaimana me 
recheck kembali bahwa settingan relink table data BE benar di Drive H:. kami 
kirimkan beserta gambar folder sbb: 





  Salam,

  Sumiyanto


  

<<image005.jpg>>

<<image006.jpg>>

<<image007.jpg>>