Memanggil procedure dari database eksternal

Salah satu keunggulan VBA didalam Microsoft Access adalah dapat memanggil procedure yang telah dibuat didalam file database lain. Misalnya saja Anda telah membuat suatu procedure didalam file “Child_Database.mdb”. Lalu Anda membuat file database baru dengan nama “Main_Database.mdb”. Maka procedure yang telah dibuat pada file “Child_Database.mdb” dapat dijalankan didalam file “Main_Database.mdb” setelah reference pada VBA nya ditambahkan. Untuk lebih jelasnya, silahkan ikuti latihan dibawah ini.

1.      Buatlah file database baru dengan nama “Child_Database.mdb”.

2.      Buatlah satu form baru pada database ini, kemudian Save dengan nama “frmChild”.

3.      Buat juga module baru, kemudian tambahkan code dibawah ini:

Public Function OpenForm_frmChild()

DoCmd.OpenForm “frmChild”

End Function

4.      Close database diatas dengan di Save dulu sebelumnya semua object yang telah dibuat.

5.      Buatlah kembali satu file database baru dengan nama “Main_Database.mdb”.

6.      Buatlah satu module baru, kemudian sisipkan code dibawah ini:

Public Function Connect_To_Child_Database()

On Error GoTo nol

    Dim strPath As String

    strPath = CurrentProject.Path

    References.AddFromFile (strPath & “Child_Database.mdb”)

nol:

End Function

Program diatas digunakan untuk menghubungkan semua module yang terdapat pada “Child_Database.mdb” ke file “Main_Database.mdb”, dengan demikian semua prosedur di “Child_Database.mdb” langsung terhubung dan dapat dijalankan di “Main_Database.mdb”.

7.      Jalankan module pada langkah 6 dengan mengetikkan pada immediate window kode berikut: ?Connect_To_Child_Database()  , Lalu tekan Enter. Maka kini semua module yang terdapat pada database “Child_Database.mdb” sudah terhubung ke file database “Main_Database.mdb”

8.      Buatlah form baru pada file “Main_Database.mdb”, kemudian tambahkan sebuah tombol (misal: command_button1), sisipkan kode berikut pada event “On Click” :

Private Sub command_button1_Click()

Call OpenForm_frmChild

End Sub

9.      Jalankan form ini, lalu klik tombol “command_button1”. Maka form “frmChild” pada file “Child_Database.mdb” akan langsung terbuka pada file database “Main_Database.mdb”.

10.  Untuk memutuskan hubungan dengan file “Child_Database.mdb”, jalankan pada immediate window kode berikut ini:

Public Function Disconnect_To_Child_Database()

On Error GoTo nol

    Dim Ref As Reference

    Set Ref = References!Child_Database

    References.Remove Ref

    Disconnect_To_Child_Database = True

nol:

End Function

Selain untuk membuka suatu form, program diatas dapat pula digunakan untuk membuka object-object lainnya, seperti table, query, report, macro serta module yang terdapat pada database eksternal.

Leave a Reply

%d bloggers like this: