表单加载后运行VBA代码

时间:2014-08-04 10:27:07

标签: forms vba ms-access

我在Microsoft Access的“搜索”查询中构建了这个连续的“结果”形式,我希望显示一个隐藏的文本字段“Number”(其Visible属性最初设置为False),具体取决于值一个查询结果写在“类型”组合框中。我的代码目前如下:

Private Sub Form_Load()
If Me.Type="Reclamation" Then
Me.Number.Visible=True
Else: Me.Number.Visible=False
End If
End Sub

这似乎不起作用,但是由更改事件触发时代码运行正常。 “结果”中也禁用了添加,更改和删除记录。

我应该从宏中运行代码,查询还是尝试其他事件(我尝试了很多事件但没有成功)?

感谢您的帮助,对于noob问题感到抱歉!

1 个答案:

答案 0 :(得分:0)

连续表单的行为与您的想法不同。它无法与UnBound控件一起使用。如果控制号被绑定,它将仅对具有foucs的记录生效。使用Form Current和Load应该/可能有效,但同样不是最好的解决方案。因为它将应用于SubForm中的所有其他记录。

我的意思是,如果表单有三条记录。 First Record有Type(一个可怕的字段/控制名称)" Reclamation"那么"当前"记录的号码(同样是一个非常糟糕的字段/控制名称)将与所有其他记录的号码一起隐藏,即使他们的记录中还有其他类型的号码。

我建议你选择单一表格。