-2

我正在尝试使表单复选框更新另一个表中的日期。

Private Sub Delivered_AfterUpdate()
If Delivered = -1 Then
    [tool implentation].[date] = Now()
End Sub

[tool implentation].[date] = Now()在线上遇到错误。

我想在任何时候单击复选框(选中和取消选中)更新日期。

4

1 回答 1

0

我假设您的表格也是此处表单的记录集。如果不是,您将需要确定要编辑表中的哪条记录。

Private Sub Delivered_AfterUpdate()
    If Me.Delivered = True Then  
        With Me.Recordset
             .Edit
             ![ImplementationDate] = Now()
             .Update
        End With
    End If
End Sub

如果你愿意,你可以离开Me.Delivered = -1,但我发现 True/False 更容易阅读。

我还建议不要命名日期,我不确定它是否真的很重要作为列名,但它既是内置函数又是数据类型。所以我改变了它。

您还应该缩进您的代码,当您获得更多行时,这将是一场噩梦。

于 2019-10-03T19:01:45.450 回答