Returning a variant from a function

[fergusor]

Hi Guys,

This will probably make me sound really thick but can someone help me out.

I'm calling a function to display an input box and I want to return a numeric string to the calling function so it can be evaluated and work out where to go next.

Can someone help please.

Thanks,
Richard.

[Leith Ross]

Hello Richard,

The return value from the InputBox is a String that was input by the user.

result = InputBox("Input Numbers Below")

Result equals what the user input or an empty string if they click the Close Box or Cancel. I am not sure this what your question is about. If you need further help, repost with more information.

Sincerely,
Leith Ross

[fergusor]

Hi Leith Ross,

This is what I'm trying to figure out...

Private Sub cmdProcessExport2_Click()

Call dateImport --from here I want to call the function

If returnCode = 1 then -- return code to come from function below
do this
Else
do something else
End if

End Sub

________________________________________________

Private Function dateImport()

Message = "Please enter the date of the file you want to import"
Title = "Enter File Date"
Style = vbYesNo
Response = InputBox(Message, Title)

If Len(Response) > 6 Then
do some processing

return to cmdProcessExport2 sending return string
End if



End Function

Does this make sense?

Thanks for your help.

Richard.

[Leith Ross]

Hello Richard,

Makes perfect sense. You simplely need to assign the return value to the function. By default, all functions use a variant as the return value, however, you can specifiy what you want to return. I've made the change in your code in bold.

Private Function dateImport()

Message = "Please enter the date of the file you want to import"
Title = "Enter File Date"
Style = vbYesNo
Response = InputBox(Message, Title)

If Len(Response) > 6 Then
do some processing

return to cmdProcessExport2 sending return string
dateImport = Response

End if

This will return your input value to the calling routine cmdProcessExport2. However, somewhere in your calling routine you need to set a variable equal to the function name.

ReturnVariable = dateImport


That should do it,
Leith Ross

[fergusor]

Excellent, thanks for the help... it works a treat!!!

Now I do feel stupid

[Leith Ross]

Hello Richard,

Gald to help. Have a happy St. Patrick's day!

Erin go braugh! (Gaelic - Ireland forver!)

Leith Ross