检查控件是否脏,然后启用保存按钮

时间:2019-07-17 15:03:49

标签: vba ms-access access-vba

在访问表单中,我在表单末尾有多个文本框和一个保存按钮。我通过在“当前表单”事件属性上使用Me.savebutton.Enabled = False使按钮最初变灰。我希望在任何文本框变脏时启用该按钮。

如果我为每个文本框的“ On Dirty”事件属性键入Me.Command21.Enabled = True,则可以实现此目的,但是表单上有很多文本框,并且不想为每个文本框键入该代码。我以为必须要有一种方法来遍历窗体上的所有控件,但是问题是我在窗体上也有2个组合框。所以我需要类似的东西:

For Each ctl in me.controls
   if ctl.ControlType = acTextBox Then

但是我不知道如何循环代码以及在哪里引入if脏话。

感谢您的帮助!

0 个答案:

没有答案