-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Набор записей активной формы, выгрузка в файл..

Понедельник, 24 Февраля 2014 г. 09:40 + в цитатник
Есть на экране табличная форма, по ней фильтр и сортировка...
Есть желание экспортировать результаты работы в файл

Я так понимаю что наборы записей в DoCmd.OutputTo не запихнешь
поэтому делаю примерно так:


recSource =Screen.ActiveForm.RecordSource
If Right(recSource, 1) = ";" Then recSource = Left(recSource, Len(recSource) - 1)
    
    If  Screen.ActiveForm.FilterOn = True Then
        filter = IIf(InStr(1, recSource, "WHERE") > 0, " AND ", " WHERE ") & Screen.ActiveForm.filter
    Else
            filter = ""
    End If
        
    If  Screen.ActiveForm.OrderByOn = True Then
            sort = " ORDER BY " & Screen.ActiveForm.OrderBy
    Else
            sort = ""
    End If
    
    recSource = recSource & filter & sort

    objName =  Screen.ActiveForm.Form.Caption
    Сall CreateQuery(objName, recSource) 'Создание запроса

DoCmd.OutputTo acOutputQuery, objName, acFormatTXT, objName & ".txt"



Но на практике при фильтрации в Form.filter появляются поля типа [Lookup_type].[name] ...
что вызывают ошибку т.к. в самом RecordSource формы таких полей нет...

Хотелось бы спросить есть какие выходы из этой ситуации?

http://www.sql.ru/forum/1079088/nabor-zapisey-aktivnoy-formy-vygruzka-v-fayl


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку