stevennathaniel

VBA MS Access : Fungsi IF THEN Untuk Dipanggil Module Lain

Mar 21st, 2016
128
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Compare Database
  2.  
  3. Function fungsi1() As String
  4.  
  5. ' Source code berasal dari ebook Microsoft Access 2010 VBA Programming Inside Out
  6. ' Chapter 2 Understanding the VBA Language
  7.  
  8. Dim Rating As Long
  9.  
  10. Rating = 3
  11.  
  12.  
  13. If Rating = 1 Then
  14.  
  15. fungsi1 = "Approved, first class company to deal with"
  16.  
  17. Exit Function
  18.  
  19. End If
  20.  
  21.  
  22. If Rating = 2 Then
  23.  
  24. fungsi1 = "Approved, good company to deal with"
  25.  
  26. Exit Function
  27.  
  28. End If
  29.  
  30.  
  31. If Rating = 3 Then
  32.  
  33. fungsi1 = "Approval required before signing contract"
  34.  
  35. Exit Function
  36.  
  37. End If
  38.  
  39.  
  40.  
  41. fungsi1 = "Company rating is not specified"
  42.  
  43. End Function
RAW Paste Data