stevennathaniel

VBA MS Access : If .. ElseIf ... Else

Mar 20th, 2016
107
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Compare Database
  2.  
  3. Sub fungsi5()
  4.  
  5. If 1 > 4 Then
  6.  
  7.     MsgBox "1 lebih besar nilainya daripada 4"
  8.  
  9. ElseIf 2 > 4 Then
  10.  
  11.     MsgBox "2 lebih besar nilainya daripada 4"
  12.  
  13. ElseIf 3 > 4 Then
  14.  
  15.     MsgBox "3 lebih besar nilainya daripada 4"
  16.  
  17. Else:
  18.  
  19. MsgBox "1, 2 atau 3  nilainya lebih kecil daripada 4"
  20.  
  21. End If
  22.  
  23. End Sub
RAW Paste Data