使用复选框启用字段

Question

我有一个Access数据库，其中有几个字段，这些字段对应于其他字段，例如ID＃和日期。我希望在未选中相应的复选框时这些字段显示为灰色，并在选中时打开。

Check box: Study

Field 1: StudyID

Fields 2: StudyDate

默认情况下已禁用2个字段。我在复选框上使用以下代码AfterUpdate：

If Me.Study Then
    StudyID.Enabled = True
    StudyDate.Enabled = True
Else
    StudyID.Enabled = False
    StudyDate.Enabled = False
End If

这使它有点工作。单击时它会起作用，但在切换记录或关闭/重新打开表单时不保存更改。这是正确的代码，还是有更好的东西，或者每条记录是否需要单独链接？

Answer 1

您缺少的是代码需要再次运行“On Current”。这样，每次更改回表单时，都会查看是否选中了复选框，并正确启用/禁用字段。

选择表格（单击标尺交叉处左上角的小方块），然后在“事件属性”选项卡上单击“当前”。加载此代码：

If Me.Study = -1 Then
    StudyID.Enabled = True
    studydate.Enabled = True
Else
    StudyID.Enabled = False
    studydate.Enabled = False
End If