Re: [belajar-access] Relink tabel tidak connent

Aksan Kurdin Wed, 10 Feb 2010 20:24:15 -0800

Bisa buka arsip kembali, masih segar kok, : http://tech.groups.yahoo.com/group/belajar-access/message/24575, percakapan replay saya tanggal 22 jan 2010.

Anda tinggal modifikasi kode untuk:
Const C_BE_NAME = "DATA.mdb" ...Function BEName() As String BEName = ";DATABASE=" & Left(CurrentProject.FullName, InStr(CurrentProject.FullName, CurrentProject.Name) - 1) & C_BE_NAME End Functionselamat memodifikasi .....

aksan kurdin

On 2/11/2010 10:22 AM, Belajar Office wrote:

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

Re: [belajar-access] Relink tabel tidak connent

Kirim email ke