VBA For Next Statement

Untuk keperluan me-looping data yang berupa angka/numeric dalam ms access, maka kita bisa gunakan statement For Next, statement ini biasa penulis gunakan untuk keperluan membuat sebuah row source dari Combobox/Listbox, namun tentunya anda juga bisa gunakan untuk keperluan yang lain.

Struktur dari statement ini adalah :
For Counter = Angka Awal To Angka Akhir [Step step]
Statement
[Exit For]
Statement
Next [Counter]
Sedikit penjelasan dari codenya :
Counter : Variabel angka yang digunakan untuk looping
Angka Awal = Angka pertama untuk memulai proses looping
Angka Akhir : Angka terakhir untuk mengakhiri proses looping
Step : Jumlah angka yang digunakan untuk looping (defaultnya setiap 1)
Statement : Kondisi yang dieksekusi ketika proses looping terjadi
Exit For : digunakan jika kita ingin menghentikan proses looping ketika sebuah kondisi terjadi
Ket. : semua yang dalam tanda [ ]  adalah opsional

Dibawah ini adalah contoh yang bisa kita temukan dalam menu help vba access (dengan edit dan tambahan dari penulis) :

Dim Words, Chars, MyString

For Words = 10 To 1 Step -1           'Set up 10 repetitions.
For Chars = 0 To 9           'Set up 10 repetitions.
MyString = MyString & Chars           'Append number to string.
Next Chars           'Increment counter
MyString = MyString & " "           'Append a space.
Text1 = MyString
Next Words
Penjelasan code :

Words = 10 To 1 Step -1 -> sama saja atau ekuivalen dengan Words = 1 To 10

--> Proses looping dari 10 sampai 1 (10 kali)

For Chars = 0 To 9 ' Set up 10 repetitions.

MyString = MyString & CharsNext Chars

--> Membuat string dari angka 0 sampai 9 (hasilnya adalah 0123456789)

MyString = MyString & " " ' Append a space.

Textbox1 = MyString           '-> ini yang penulis tambahkan karena dalam Form ada Textbox yang bernama Textbox1 (cuma untuk melihat hasilnya aja).

--> Menambahkan 1(satu) spasi pada string yang dibuat sebelumnya "0123456789", sehingga menjadi "0123456789 "

Next Words

--> Melanjutkan proses looping berikutnya sampai akhir (1), sehingga akan terbentuk sebuah string seperti dibawah ini :

"0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 0123456789 "

Untuk contoh penggunaan statement For Next yang biasa penulis gunakan (untuk membuat sebuah row source Combobox/Listbox), adalah sebagai berikut :

Misalnya untuk membuat sebuah Combobox yang berisi semua nama-nama bulan :

Dim strBulan As String, intBulan As Byte
For intBulan = 1 To 12
    strBulan = strBulan & MonthName(intBulan) & ";"
Next

Me.Combo1.RowSource = strBulan

Hasilnya adalah Nama bulan dari Januari sampai dengan Desember

Contoh lainnya, jika menggunakan Step (misalnya untuk nama bulan dengan urutan ganjil)

Dim strBulan As String, intBulan As Byte
For intBulan = 1 To 12 Step 2
    strBulan = strBulan & MonthName(intBulan) & ";"
Next

Me.Combo1.RowSource = strBulan

Hasilnya adalah nama bulan Januari, Maret, Mei, Juli, September, Nopember

Refference : Microsoft Access 2003 VBA Help Menu

Semoga Bermanfaat...

Posted in: belajar access 2003