Statemen Do While .. Loop adalah untuk memproses kode program yang berulang atau looping. Statemen ini cocok digunakan untuk proses pembacaan data dari tabel atau query.
Sintak penulisan statemen Do While .. Loop adalah:
Do While [Kondisi]
[Blok kode program]
Loop
Contoh penggunaan :
Pada contoh ini penulis akan memproses data pada tabel penjualan detail yang akan mengurangi stok persediaan barang. Pada form penjualan barang terdapat tombol Kurangi stok. Pada tombol Kurangi stok ada event On Click yang akan melakukan Algoritma proses berikut:
Buka recordset penjualan detail
Do While PenjulanDetailRecordSet.EOF = FALSE
Cari data barang pada tabel persediaan sesuai dengan kode barang pada tabel penjualan detail
Kurangi stok barang pada tabel persediaan dengan data angka pengurang dari tabel penjualan detail
Tambahkan record data pada tabel Kartu Stok sesuai data dari tabel penjualan detail
Pindahkan data pada recordset PenjulanDetailRecordSet dengan perintah MoveNext
Loop
Jika tidak ada error tampilkan pesan Update data berhasil
Jika ada error tampilkan pesan error yang terjadi
Tutup recordset penjualan detail Close
Jika anda ingin melihat kode program selengkapnya dari proses pengurangan data stok dengan proses looping menggunakan Do While .. Loop anda dapat men download file aplikasi Access yang daya sediakan.
Untuk dapat memahami kode program di contoh program ini, anda harus memahami juga proses membuka data tabel dengan perintah untuk membuka tabel melalui script Visual Basic, memahami relasi tabel, memahami perintah SQL INSERT dan UPDATE.