Re: [belajar-access] Relink tabel tidak connent

Sumiyanto - Wed, 10 Feb 2010 21:40:17 -0800

@Penjelasan yang pas Bpk Belajar Office, tinggal prakteknya saja.

Karena program dalam format MDE, kesimpulan saya 'MsgBox "..." nya tidak di cantumkan di dalam code program Bpk. Hanya muncul pesan error number 3044. apakah maksudnya, mohon penjelasan.

biasanya oleh programmer data BE di Share dan ditempatkan H$: tetapi spt dalam gambar yang saya cantumkan Drive yang ada hanya tampak C: dan D: apakah yang drive D: di change menjadi H: dulu? Trim's

Sumiyanto

--- On Thu, 2/11/10, Belajar Office <[email protected]> wrote:

From: Belajar Office <[email protected]>
Subject: Re: [belajar-access] Relink tabel tidak connent
To: [email protected]
Date: Thursday, February 11, 2010, 10:22 AM

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/splashscree n, 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 "NamaFormUtkLinkTab leOtomatis" , 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( "dbNamaTableBeri siDaftarTable" , dbReadOnly)

    DoCmd.SetWarnings False
    rs.MoveFirst
    Do While Not rs.EOF
        Dir Me!LokasiFolderBE & "\" & rs!NamaMDB
        DoCmd.DeleteObject acTable, rs!NamaTable
        DoCmd.TransferDatab ase 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