Penggunaan ActiveX Control di dalam VBA Microsoft Access

Pengenalan ActiveX Control di dalam VBA Microsoft Access

ActiveX Control merupakan control tambahan yang dapat digunakan didalam aplikasi Microsoft Access, seperti penggunaan TreeView, Common Dialog, Port Serial PC, dan lain-lain. Umumnya file ActiveX Control ini berformat *.ocx. Sebelum digunakan didalam Access, untuk ActiveX Control yang belum diregiser harus diregister dahulu didalam Access.

Untuk meregister suatu file ActiveX Control, Anda harus mengetahui dahulu letak file ocx nya. Misalnya untuk menambahkan ActiveX port serial, maka dapat menggunakan file Mscomm32.ocx yang terletak di directory System32 pada Windows Anda, caranya adalah sebagai berikut:

        Pada program Access, klik menu Tools ActiveX Controls.

        Klik tombol Register.

        Pilih file MSCOMM32.OCX, misalnya terletak di C:WinntSystem32.

        Klik tombol OK.

        Maka kini pada list box “Available Control” sudah terdapat component “Microsoft Communication Control, version 6.0”.

        Klik tombol Close.


Gambar Contoh registrasi ActiveX Control pada Access

Tutorial Penggunaan ActiveX Control di dalam VBA Microsoft Access

Penulis akan mencoba memberi sample penggunaan ActiveX Control untuk TreeView. Silahkan ikuti langkah-langkah sebagai berikut:

1.      Buatlah sebuah form baru.

2.      Masuk ke mode design form, lalu pada properties “On Load”, masukkan kode dibawah ini:

Private Sub Form_Load()

    Call TreeView0_Fill

End Sub

Function TreeView0_Fill() As Variant

Dim Rs As New ADODB.Recordset

    Rs.Open “SELECT * FROM [Table1];”, CurrentProject.Connection, _

        adOpenKeyset, adLockOptimistic

    With TreeView0

        Do Until Rs.EOF

            .Nodes.Add , , StrConv(“MyLevel” & Rs![Field1], _

                vbLowerCase), Rs![Field1]

            Rs.MoveNext

        Loop

        Rs.Close

        Rs.Open “SELECT * FROM [Table2];”, CurrentProject.Connection, _

            adOpenKeyset, adLockOptimistic

        Do Until Rs.EOF

            .Nodes.Add StrConv(“MyLevel” & Rs![Field1], _

                vbLowerCase), tvwChild, , Rs![Field2]

            Rs.MoveNext

        Loop

        Rs.Close

    End With

End Function

Private Sub TreeView0_NodeClick(ByVal Node As Object)

    MsgBox “Index = ” & Node.Index & vbCrLf & “Text = ” & Node.Text

End Sub

3.      Close form ini, save dengan nama : Form1.

4.      Buat 2 buah table sebagai berikut:

         Table1, dengan data sebagai berikut:

Field1

Level1
Level2
Level3
Level4
Level5

Ket : Set Field1 pada Table1 ini sebagai Primary Key.

         Table2, dengan data sebagai berikut:

Field1

Field2

Level1 1
Level1 2
Level2 3
Level2 4
Level3 5
Level3 6
Level4 7
Level4 8
Level5 9
Level5 10

Ket : Set Field1 pada Table2 ini pada properties Indexed = Yes (Duplicates OK). Nama table dan nama field yang Anda buat harus sama dengan contoh ini.

5.      Buatlah relationships antara kedua table ini berdasarkan Field1 pada Table1 dengan Field1 pada Table2.


Gambar Relationships Table1 dengan Table2

6.      Masuk ke design form “Form1”, lalu klik menu Insert ActiveX Control.

7.      Pilih : Microsoft TreeView Control, Version 6.0

8.      Rubahlah properties Name TreeView ini dengan nama “TreeView0”. Klik kanan TreeView0 ini, kemudian klik menu TreeCtrl Object Properties. Pada pilihan Line Style, pilihlah “1 –  tvwRootLines”.

9.      Save Form1 ini, kemudian di Run.


Gambar Aplikasi ActiveX Control untuk TreeView pada suatu form

Leave a Reply

%d bloggers like this: