ms-access - 通过 VBA 更新整个表的字段

Question

我正在尝试为导入的所有文件添加接收日期到我的表中。我们会在一周后收到文件并对其进行处理。我已经设置了导入和所有内容，但我添加了一个名为“接收日期”的列。我还添加了一个日期选择器并在 VBA 中设置它来抓取它。我不确定如何将表中的所有记录更改为所选日期。

Private Sub Command2_Click()
    Dim Rec As String

    Rec = Text0

End Sub

正如你所知道的，我刚刚开始，但我不知道我应该从这里往哪个方向走。我会假设调用记录集和表，但我不确定。任何帮助将不胜感激。提前致谢

Answer 1

听起来您希望[Receive Date]表格的所有行中的设置为在Text0文本框中选择的日期值。如果正确，您可以UPDATE从Command2_Click().

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