通過VBA更新整個表的字段

Question

我正在嘗試爲我導入的所有文件添加一個接收日期到我的表。我們收到文件並在一週後處理它們。我有我的導入設置和一切，但我添加了一個名爲「接收日期」的列。我還添加了一個日期選取器，並在VBA中設置它來抓取它。我不知道如何將表格中的所有記錄更改爲所選日期。

Private Sub Command2_Click() 
    Dim Rec As String 

    Rec = Text0 

End Sub 

正如你可以告訴我剛開始這個，但我不知道我應該從這裏走向哪個方向。我會假設打電話給記錄集和表格，但我不確定。任何援助將不勝感激。在此先感謝

Answer 1

聽起來就像您希望表中所有行中的[Receive Date]設置爲您的Text0文本框中選擇的日期值。如果這是正確的，您可以執行Command2_Click()中的SQL UPDATE語句。

Private Sub Command2_Click() 
    Dim strUpdate As String 
    Dim db As DAO.database 
    Dim qdf As DAO.QueryDef 
    strUpdate = "PARAMETERS which_date DateTime;" & vbCrLf & _ 
     "UPDATE YourTable" & vbCrLf & _ 
     "Set [Receive Date] = which_date;" 
    Debug.Print strUpdate 
    Set db = CurrentDb 
    Set qdf = db.CreateQueryDef("", strUpdate) 
    qdf.Parameters("which_date") = Me.Text0 
    qdf.Execute dbFailOnError 
    Set qdf = Nothing 
    Set db = Nothing 
End Sub