使用复选框来启用字段

Question

我有一个带有多个字段的访问数据库，该字段是与诸如ID＃和Date等其他字段对应的复选框。当未选择相应的复选框并在选中时打开时，我希望这些字段被灰色。

Check box: Study

Field 1: StudyID

Fields 2: StudyDate

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

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

.

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

Answer 1

您缺少的是代码需要再次运行“在当前”。这样，每次更改回到表单时，它都会看出复选框是否检查，并正确启用/禁用字段。

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

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

.