Устанавливаем источник строк для поля со списком
После выбора таблицы строим запрос на основе этой таблицы (нажимаем кнопочку ...)
Этот запрос можно не сохранять
Изменяем несколько свойств поля.
- Число столбцов поставить 2
- Связанный столбец – 1 (он и так 1)
- Чтобы столбец с кодом клиента не отображался задать его ширину =0
Поле со списком готово.
Поля для ввода дат.
Ставим поле для даты
| Изменяем ему имя на ДАТ1 | Выбираем формат – Краткий формат даты | Ставим значение по умолчанию текущую дату |
 |  | |
Копируем поле ДАТ1 и изменем в новом поле имя на ДАТ2
Можно поставить значение по умолчанию для даты 1 – текущую дату DATE() – 30 (тогда будет период – последние 30 дней)
Кнопка для показа отобранных записей
Ставим кнопку без мастера.
Изменяем имя и подпись на “ПОКАЗАТЬ”
Получилась вот такая форма
Изменение источника данных для формы.
Изменяем базовый запрос с учетом фильтра.
Открываем базовый запрос в конструкторе и сохраняем его под именем ПродажиКлиентов_F.
В условиях отбора для клиента, и дат строим выражения
Добавляем поля КодКлиента и два раза Дата
В строке ГРУППИРОВКА изменяем в этих полях слово ГРУППИРОВКА на УСЛОВИЕ и строим условия .
Для учета дополнительных условий (пустые поля фильтров) придется строить фильтр программно, проверяя наличие данных в полях формы и формировать условия отбора. Это процесс описан в приложении
Предположим, что в полях фильтра всегда будет выбран клиент и задан период и проверять это мы не будем. Тогда можно обойтись двумя кнопками. Одна кнопка будет выбирать данные из таблиц с учетом фильтра, а другая – просто показывать все записи для всех клиентов за все время существования базы.
Поставим в форме 2 кнопки, напишем на них “ФИЛЬТР” и “ВСЕ”. (Кнопки ставим без мастера.).
Изменим имя и подпись кнопки.
Изменяем кнопку ФИЛЬТР. Изменим ИМЯ кнопки на FiltrKlient.
Изменим источник записей для формы.
В свойствах кнопки ФИЛЬТР . На вкладке “СОБЫТИЯ” выбираем процедуру обработки событий “НАЖАТИЕ КНОПКИ”.
Нажмем на кнопочку с тремя точками и попадем в страшный редактор VBA. Там где окажется курсор напишем две строчки.
Private Sub FiltrKlient_Click()
‘Первая строчка задает в качестве источника записей для формы запрос с фильтрами по клиенту и за период.
Me.RecordSource = "ПродажиКлиентов_Ff"
‘Вторая строчка – обновляет данные в форме.
Me.Requery
End Sub
Аналогичную операцию проделаем с кнопкой для показа всех записей. Кнопку назовем ShowAll
В качестве источника записей в процедуре нажатия кнопки напишем запрос без фильтра (базовый запрос)
Me.RecordSource = "ПродажиКлиентов"
Me.Requery
Сохраним форму и посмотрим, что получилось, выбрав вид “форма”.
