Is it Possible to Define a Funciton from Event Procedure 2

[dmon000]

Is it possible to define a function as the result of an event procedure of a command button or form?

My problem: I have 18 different command buttons which I would like to define the following function:

Function ReturnWard()
Dim MyVar As String
MyVar = "11"
ReturnWard = MyVar
End Function

For each different button, I need the function to have a different value in the "MyVar" line. These different values will be called in a query criterion box which calls the "ReturnWard() function.

I want to use one query to get 18 different record sets into a form based on the cmd button clicked. So the function value has to change for each of the 18 buttons.

Is this possible?

 

[PHV]

Use a global variable retrieved by your function and set by each event procedure.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Zion7]

Or,
depending on what dictates the value of MyVar,
you could use the source as an argument, to your function.

On Click Event of each cmdButton..
If TextBox on current form
"= ReturnWard([txtMyVar])"

If "random value"
"= ReturnWard(6)"
etc...

 

[TheAceMan1]

How are ya dmon000 . . .

Agree with [blue]PHV[/blue]. In the [blue]Declaration Section[/blue] of a [blue]module[/blue] in the [blue]modules[/blue] window you would have:

[blue]Option Compare Database
Option Explicit

[b]Public MyVar[/b][/blue]

In the same module the function would be:

[blue]   Function ReturnWard()
      ReturnWard = MyVar
   End Function[/blue]

Each command button would have:

[blue]   MyVar = "[purple][b][i]StringValue[/i][/b][/purple]"[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see FAQ219-2884:

 

[dmon000]

Thanks for your replies.

I understand the concepts involved. Just can't figure out how to set a global variable in an event procedure and then retrieve it by the function. I have about 20 pounds of books here on VB and I'm not getting the code right.

 

[dmon000]

THANKS TO PHV FOR THE GENERAL CONCEPT!!

AND THANKS THANKS THANKS TO ACEMAN FOR THE CODE!!!
IT WORKS.

I was getting close on my own, but it probably would have taken me another 2 days to get right.