Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
АААААААААААААААА Lukas - добрый вечер!!!!!!

Вот нашёл:

Кривцов Анатолий г.Киев писал в своё время:

Кто пробовал выполнить экспорт в текстовый файл, знает, что экспортировать можно только данные из таблицы или запроса, не имеющего параметров или ссылок на элементы форм. Проблема решается созданием файла непосредственно в процедуре. Идея принадлежит Фаине Крамаровской. Предлагаемая процедура создает файл C:\WarePrice.txt в формате "Переменной длинны с разделителями".Первая строка - имена полей, разделители полей -"#", кодировка символов - DOS (функция ConvANSItoOEM). Такой метод работает быстрее, чем стандартный, и позволяет за один проход создать два и более файлов (например для экспорта в таблицы на стороне "один" и "многие").

Function EksportWarePrice() Dim dbs As Database, qdf as QueryDef, _ rst As Recordset, NameFld As String Set dbs = CurrentDb Set qdf = dbs.CreateQueryDef("") qdf.SQL= "Parameters .... Select ..." qdf.Parameters("Имя параметра") = Значение Set rst = qdf.OpenRecordset If rst.BOF Then      Exit Function End If Open "C:\WarePrice.txt" For Output As #1 NameFld = "WareID#WareName#Price" Print #1, NameFld With rst     Do Until .EOF         Print #1, ![WareID] & "#" _         & ConvANSItoOEM(![WareName]) & # _         & Format(![Price],"#.00")         .MoveNext     Loop End With Close #1 End Function