访问 - 日期函数的奇怪错误

Question

这是一个奇怪的错误，我觉得我很遗憾。

当我在一个表单上使用标准访问日期功能时，它可以正常工作（请参阅“正常运行”）。当我在另一个表单上使用它时（参见'代码导致错误'）我收到一个调试错误'数据库找不到表达式中引用的字段'Date'。'

希望别人看到一个愚蠢/明显的错误......

正常运作：

With rs
    .AddNew
    If chkSubAssembly = True Then
        .Fields("Document") = mySubassembly
        .Fields("Type") = "S"
    Else
        .Fields("Document") = "M" & cmbCustomer & "-" & txtCustPN
        .Fields("Type") = "D"
    End If
    .Fields("Description") = txtDMRDesc
    .Fields("Author") = Forms("frmUser").lblUser.Caption
    .Fields("CreationDate") = date
    .Fields("Revision") = "Draft"
    .Fields("PE") = cmbPE.Column(1)
    .Fields("lasteditby") = Forms("frmUser").lblUser.Caption
    .Update
End With

代码导致错误：

With rs
    .AddNew
    .Fields("ValidNum") = myProtocol
    .Fields("Description") = txtNewDescription
    .Fields("Author") = Forms("frmUser").lblUser.Caption
    .Fields("createdOn") = date
    .Fields("lasteditby") = Forms("frmUser").lblUser.Caption
    .Update
End With