Re: [belajar-access] Relink tabel tidak connent

Sumiyanto - Wed, 10 Feb 2010 22:27:35 -0800

Terimakasih Bpk, akan di bongkar2 dulu.

Sumiyanto

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

From: Aksan Kurdin <[email protected]>
Subject: Re: [belajar-access] Relink tabel tidak connent
To: [email protected]
Date: Thursday, February 11, 2010, 11:12 AM

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/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