how do i return value from module's function?

[beefwellington]

I made a Public Function in a module, called Toolbox, where I wanted to place a lot of reusable code. I have the following function in the module:

Public Function test(anInt As Integer) As Integer
    anInt = anInt + 5
End Function

I've tried to execute the function these 2 ways:

    Dim anInt As Integer
    Dim toolbox As Module
    anInt = 1
    toolbox = Modules!toolbox
    anInt = toolbox.test(anInt)
    MsgBox anInt

which returns an error on toolbox.test(anInt), and:

    Dim anInt As Integer
    anInt = 1
    anInt = toolbox.test(anInt)
    MsgBox anInt

which returns anInt = 0 instead of 6.

I'm not sure what I'm doing wrong here so any help would be appreciated.

 

[boblarson]

It should just be:

    Dim anInt As Integer
    anInt = 1
    anInt = test(anInt)
    MsgBox anInt

 

[MSAccessRookie]

A Function be definition returns a value, so try changing the Function to look like the following:

[B]Public Function test(anInt As Integer) As Integer[/B]
[B]   [COLOR=red]test[/COLOR] = anInt + 5[/B]
[B]End Function[/B]

I see that BobLarson has beaten me to the post again with a different idea. In the event that what he suggests does not work (a long shot at best), you can always try mine. post back if you have additional questions.

 

[boblarson]

A Function be definition returns a value, so try changing the Function to look like the following:

[B]Public Function test(anInt As Integer) As Integer
    [COLOR=red]test[/COLOR] = anInt + 5
End Function[/B]

Oops! Good tag team effort. With the combination they should be good to go. I missed that part of it

 

[beefwellington]

I love you guys It works like a charm after I did both of your suggestions Thanks!!

 

[MSAccessRookie]

Always glad to know that I helped.