MyTetra Share
Делитесь знаниями!
Запрос на Обновление
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 03 Запросы
Запись: xintrea/mytetra_db_adgaver_new/master/base/1531971553pjsei9e131/text.html на raw.githubusercontent.com

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

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

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





 
MyTetra Share v.0.59
Яндекс индекс цитирования