Question

我在ms访问表单上有4个文本框，并且正在运行以下代码，但无法正常工作：

If Text1.value = 1 then
    Me.Text2.Enabled = True
    Me.Text3.Enabled = True
Else
    Me.Text2.Enabled = False
    Me.Text3.Enabled = False
End if
If Text1.value = 2 then
    Me.text2.Enabled = True
    Me.Text4.Enabled = True
Else
    Me.Text2.Enabled = False
    Me.Text4.Enabled = False
End if

Answer 1

如果您尝试为“连续”或“数据表”窗体上的每个记录分别设置“启用”属性，则VBA将不起作用。必须使用条件格式。

如果这是“单一视图”表单，则在“当前”和“文本1 AfterUpdate”事件中使用VBA。考虑更简单的代码：

Me.Text2.Enabled = (Me.Text1 = 1 Or Me.Text1 = 2)
Me.Text3.Enabled = Me.Text1 = 1
Me.Text4.Enabled = Me.Text1 = 2

但是，仍然可以使用条件格式并完全避免使用VBA。

Ms Access VBA，如果有条件

1 个答案: