Penggunaan Array di VBA Microsoft Access

Anda dapat mendeklarasikan sebuah array ketika bekerja dengan beberapa set nilai yang mempunyai type data yang sama. Misalnya, untuk menampilkan harga setiap hari untuk periode 1 tahun, Anda bisa menggunakan variabel array dengan 365 elemen, dan tentunya cara ini lebih baik daripada Anda harus satu-satu mendefisikan variable tersebut. Secara default, nilai array dimulai dari nol s/d nilai yang ditentukan di array itu sendiri. Contoh, jika terdapat code sebagai berikut:

Dim curExpense(364) As Currency

Maka curExpense diatas mempunyai variable dari curExpense(0) s/d curExpense(364) sehingga total variabelnya sebanyak 365 buah. Untuk menggambarkan penggunaan array ini lihat contoh dibawah:

Sub FillArray()

    Dim curExpense(364) As Currency

    Dim intI As Integer

    For intI = 0 To 364

        curExpense(intI) = 20

    Next

End Sub

Tulisan yang dicetak tebal diatas adalah array yang menjadikan setiap variabelnya diisi dengan nilai 20.

Merubah Nilai Array Terendah

Anda dapat menggunakan kode Option Base untuk mendefinisikan start nilai yang digunakan didalam array. Contoh:

Option Base 1

Dim curExpense(365) As Currency

Maka curExpense diatas mempunyai variable dari curExpense(1) s/d curExpense(364) sehingga total variabelnya sebanyak 364 buah.

Atau bisa juga menggunakan kode To. Lihat contoh berikut ini:

Dim curExpense(1 To 365) As Currency

Dim strWeekday(7 To 13) As String

Memberikan suatu type data Variant pada Array

Ada 2 cara untuk melakukan ini, yaitu :

1.       Memberi deklarasi varibel array tersebut dengan type data Variant. Contoh:

Dim varData(3) As Variant

varData(0) = “Claudia Bendel”

varData(1) = “4242 Maple Blvd”

varData(2) = 38

varData(3) = Format(“06-09-1952”, “General Date”)

2.      Memberi nilai yang dihasilkan function array sebagai variabel array. Contoh:

Dim varData As Variant

varData = Array(“Ron Bendel”, “4242 Maple Blvd”, 38, _

Format(“06-09-1952”, “General Date”))

Menggunakan Array Multidimensi

Didalam VBA, Anda dapat mendefiniskan array s/d 60 dimensi. Sebagai contoh, statement dibawah ini mendefiniskan array 2 dimensi, yaitu 5 x 10 array.

Dim sngMulti(1 To 5, 1 To 10) As Single

Jika Anda fikir array adalah sebuah Matriks, maka argument yang dicetak tebal adalah baris dan yang diberi garis bawah adalah kolom. Gunakanlah statement looping For…Next untuk memproses array multidimensi. Contoh:

Function FillArrayMulti()

    Dim intI As Integer, intJ As Integer

    Dim sngMulti(1 To 5, 1 To 10) As Single

    ‘ Mengisi array dengan suatu nilai.

    For intI = 1 To 5

        For intJ = 1 To 10

            sngMulti(intI, intJ) = intI * intJ

            Debug.Print sngMulti(intI, intJ)

        Next intJ

    Next intI

End Function

<

p style=”text-align:justify;”>Fungsi diatas mengisi array 2 dimensi dengan nilai tunggal. Silahkan dicoba running dengan mengetikan kode ?FillArrayMulti() di Immediate Window VBA.

Beri Nilai Artikel Ini:

Leave a Reply

Do NOT follow this link or you will be banned from the site!
%d bloggers like this: