VBA ElseIf

'source code untuk elseif di VBA nya MS Access:

Private Sub cmdEksekusiPerintah_Click()

Dim JenisKelamin As String

'menyamakan JenisKelamin dengan nilai textbox txtJenisKelamin

JenisKelamin = Nz([txtJenisKelamin])

'kalau textbox txtJenisKelamin di isi dengan Pria maka

If JenisKelamin = "Pria" Then

'terjadi perubahan warna background form nya

Detail.BackColor = 16772055

'Pilihan lainnya adalah JenisKelamin nya wanita

ElseIf JenisKelamin = "wanita" Then

'Maka terjadi perubahan warna form menjadi

Detail.BackColor = 13034293

'atau kalau isinya beda dengan 2 pilihan diatas maka warna nya akan berubah menjadi

Else

Detail.BackColor = 7452927

End If


End Sub