Печать отчета по датам

[and150382]

Здравствуйте!
Подскажите как можно сделать:

В таблице 1 столбец с датами.
Как напечатать отчет определенной даты?
Т.е. выбираешь дату из 1 колонки и только ее печатаешь.

Такое возможно?
Если да , то подскажите как реализовать?

[Wilex]

вообще в целом возможно, но для решения Вашего вопроса нужно немного больше информации, а в принципе делается запрос на выборку по выбранной вами дате (дату Вы предварительно должны выбирать в форме)

выложите вашу БД так проще будет что то советовать

[and150382]

Выкладываю базу.

qwerty112 посоветовал так

смотрите параметр WhereCondition у docmd.openreport

Но я не знаю что это такое))))
помогите разобраться

[Teslenko_EA]

Здравствуйте and150382.
В Вашем тексте как и в базе данных есть неточности которые не дадут конструкции стать работоспособной.
"..В таблице 1 столбец с датами.." - в БД нет таблицы с именем 1, очевидно подразумевается таблица - Таблица1,
но никаких "столбцов" с датами в ней нет.
Применительно к таблицам БД чаще используют термин не колонка/столбец,
а Поле которое может содержать данные определённого типа.
Измените текстовый формат поля Дата на формат Дата/время, только после замены можно говорить о датах
и выполнять над ними действия доступные датам.
Для решения Вашей задачи можно пользоваться многими способами. Одним из вариантов может быть следующий:
Поместите в модуль отчёта приведённые ниже строки кода и назначьте открытию отчёта -[Процедуру обработки событий]

Private Sub Report_Open(Cancel As Integer)
Const sQ = "SELECT [Время загрузки], [Номер заказа], [Загружено пикинг], " + _
"[Загружено вручную], [Количество палет выгружено], Переборка, Фильмаж, " + _
"[Загружено депот], Приемка, Подъем, Съем, [Выгр длин вилами], [Выгр вручную], " + _
"IIf([Кто разгружает]='временный персонал',[количество палет выгружено],'0') AS " + _
"палетвыгружено_врем_персонал, IIf(IsNull([Кто разгружает]),'0',[количество палет выгружено]) " + _
"AS палетвходд, [Съем реапро], [Развоз реапро] FROM Таблица1"
If Not IsLoaded("Производительность") Then
ElseIf IsDate(Forms("Производительность").Поле66) Then
    s = "#" + Format(Forms("Производительность").Поле66, "m\/d\/yyyy\#")
    s = " where Дата =" + s
End If
Me.RecordSource = sQ + s
End Sub
Function IsLoaded(ByVal sFormName$) As Boolean
If SysCmd(acSysCmdGetObjectState, acForm, sFormName) = 0 Then
ElseIf Forms(sFormName).CurrentView <> 0 Then
    IsLoaded = True
End If
End Function

Рекомендую перечитать учебник по MS Access, уделив внимание типам данных.
Успехов Вам.
Евгений.

[and150382]

Евгений спасибо большое!

Не подскажите хороший учебник по Access?

[duh_si]

Сообщение от and150382

Не подскажите хороший учебник по Access?

Геннадий гурвиц Microsoft_Access_2010_Разработка_пр иложений_на_конкретном_примере_2010
Сам сейчас сижу зачитываюсь

З.Ы Выложил бы здесь, да размер большой.. могу на почту скинуть, если есть желание