vba - 访问表单复选框以更新另一个表中的日期

Question

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

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

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

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

Answer 1

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

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 更容易阅读。

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

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