MyTetra Share
Делитесь знаниями!
Запрос на Обновление
19.07.2018
06:41
Раздел: VBA - Access - msa.polarcom.ru - 03 Запросы

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

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

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.52
Яндекс индекс цитирования