RETURN Command?

[Cecil]

Does Access VBA use a RETURN command anywhere, in order to return a value back to the procedure which called a user-defined function for example?



I am looking at code which has no RETURN mVar commands anywhere. I see what appears to be GLOBAL declarations of variables with the Dim command and then those variables are given values in various procedures or functions and although the value isn't RETURNed, it seems that by being GLOBAL, the value is defined successfully and use throughout.

[rpeare]

if you are returning the value you set the value of the function before you exit it

i.e.

Sub Main()Dim ReturnValue
ReturnValue = ProductCalc(4, 5)
Debug.Print ReturnValue
End Sub


Function ProductCalc(x As Integer, y As Integer)
ProductCalc = x * y
End Function

[John_G]

It does, but only when used with a GoSub statement in the same procedure.

A function gets the value to be returned through an assignment statement:

Function MyFunction(...parameter list...) as FunctionType
.
.
. Function code
'
MyFunction = Value to be Retuned

End function

If the function needs to compute values in addition to the "main" return values, you can do that through the parameters, or by using Global variables as you have seen.

[Cecil]

It seems unnatural to me to make everything Global variables just to pass a value from one function to another. Everything I have been taught tells me not to do that.

[rpeare]

You don't have to make it a global function at all

Private Sub Command0_Click()
Dim smsg As String
smsg = "THE RESULT IS " & OMGMULT(4, 5)
Debug.Print smsg
End Sub


Private Function OMGMULT%(x As Integer, y As Integer)
Dim dProd As Double
dProd = x * y
OMGMULT = dProd
End Function