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没有发生任何形式的数据更改事件-仅是第一次用户更改了表单上的任何数据（脏），记录更改（当前）以及控件中的数据更改（脏，更改，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