请教要如何使用 myActiveControl + AfterUpdate

c101 · 发表于 2013-6-1 23:19:20

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:56

这个不太好做,有点像vfp里的宏替换
你可试试先组成字符串,再用eval 来执行一下试试. 没具体试过

t小宝 · 发表于 2013-6-2 12:12:22

这个实现不了，还是写自定义函数吧

cgsilicone · 发表于 2013-6-4 14:13:53

本帖最后由 cgsilicone 于 2013-6-4 14:16 编辑

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

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

c101 · 发表于 2013-6-9 21:48:00

感谢楼上三位的方案
最后我还是用
IF Forms(Me.OpenArgs).= ……. then

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

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 请教要如何使用 myActiveControl + AfterUpdate

群介绍
主题无相 (随机显示版	同地区群块其他地区)