2014-02-27 87 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