VBA For Each Statement

For Each statement adalah sebuah proses looping untuk setiap elemen dalam group array atau collection. Proses looping ini akan dilakukan jika setidaknya ada 1(satu) element dalam grup yang ditentukan.

Struktur dari statement ini adalah sebagai berikut :

For Each element In group
[statements]
[Exit For]
[statements]

Next [element]

Sedikit penjelasannya:

element : elemen (atau biar gampangnya bisa dibilang juga sebagai anggota) dari group yang ditentukan

group : object collection atau array, nama grup atau array dari elemen yang dimaksud

statements : kondisi yang akan dilakukan untuk setiap elemen dari grup yang ditentukan (bisa 1 atau lebih kondisi).

Exit For : kondisi yang akan menghentikan proses looping jika kondisi tertentu yang ditentukan terjadi.

Semua yang dalam tanda [  ] bersifat opsional.

Berikut ini adalah contoh dari menu help vba access :

Dim Found, MyObject, MyCollection
Found = False           ' Initialize variable.
For Each MyObject In MyCollection           ' Iterate through each element.
If MyObject.Text = "Hello" Then           ' If Text equals "Hello".
Found = True           ' Set Found to True.
Exit For           ' Exit loop.
End If
Next

Penjelasan statement diatas versi penulis :
Found = False
--> Menentukan nilai False untuk Found
For Each MyObject In MyCollection
--> Menentukan elemen MyObject dari MyCollection
If MyObject.Text = "Hello" Then
--> Menentukan kondisi teks dalam MyObject, yang dalam statement ini adalah Hello
Found = True

--> Jika teks dari MyObject yang ditentukan adalah Hello, maka nilai Nilai False yang telah ditentukan sebelumnya akan berubah menjadi True
Exit For
--> Jika nilai Found adalah True, maka proses looping akan dihentikan
Next
--> Akhir dari proses looping jika semua elemen sudah di loop.

Untuk penulis, statement ini biasa digunakan (misalnya) untuk menentukan warna huruf dari textbox angka yang nilainya lebih dari yang penulis tentukan. contohnya :

Untuk menentukan warna huruf menjadi merah dari setiap textbox angka yang angkanya lebih dari 10 :

Dim ctlTextBox As Control
For Each ctlTextBox In Me.Controls

If TypeOf ctlTextBox Is TextBox Then
        If ctlTextBox.Value > 10 Then
        ctlTextBox.ForeColor = 255

        Else

        ctlTextBox.ForeColor = 0
        End If

End If
Next

Penjelasannya :

Dim ctlTextBox As Control

--> Mendeklarasikan ctlTextBox sebagai Control
For Each ctlTextBox In Me.Controls

--> Menentukan ctlTextBox untuk setiap Control dalam Form

If TypeOf ctlTextBox Is TextBox Then

--> Jika tipe dari ctlTextBox adalah TextBox

If ctlTextBox.Value > 10 Then

--> Jika nilai control TextBox Lebih dari 10

ctlTextBox.ForeColor = 255

--> Menentukan warna huruf dari TextBox tersebut menjadi merah (255 adalah code warna merah)

Else

ctlTextBox.ForeColor = 0

--> Selain dari nilai TextBox lebih dari 10 maka warna hurufnya adalah hitam

Refference : Microsoft Access 2003 VBA Help Menu

Semoga Bermanfaat...

Posted in: belajar access 2003