Запрос на Обновление

Примечание:
Если вы используете имена полей с пробелами (что не рекомендуется), то названия полей в запросе должны обрамляться квадратными скобками: [Имя Поля]

Private Sub ЗапросРАЗ()
'изменяет начальные значения полей:
'      TextFieldName (Текстовое) и
'      CurrFieldName (Денежное)
'на новые, заданные в переменные, но только у тех записей, у которых
'значение ключевого поля [RecordID] - больше двух (RecordID > 2)
Dim strSQL As String
Dim strNewValue As String
Dim curNewSum As Currency
'Задаем значения переменных
    strNewValue = "Новое Значение"
    curNewSum = 1234.32
'Строим запрос
    strSQL = "UPDATE TableName SET " & _
        "TextFieldName = '" & strNewValue & "', " & _
        "CurrFieldName = " & curNewSum & " " & _
        "WHERE RecordID > 2"
    CurrentDb.Execute strSQL  'Запуск запроса
End Sub

Private Sub ЗапросДВА()
'Возвращает начальные значения в таблицу
Dim strSQL As String
    strSQL = "UPDATE TableName SET " & _
        "TextFieldName='Начальное значение', " & _
        "CurrFieldName = 0.00"
'Выполнение запроса
    CurrentDb.Execute strSQL
End Sub