Menulis Statemen Eksekusi - Access - Visual Basic

Sebuah statemen eksekusi (excutable statement) dapat menjalankan aksi. Statemen ini dapat menjalankan method atau function, dan dapat berulang atau bercabang melalui blok kode program. Statemen eksekusi sering mengandung operator matematika atau operator kondisional.

Contoh berikut menggunakan statemen For Each ... Next untuk pengulangan melewati setiap cell dalam range yang bernama MyRange pada Shee1 dari Microsoft Excel workbook yang aktif. Variabel c di cell dalam collection cell yang terkandung dalam MyRange.

Sub ApplyFormat()
Const limit As Integer = 33
For Each c In Worksheets("Sheet1").Range("MyRange").Cells
 If c.Value > limit Then
     With c.Font
         .Bold = True
         .Italic = True
     End With
 End If
Next c
MsgBox "All done!"
End Sub

Statemen If...Then...Else pada contoh memeriksa nilai dari cell. Jika nilai lebih besar dari 33, statemen With men-set properti Bold dan Italic dari object Font untuk cell tersebut. Statemen If...Then...Else diakhiri oleh End If.

Statemen Next memanggil cell berikutnya pada collection dall pada MyRange.

MsgBox function (yang menampilkan Visual Basic built-in dialog box) menampilkan pesan yang menunjukkan bahwa procedur Sub selesai dijalankan.

Artikel terkait dengan kategori ini: