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

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