ник: npth
Dim q As DAO.QueryDef
Set q = CurrentDb.QueryDefs("_дб_Акты_замера_МСР")
On Error Resume Next
q.Execute dbFailOnError
в err вижу код ошибки 3022 description "Изменения не были успешно внесены из-за повторяющихся значений в индексе, ключевых полях или связях. Измените данные в поле или полях, содержащих повторяющиеся значения, удалите индекс или переопределите его, чтобы разрешить повторяющиеся значения, и п"
полезной инфы кроме того что, без ошибок выполнился запрос или нет, больше нет, а том о сколько не добавилось ничего не написано