ник: snipe
а почему бы не посчитать записи в запросе?
а потом этот же запрос использовать в запросе на добавление
на например так
имеем запрос
INSERT INTO Таблица1 ( Поле1 )
SELECT [Копия Таблица1].Поле1
FROM [Копия Таблица1]
WHERE ((([Копия Таблица1].Поле1)=22222))
Dim CountAddSQL as Long
dim SQlStr as String
SQlStr="INSERT INTO Таблица1 ( Поле1 ) SELECT [Копия Таблица1].Поле1 FROM [Копия Tаблица1] WHERE ((([Копия Таблица1].Поле1)=22222))"
CountAddSQL=Dcount("[Поле1]","[Копия Таблица1]","[Копия Таблица1].Поле1)=22222")
msgbox "В таблицу Таблица1 будет добавлено - " & CountAddSQL & " записей"
docmd.setwarnings false
docmd.runsql SQlStr
docmd.setwarnings true
прошу прощения если с ошибками (навскидку писал)