代码创建的控件，如何添加事件？

afwe3wfwss　发表于：2012-03-23 09:36:43 　

我按"添加窗体控件"文章里的方法，

Set ctlText = CreateControl("hu", acTextBox, , "", "", 9000, 0, 600, 400) ctlText.Name = "temp2"

在一个已有窗体hu里新建了控件temp2，但这个控件无法用代码来设置它触发事件，如想单击它打开一个报表。

关闭窗体hu时，总提示要不要保存。有什么方法直接退出，不保存的。

希望高手解答。谢谢。

请查看 10 个与本帖内容相关的技术文章或帖子列表，确认对您的问题的解答是否会是列表中的其中一个解答。

叶海峰发表于：2012-03-23 10:46:47

Set ctlText = CreateControl("hu", acTextBox, , "", "", 9000, 0, 600, 400)
ctlText.Name = "temp2"

ctlText.OnClick = "[Event Procedure]"
Application.Modules("temp2_Click").AddFromFile (Profilename) '从文件导入代码.

DoCmd.Restore
DoCmd.Close acForm, "hu", acSaveYes

通过Modules对象进行代码编辑,添删的方法可以在帮助里面查到的.

wsl 发表于：2012-03-24 11:12:24

见这个例子：

afwe3wfwss 发表于：2012-03-26 20:32:54

太感谢了！太太感谢了。例子简单明了，极适合我们这些初学者。

afwe3wfwss 发表于：2012-03-26 21:04:19

我按例子的设置了，可是好像不行啊，总是显示：这个对象不能包含“自动”对象XXXXXX。为什么啊？

总记录：4篇页次：1/1 9 1 :

Access交流中心