VBA MS Access : Fungsi IF THEN Untuk Dipanggil Module Lain

Option Compare Database

Function fungsi1() As String

' Source code berasal dari ebook Microsoft Access 2010 VBA Programming Inside Out
' Chapter 2 Understanding the VBA Language

Dim Rating As Long

Rating = 3


If Rating = 1 Then

fungsi1 = "Approved, first class company to deal with"

Exit Function

End If


If Rating = 2 Then

fungsi1 = "Approved, good company to deal with"

Exit Function

End If


If Rating = 3 Then

fungsi1 = "Approval required before signing contract"

Exit Function

End If



fungsi1 = "Company rating is not specified"

End Function