Call AfterUpdate of a Control

[modest]

It's been a while since I've needed to do something like this:

For Each ctl In frm.Controls
        If ctl.ControlType = acCheckBox Then
            ctl.Value = False
            [COLOR="Red"]Call frm.Controls(ctl.Name)_AfterUpdate[/COLOR]
        End If
Next ctl

Anyone remember how to call the AfterUpdate sub?

 

[ssteinke]

How 'bout this:

Call SubNameHere_AfterUpdate

 

[Calvin]

Try This...

Dim strSubName as String
For Each ctl In frm.Controls
        If ctl.ControlType = acCheckBox Then
            ctl.Value = False
            strSubName = str(frm.Controls(ctl.Name)) & "_AfterUpdate"
            Application.Run strSubName 
        End If
Next ctl

 

[RuralGuy]

Hi Modest,
Leave it to you to ask a probing question. I've been playing with it since you posed the question. All I've come up with is a work around so far. As you know, if you make a Sub Public it becomes a method of the form. Making the AfterUpdate event Public I was able to get it to execute with:

Dim frm As Form
Dim ctl As Control
Dim strSubName As String

Set frm = Me
For Each ctl In frm.Controls
   If ctl.ControlType = acCheckBox Then
      ctl.Value = False
      strSubName = ctl.Name & "_AfterUpdate"
      CallByName frm, strSubName, VbMethod
   End If
Next ctl

Set frm = Nothing

I'm still playing with it.