Office中国论坛/Access中国论坛

标题: 请教要如何使用 myActiveControl + AfterUpdate [打印本页]

作者: c101 时间: 2013-6-1 23:19
标题: 请教要如何使用 myActiveControl + AfterUpdate
MyOpenArgs = Me.OpenArgs
myActiveControl = Forms(MyOpenArgs).ActiveControl.Name
ps: ( myActiveControl = CustID )

下面可正确执行AfterUpdate
Forms(Me.OpenArgs).CustID_AfterUpdate

想请教要如何使用 myActiveControl + AfterUpdate

类似下二句
meActiveControl = myActiveControl & "_AfterUpdate"
Forms(Me.OpenArgs).meActiveControl

作者: admin 时间: 2013-6-2 00:05
这个不太好做,有点像vfp里的宏替换
你可试试先组成字符串,再用eval 来执行一下试试. 没具体试过

作者: t小宝 时间: 2013-6-2 12:12
这个实现不了，还是写自定义函数吧

作者: cgsilicone 时间: 2013-6-4 14:13
本帖最后由 cgsilicone 于 2013-6-4 14:16 编辑

可以试试 Call CallByName,但需要将过程改为 public。

Call CallByName(me,Forms(MyOpenArgs).ActiveControl.Name & "_AfterUpdate",VbMethod)

作者: c101 时间: 2013-6-9 21:48
感谢楼上三位的方案
最后我还是用
IF Forms(Me.OpenArgs).= ……. then

Elseif Forms(Me.OpenArgs).= ……. then
谢谢楼上三位

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)