TopPicLogo TopPicText

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

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


Или так :

CurrentDb.QueryDefs("MyQueryName").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. 20.01.2017
Рейтинг@Mail.ru