SHARE
TWEET

VBA MS Access : Fungsi IF THEN Untuk Dipanggil Module Lain

stevennathaniel Mar 21st, 2016 87 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top