Набор записей активной формы, выгрузка в файл.. |
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"
http://www.sql.ru/forum/1079088/nabor-zapisey-aktivnoy-formy-vygruzka-v-fayl
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |