[belajar-access] koneksi FE - BE dengan form koneksi

 

Assalamualaikum....

Haloo kawan-kawan penggiat access, saya nanya lagi nih.... Saya sudah split aplikasi access saya menjadi FE - BE, dimana BE ini saya password. Untuk melinknya saya sudah bikin sebuah form koneksi FE-BE dengan tombol koneksi dan browse lokasi BE saya. VBA code-nya dari tombol tersebut saya dapatkan dari milist kita yg banyak ilmunya ini. Nah, masalahnya adalah (saya sudah cari masalah yg serupa di milist tapi tak berhasil saya terapkan):

1. ketika BE saya pindah folderkan dan FE saya jalankan, akan muncul warning box bahwa path BE sudah berbeda. Nah bagaimana caranya agar ketika FE dibuka (dengan BE masih di folder yg berbeda tadi), otomatis muncul form koneksi yg sudah saya buat sebelumnya? Jadi tiap kali BE berpindah, saya bisa koneksikan FE dengan BE melalui form koneksi....

2. dengan BE yg terpassword, tambahan VBA code apa yg ditambahkan dalam VBA koneksi pada tombol koneksi di dalam form koneksi ini? Jadi, password utk membuka BE ada di dalam VBA ini juga....

Ini VBA pada tombol koneksi yg saya gunakan (VBAnya dari milist ini juga...hehehe...):

Private Sub cmdConnect_Click()

Dim rs  As DAO.Recordset

Dim rq As DAO.Recordset

Dim strType, strODBC  As String

If IsNull(Me.Text100.Value) Then

    MsgBox "Path kosong, klik browse...", vbCritical, "Koneksi"

  

    GoTo b:

End If

 

On Error GoTo errHandler:

 

    strType = "Microsoft Access"

    strODBC = Text100

    Set rs = CurrentDb.OpenRecordset("Select NamaTBL from TBLLink")

    Set rq = CurrentDb.OpenRecordset("SELECT MSysObjects.Name AS table_name, Left([Name],1), Left([Name],4), MSysObjects.Type FROM MSysObjects WHERE (((Left([Name],1))) AND ((Left([Name],4))<>'MSys' And (Left([Name],4)) Not Like 'f_*') AND ((MSysObjects.Type)=6)) ORDER BY MSysObjects.Name")

    rs.MoveFirst

errHandler:

     If Err.Number = 3021 Then GoTo a:

     

     rq.MoveFirst

   

     Do Until rq.EOF

     If Err.Number = 2498 Then GoTo a:

        DoCmd.DeleteObject acTable, rq!table_name

        rq.MoveNext

     Loop

        MsgBox "hapus Koneksi Data Selesai", vbInformation

     

a:

        Do Until rs.EOF

        DoCmd.Echo -1, "Refreshing untuk tabel : " & rs!NamaTBL

        

       

        DoCmd.TransferDatabase acLink, strType, _

        strODBC, acTable, rs!NamaTBL, rs!NamaTBL, , 0

        rs.MoveNext

         

        Loop

        MsgBox "Koneksi Data Selesai", vbInformation, "FINISH"

b:

End Sub

Mohon pencerahannya...

Wassalam,

Rezart

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 3

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___