Question

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

我创建了一个用“OrderID”和“Process1_In”创建记录的表单。我正在创建另一个表单，用户在名为“OrderID”的文本框中输入“OrderID”，然后单击命令按钮，在此处使用当前日期和时间更新Tracking表中的“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

使用窗体命令按钮更新记录中的字段

1 个答案: