need result from called function

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

TMGreen - 18 Nov 2006 16:35 GMT

How do it get the result variable passed back to the original sub from a
called function?

IE the result of this call function is a variable that is used in the sub

Call EnterSubProjValue

thanks!

Reply to this Message

Tim Ferguson - 18 Nov 2006 17:44 GMT

> IE the result of this call function is a variable that is used in the sub
>
> Call EnterSubProjValue

myVar = EnterSubProjValue()

Tim F

Reply to this Message

TMGreen - 18 Nov 2006 18:08 GMT

I modified the sub code to

subprojresult = entersubproj()

but I am still not getting a result. in the function I'm setting a value as
follows:
public function
...
subprojvalue = InputBox(message, title, default)
...
end function
the subprojvalue is a global variable and the result is stored at the end of
the function but gone when it comes back to the sum. any clues as to where
I'm going wrong?

> > IE the result of this call function is a variable that is used in the sub
> >
[quoted text clipped - 3 lines]
>
> Tim F

Reply to this Message

Rick Brandt - 18 Nov 2006 18:22 GMT

> I modified the sub code to
>
[quoted text clipped - 10 lines]
> end of the function but gone when it comes back to the sum. any
> clues as to where I'm going wrong?

To make a function return a value then within the function you need to set the
value of the function itself. If you are instead setting tha value of a global
variable then you need to refer the the golbal variable in youe calling code...

Call entersubproj
subprojresult = GlobalVariableName

...however; returning straight from the function and eliminating the global
variable would be the better way to do it.

Signature

Rick Brandt, Microsoft Access MVP
Email (as appropriate) to...
RBrandt at Hunter dot com

Reply to this Message

Granny Spitz - 18 Nov 2006 17:46 GMT

> How do it get the result variable passed back to the original sub from a
> called function?

Use syntax like this.

Public Sub SubroutineA()
Dim result As Long
Dim passedParameter As Long

passedParameter = 100
result = functionName(passedParameter)
' Do whatever with result.
End Sub

Public Function functionName(nParam As Long) As Long
Dim var As Long

' Do calculation on nParam and put the result in var.
functionName = var
End Function

If there's no parameter to pass, just use empty parentheses after the
function name when calling it and in the definition.

Reply to this Message

ruralguy - 18 Nov 2006 17:47 GMT

Functions return values and Subs do not. If it is a function then:
Me.MyValue = EnterSubProjValue
will assign the returned value.

>How do it get the result variable passed back to the original sub from a
>called function?
[quoted text clipped - 4 lines]
>
>thanks!

Signature

HTH - RuralGuy (RG for short) acXP WinXP Pro
Please post back to this forum so all may benefit.

Reply to this Message