Search This Blog

If Then Else - Ms Access - Visual Basic

Menggunakan Statemen If...Then...Else

Anda dapat menggunakan statemen If...Then...Else untuk menjalankan statemen tertentu atau satu blok statemen, tergantung dari nilai kondisi. Statemen If...Then...Else dapat bertingkat sebanyak level yang anda perlukan. Bagaimanapun juga untuk memudahkan pembacaan, mungkin anda ingin menggunakan statemen Select Case dari pada statemen If...Then...Else yang bertingkat.

Menjalankan Statemen Jika Kondisi Bernilai True

Untuk menjalankan hanya satu statemen ketika kondisi terpenuhi atau True, gunakan satu baris syntaks dari If...Then...Else. Contoh berikut menunjukkan satu baris sintaks, hilangkankeywerd Else:

Sub FixDate()
myDate = #2/13/95#
If myDate < Now Then myDate = Now
End Sub

Untuk menjalankan lebih dari satu baris kode, anda harus menggunakan lebih dari satu
baris sintaks. Sintaks ini mengandung statemen End If, sebagaimana contoh berikut:

Sub AlertUser(value as Long)
If value = 0 Then
AlertLabel.ForeColor = "Red"
AlertLabel.Font.Bold = True
AlertLabel.Font.Italic = True
End If
End Sub

Menjalankan Statemen tertentu jika Kondisi bernilai True dan Statemen lain Jika Bernilai False

Gunakan statemen If...Then...Else untuk mendefinisikan dua blok statemen yang dapat dieksekusi: blok pertama dijalankan jika kondisi True, blok lainnya dijalankan jika kondisi bernilai False.

Sub AlertUser(value as Long)
If value = 0 Then
AlertLabel.ForeColor = vbRed
AlertLabel.Font.Bold = True
AlertLabel.Font.Italic = True
Else
AlertLabel.Forecolor = vbBlack
AlertLabel.Font.Bold = False
AlertLabel.Font.Italic = False
End If
End Sub

Memeriksa kondisi kedua jika kondisi pertama bernilai False

Anda dapat menambahkan statemen ElseIf ke dalam statemen If...Then...Else untuk memeriksa kondisi kedua jika kondisi pertama bernilai False. Misalnya, function berikut menghitung bonus berdasar indeks prestasi. Statemen setelah statemen Else dijalankan jika kondisi pada semua statemen If dan ElseIf bernilai False.

Function Bonus(indeksprestasi, gaji)
If indeksprestasi = 1 Then
Bonus = gaji * 0.1
ElseIf indeksprestasi = 2 Then
Bonus = gaji * 0.09
ElseIf indeksprestasi = 3 Then
Bonus = gaji * 0.07
Else
Bonus = 0
End If
End Function

No comments: