VBA, MS Access MS Access в примерах

Выполнение Запроса на изменение (создание, добавление, удаление)

Запросы на изменение (создание, добавление, удаление) и на выборку открывается по разному.

На выборку:

' открываем запрос на выборку
    DoCmd.OpenQuery "Имя Запроса", acViewNormal


Запросы на изменение (создание, добавление, удаление)

Если запрос имеет ссылочные аргументы типа:
[Forms]![Имя Формы]![Имя Поля]
То только так:


    DoCmd.SetWarnings False 'Отмена предупреждений о изменении записей
    DoCmd.OpenQuery "MyQueryName"
    DoCmd.SetWarnings True


В остальных случаях :


    CurrentDb.Execute "Имя Запроса"
    'или
    'CurrentDb.QueryDefs("Имя Запроса").Execute


Или так (ADO Method):


    strSQL ="INSERT INTO Результат ( КодУченика, КодЭкзамена ) VALUES ( 2 , 3 )" 'Добавление записей
    CurrentProject.Connection.Execute strSQL


Или так:

'Строим запрос
    strSQL = "UPDATE TableName SET " & _
        "TextFieldName = '" & strNewValue & "', CurrFieldName = '" & curNewSum & "' " & _
        "WHERE RecordID > 2"
'Выполняем запрос
    CurrentDb.Execute strSQL

Назад ToTop
L.E. 23.12.2022
Рейтинг@Mail.ru