Question

我正在尝试将所有已导入文件的收到日期添加到我的表中。我们收到文件并在一周后处理它们。我有我的导入设置，但我添加了一个名为“接收日期”的列。我还添加了一个日期选择器，并在VBA中设置它以获取它。我不知道如何将表中的所有记录更改为所选日期。

Private Sub Command2_Click()
    Dim Rec As String

    Rec = Text0

End Sub

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

Answer 1

您希望表中所有行中的[Receive Date]设置为 Text0 文本框中选择的日期值。如果这是正确的，您可以从UPDATE执行SQL 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

通过VBA更新整个表的字段

1 个答案: