使用表单命令按钮更新记录中的字段

Question

我是MsAccess的新手。 我有一个名为“Tracking”的表，其中包含一些字段，包括“OrderID”，“Process1_In”和“Process1_Out”。

我创建了一个表单，它用“OrderID”和“Process1_In”创建记录。 我正在创建另一个表单，用户在名为“OrderID”的文本框中输入“OrderID”，然后单击命令按钮，在此处更新跟踪表中的“Process1_Out”字段并使用当前日期和时间（使用Now（）功能）。

我创造了Form_BeforeUpdate事件的代码如下：

Private Sub Form_BeforeUpdate(Cancel As Integer) 

Update Tracking 

     Set Process1_Out = Now() 

     Where OrderID = OrderID.Value 

End Sub 

然而，随着计划在不更新记录。任何人都可以帮忙

Answer 1

您的SQL是您构建的字符串，然后执行。所以你的代码应该是这样的：

Private Sub Form_BeforeUpdate(Cancel As Integer) 
    Dim sql as string 
    sql = "" 
    sql = sql & "Update Tracking " 
    sql = sql & "Set Process1_Out = #" & Now() & "# " 
    sql = sql & "Where OrderID = OrderID.Value" 
    CurrentDB.Execute sql 
End Sub