如何在MSAccess中实现必需的复选框?

时间:2017-11-06 11:46:02

标签: vba ms-access

我的问题是:

我正在设计一个PPM数据库,并希望设置一种验证规则,要求如果填写信息的用户没有选中框来说明维护工作已经完成并执行,他们需要选择一个“理由”下拉选项来解释为什么没有完成这项工作。

我一直在做一些阅读,似乎最好的办法是通过VBA。不幸的是,我对VBA的体验非常有限,因为我的大部分编码经验都是Java或C#。

我正在寻找的不仅仅是“必填字段”复选框,我已经为表单设置了几个,例如在“标题”字段或“PPM类型”字段中。我需要一个条件必需的字段函数,只有在另一个字段未被检查为“true”时才会激活。

提前谢谢!

P.S。 关于我需要的逻辑,我写了一些粗略的代码来测试。 如果它完全错了我很抱歉,但就像我说我几乎没有VBA经验。我只需要解决这个问题。

Private Sub Form_BeforeUpdate(Cancel as Integer)
    If Me!Completed = True Then
        If IsNull(Me!Reason) Then
        MsgBox "If not completed, Reason must be provided", vbOKOnly
        Cancel = True
        End If
    End If
End Sub

1 个答案:

答案 0 :(得分:0)

如果您使用绑定表单,请在表单的BeforeUpdate事件中执行检查。这是一个例子:
Conditional Validation Rule in MS Access

如果您使用未绑定表单,只需在保存记录之前运行检查。