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

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

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