使用表單命令按鈕更新記錄中的字段

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