SQL в VBA

[antihacker]

Set Recordset1 = CurrentDb.OpenRecordset("Exel_File")
Set Recordset2 = CurrentDb.OpenRecordset("Sheet1")

'---------------------------------------------------
SQLString = "DELETE FROM Sheet1"
DoCmd.RunSQL (SQLString)
'---------------------------------------------------
While Not Recordset1.EOF

SQLString = "INSERT INTO Sheet1 (Nomer_Sap_Doc) values (" & Recordset1!S7 & ")"

DoCmd.RunSQL (SQLString)


Recordset1.MoveNext


Проблема в том что Инсерт добавить та добавляет без ошибок
Только перед тем как добавить каждую строку выдает сообщение

"Будет добавлено следующее число записей:1.
Вы согласны ? Если да , то нажмите ОК." и так делает ддо конца таблицы. А у меня количество записец 65899
Че делать ?

[alibek]

Почитай про макро-команду "УстановитьСообщения".

[antihacker]

Все тема закрыта.
На параметрах убрал галочку. Подтверждению на изменению и добавление.