Есть таблица igor с где-то 30 тыс. записями. Есть поля: key-счетчик, nt-номер телефона, Итого-сумма, flag-флажок (0-нет обновлений, 1-выбранные записи, 2-считывание произошло). Необходимо порциями, например по 700 записей, считывать данные из таблицы (только поля nt, Итого) в текстовый файл. Сделал на форме кнопку и повесил на нее код:
Private Sub Obzvonka_Click()
DoCmd.RunSQL "Update igor Set igor.flag=1 Where (((igor.key) In (Select top 700 key From igor Where flag=0)))"
DoCmd.TransferText acExportFixed, "IgorSpec", "SelectPriznak", "igor.txt"
DoCmd.RunSQL "Update igor Set igor.flag=2 Where (((igor.key) In (Select top 700 key From igor Where flag=1)))"
End Sub

Первоначально в таблице в поле flag везде 0.
IgorSpec-файл спецификации, чтобы в текстовый файл выводились только поля: nt и Итого разделенные одним пробелом.
SelectPriznak-запрос на выборку, чтобы в текстовый файл выводились записи с flag=1.

Короче все работает нормально!!!
Проблема в том, что хотелось бы, чтобы при выводе данных в текстовый файл выходило бы окно предлагающее ввести имя выводимого файла, а то файл igor.txt перезаписывается.
Что нужно изменить в программном коде? Помогите!!!