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


Или так (ADO Method):

'--------------------------------------------------------------------
'   Внимание! CurrentDb.Execute (DAO Method) - не отработает !!!
'   Выдаст: "Syntax error in CONSTRAINT clause."
'--------------------------------------------------------------------
    CurrentProject.Connection.Execute s


Или так:

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

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