MS-Access自动更新形式不断改变可见性的按钮

Question

仍在为质量控制系统访问数据库而挣扎。

我的最后一个问题是有一个按钮可见性，并使属性更改为0，如果不满足条件。我可以用下面的代码做到这一点:

Private Sub Form_Current()
Dim ok As Boolean
ok = Status.Value

Botão_Motores.Visible = ok
Botão_Motores.Enabled = ok
End Sub

但现在的问题是，它只更新状态当我打开和关闭表单，而不是当状态字段更新…我在这里的方法，虽然我开放的其他策略是在状态字段的更改子中包含一些东西来运行form_current子中的代码，这是可能的还是我必须以另一种方式做到这一点?如果有，怎么做?

谢谢

Answer 1

Access对于表单中的数据更改没有事件-只有用户第一次更改表单上的任何数据(dirty)，记录更改(current)和控件中的数据更改(dirty, change, BeforeUpdate,AfterUpdate…)

您可以为该任务创建一个过程，并从应该更改按钮可见性的控件的Current和适当的事件(可能是AfterUpdate)调用它。

Private Sub ChangeMotorVisibility()
   Botao_Motores.visible=Status.value
End Sub
Private Sub Form_Current()
  ChangeMotorVisibility
End Sub
Private Sub Status_AfterUpdate()
  ChangeMotorVisibility
End Sub