![]() |
|
Модераторы: Akina |
![]()
|
|
| EugeniCh |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 3 Регистрация: 10.11.2003 Репутация: нет Всего: нет |
Прошу помощи в решении такой задачи: есть таблица с данными учета работы сотрудников по датам (поля c датой естественно date). Есть простейшая форма запроса периода с двумя полями - дата начала работы и дата завершения работы. И ниже соответственно кнопочка "Выбрать" которая запускает отчет с фильтром представляющим из себя строку в которую подставляются даты начала и конца работы из формы запроса периода.
Если все делать по логике - присваивать переменным правильные типы и т.д. то ничего не работает. Поэтому пришлось пойти другим, по-моему неверным путем т.к. он работает но очень коряво. Вот он корявый код формирования фильтра с подстановкой дат: Dim strFilter As String, stD As String, edD As String, stDd As String, edDd As String stD = Forms!ДанныеПоРаботнику!startDta.Value edD = Forms!ДанныеПоРаботнику!endDta.Value stDd = Replace(stD, ".", "/") edDd = Replace(edD, ".", "/") strFilter = "Fam ='" & Forms!ДанныеПоРаботнику!workers.Column(1) & _ "' AND Name ='" & Forms!ДанныеПоРаботнику!workers.Column(2) & _ "' AND Otch ='" & Forms!ДанныеПоРаботнику!workers.Column(3) & _ "' AND work_dta >= #" & stDd & "# And work_dta <= #" & edDd & "#" Me.Report.Filter = strFilter К сожалению ни в справках, ни в умных книжках, ни в форумах я не смог найти конкретного примера с датами, подходящего для данного случая. Буду признателен за подсказку или пример кода! |
|||
|
||||
![]()
|
| Правила форума "MS Access" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | MS Access | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |