[AccessD] Dynamically calling combobox_afterupdate from form_open event

[John Colby]

The functions I sent were out in a public module.  I tried the eval thing
out there and it still didn't work.  Or I never got it to work anyway.

On Tue, Mar 7, 2023 at 7:22 PM Ryan W <wrwehler at gmail.com> wrote:

> I think it was that Stuart mentioned the public functions have to be in a
> module and not a form codebehind for Eval to work.  So…. I just made a
> select case to run what’s needed as the loop comes across the key/value
> pair.
>
>
>
> Sent from my iPhone
>
> > On Mar 7, 2023, at 5:52 PM, John Colby <jwcolby at gmail.com> wrote:
> >
> > I am having no more success than you using the eval function. 🤕
> >
> >> On Tue, Mar 7, 2023 at 4:36 PM John Colby <jwcolby at gmail.com> wrote:
> >>
> >>
> >>
> https://stackoverflow.com/questions/1072075/call-a-vba-function-into-a-sub-procedure
> >>
> >> From that it appears that you need to change the private declaration for
> >> the event sink to public.
> >>
> >> After that I did the following:
> >>
> >> Create a module and generate two functions:
> >>
> >> Function CallIt(str As String)
> >> Dim frm As Form
> >>
> >>    Set frm = Forms("FrmLocation")
> >>    frm.Form_Current
> >> End Function
> >>
> >> Function CallIt2(str As String)
> >>    'Call Forms("frmLocation").Form_Current
> >>    Call Forms("frmLocation").txtName_AfterUpdate
> >> End Function
> >>
> >> Both of these work IF the event sink is public.
> >>
> >> You can now call these functions from anywhere including from inside of
> >> the form.  Pass the event name into the function and mess around with
> using
> >> that passed in string.  Like trying your eval() thingie.
> >>
> >> Hey you gotta do some of the work!  ;)
> >>
> >>
> >>
> >>
> >>> On Mon, Mar 6, 2023 at 2:03 PM Ryan W <wrwehler at gmail.com> 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.eval
> >>>
> >>>
> >>> 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
> >>>
> >>
> >>
> >> --
> >> John W. Colby
> >> Colby Consulting
> >>
> >
> >
> > --
> > John W. Colby
> > Colby Consulting
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > https://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


-- 
John W. Colby
Colby Consulting