[AccessD] Dynamically calling combobox_afterupdate from form_open event

[Stuart McLachlan]

It's probably worth noting that the example code from the MS site doesn't work if the 
functions A1() etc are in a form module whether or not they are marked as Public
It only works if the functions are in a standard code module.

On 6 Mar 2023 at 13:03, Ryan W wrote:

> I have a form that takes openargs, the openargs are such as:
> 
> cbxJobID|12345
> 
> 
> The key/pair set can be repeated.. the key is the control name, the
> other is the data to input into the control name
> 
> my form open event is as such:
> 
> Private Sub Form_Open(Cancel As Integer)
>     Dim l         As Long: l = 0
>     Dim strArgs() As String
>     If IsNull(Me.OpenArgs) Then Exit Sub
> 
>     strArgs = Split(Me.OpenArgs, "|")
>     For l = 0 To UBound(strArgs) Step 2
>         Me(strArgs(l)) = strArgs(l + 1)
>         Call Eval(strArgs(l) & "_AfterUpdate")
>     Next l
> 
> End Sub
> 
> 
> 
> The problem I'm having is the "Call Eval()" part.  I get an error:
> "Run-Time error '2482': Cannot find name 'cbxJobID_AfterUpdate' you
> entered in the expression.
> 
> However that exists.  I've tried making it a public sub, private sub,
> public or private function.
> 
> None of it seems to work. Maybe it can't be a form level function/sub,
> has to be module level?
> 
> The microsoft documentation under examples shows the method I'm using
> is supported:
> 
> https://learn.microsoft.com/en-us/office/vba/api/access.application.ev
> al
> 
> 
> The following example assumes that you have a series of 50 functions
> defined as A1, A2, and so on. This example uses the *Eval* function to
> call each function in the series. Sub CallSeries()
> 
>  Dim intI As Integer
> 
>  For intI = 1 To 50
>  Eval("A" & intI & "()")
>  Next intI
> 
> End Sub
> 
> 
> So, something is missing here... can anyone clue me in?
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>