how do i call a function by using the function name as a string of characters

  • Thread starter Thread starter Keith G Hicks
  • Start date Start date
K

Keith G Hicks

I have a form with 20 checkboxes.
Each checkbox is associated with a report.
The TAG property for each checkbox is the name of a function that calls the
report to be run.
The user is able to check off any number of reports.
When he hits the "Run Reports" button, the code loops thorugh all the
controls on the form, checks to see if the checkbox is checked and then
calls the function to run the report. The report calling code is actually
located in a function in another module. Each report has it's own function
that runs it. This is done because these reports can be called from many
different places and have quite a bit of code that runs prior to the running
of each specific report.
Here's the problem. How do you call a function in the following manner?

Dim ctl As Control
Dim i As Integer

For i = 0 To (Me.Count - 1)
Set ctl = Me(i)
If Me(i).ControlType = acCheckBox Then
If Me(i) = True Then
'This doesn't work: Call ctl.Tag & "()" ' where
ctl.Tag = MyFunction
'This doesn't work either: Application.Run ctl.Tag &
"()"
End If
End If
End If
Next i

Any ideas on how to do this?

Thanks,

Keith
 
Keith said:
I have a form with 20 checkboxes.
Each checkbox is associated with a report.
The TAG property for each checkbox is the name of a function that calls the
report to be run.
The user is able to check off any number of reports.
When he hits the "Run Reports" button, the code loops thorugh all the
controls on the form, checks to see if the checkbox is checked and then
calls the function to run the report. The report calling code is actually
located in a function in another module. Each report has it's own function
that runs it. This is done because these reports can be called from many
different places and have quite a bit of code that runs prior to the running
of each specific report.
Here's the problem. How do you call a function in the following manner?

Dim ctl As Control
Dim i As Integer

For i = 0 To (Me.Count - 1)
Set ctl = Me(i)
If Me(i).ControlType = acCheckBox Then
If Me(i) = True Then
'This doesn't work: Call ctl.Tag & "()" ' where
ctl.Tag = MyFunction
'This doesn't work either: Application.Run ctl.Tag &
"()"
End If
End If
End If
Next i
Click to expand...

As long as the things you want to call are a Public Function
in a standard module, you can use the Eval function:

xx = Eval(ctl.Tag & "()")
 
I thought of that but didnt' think it would work. Guess I should have tried
it first! Thanks :)
 
Back
Top