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

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