访问表单复选框以在另一个 table 中更新日期

Question

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

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

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

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

Answer 1

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

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

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

你也应该缩进你的代码，当你得到更多行时，这将是一场噩梦。

访问表单复选框以在另一个 table 中更新日期

Access Form checkbox to update date in another table

ms-access

vba

ms-access-forms