Passing and returning values between Sub routines or functio

[jag108]

Hello,

I am trying to pass arguments/variables between sub routines/functions, this I can do. What I am having trouble doing is returning a value to the calling sub that did not pass a variable to begin with. Specifically I am asking some one to select a file to attach to an email. The email sub calls the open email sub, what I need is the file name returned as a variable to the calling email sub.

One approach I have used successfully is, setting a global variable to be used by all routines. This I feel can get messy, and would like to know how to pass/return between subs.

I hope you can help me.

[bergy]

Subs cannot return a value. Functions can return a value. Try changing the Sub rountine into a Function.

[Tom Schreiner]

Hi jag108...
Same answer as above. Just a bit more
details...

In the following code example, running CallingSub...
MyAttachment = GetFileName
Your function will run and return the string "C:A File" to MyAttachment

Sub CallingSub()

Dim MyAttachment As String

    MyAttachment = GetFileName

End Sub



Public Function GetFileName()

    GetFileName = "C:A File"

End Function

You can also pass parameters to your functions
just like Subs. In the following example,
MyAttachment = "C:B File"

Sub CallingSub()

Dim MyAttachment As String, FileNum As Byte

    FileNum = 2

    MyAttachment = GetFileName(FileNum)

End Sub



Public Function GetFileName(WhichFile As Byte)

    Select Case WhichFile

        Case 1

            GetFileName = "C:A File"

        Case 2

            GetFileName = "C:B File"

        Case Else

            MsgBox "Bad File Number"

            Exit Function

    End Select

End Function

Tom


[ This Message was edited by: TsTom on 2002-05-15 16:41 ]

[Juan Pablo González]

Subs can have parameters tough ! so, if you don't want to have a public variable (I DO like to have them !) use something like

Sub Test1()
Dim a As Integer
a = 1
Test2 a
MsgBox a
End Sub

Sub Test2(ByRef a As Integer)
a = a * 2
End Sub


So, it's not entirely true that Subs cannot return a value... if you define them "ByRef"...

[jag108]

Thanks to every one for the great advise regarding my problem.