2014-02-27 50 views
0

我有一个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 

这使得排序工作。它在点击时起作用,但在切换记录或关闭/重新打开表单时不会保存更改。这是正确的代码,还是有更好的,还是每个记录需要单独链接?

+0

请指定您希望看到的移动到另一条记录时看到的行为,然后移回到_this_记录。 – Yawar

回答

1

你缺少的是代码需要再次运行“On Current”。通过这种方式,每当您更改回表单时,它都会查看是否选中了该复选框,并正确启用/禁用字段。

选择表格(点击标尺相交处左上角的小方块),然后在“事件属性”选项卡上单击“当前”。加载此代码:

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