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

Запуск Запроса (на изменение записей)

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


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


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


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


Или так:


    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. 13.12.2018
Рейтинг@Mail.ru