Обновление поля для всей таблицы через VBA

Question

Я пытаюсь добавить полученную дату в таблицу для всех импортированных файлов. Мы получаем файлы и обрабатываем их до недели. У меня есть настройка импорта и все, но я добавил столбец «Дата получения». Я также добавил сборщик дат и настроил его в VBA, чтобы захватить его. Я не уверен, как изменить ВСЕ записи в таблице на выбранную дату.

Private Sub Command2_Click() 
    Dim Rec As String 

    Rec = Text0 

End Sub 

Как вы можете сказать, я только начинаю это, но я не знаю, в каком направлении я должен идти отсюда. Я бы предположил, что это набор записей и таблица, но я не уверен. Будем очень благодарны любой помощи. Заранее спасибо

Answer 1

Похоже, вы хотите, чтобы [Receive Date] во всех строках таблицы был установлен на значение даты, выбранное в вашем Text0 текстовое поле. Если это правильно, вы можете выполнить инструкцию SQL 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