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

Вопрос:

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

Private Sub Command2_Click()
Dim Rec As String

Rec = Text0

End Sub

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

Лучший ответ:

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

Оцените статью
TechArks.Ru
Добавить комментарий