Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: час АААААААААААААААА 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
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.