Добрый день, уважаемые гуру.
Подскажите, пожалуйста в таком вопросе:

Есть таблица "СКЛАД" с полями "Дата выгрузки" "ИмяДляВыгрузки" "ОКЕИ" и т.д.
Поле "Дата выгрузки" - формата Дата, краткий формат даты.
Есть форма, которая должна формировать отчет в Excell из данных этой таблицы на основе шаблона.
Экспорт данных в Excell идет по нажатию кнопки:

+

Private Sub Кнопка1_Click() Dim app As Object Dim XLT As Object Dim newrow As Object Dim strDOT As String Dim MyTable As DAO.Recordset Dim i As Integer Me.Refresh 'Открываем эксель, в нем книгу на основе шаблона Set app = CreateObject("Excel.Application") app.Visible = True strDOT = CurrentProject.Path & "\" & "Шаблоны\MX-1.xltx " Set XLT = app.Workbooks.Open(strDOT) 'Создаем набор записей Set MyTable = CurrentDb.OpenRecordset("SELECT [СКЛАД].[ИмяДляВыгрузки], [СКЛАД].[Серия], [СКЛАД].[ОКЕИ], [СКЛАД].[Дата выгрузки] FROM [СКЛАД] WHERE ([СКЛАД].[Дата выгрузки]=[Forms]![СКЛАД - Отчет MX-1]![ФормаМХ-1ДатаВыгрузки]);") i = 29 Rowss = 1 'Цикл по нашему набору записей Do While Not MyTable.EOF 'смотрим, если строк больше чем мы задали в шаблоне (строк непосредственно выделенных под данные в шаблоне) If Rowss >= 19 Then 'то добавляем строку XLT.Worksheets("стр1").Rows(Rowss).Insert 'не забываем, как называется наш лист в Excel в шаблоне(в нашем случае - "стр1", если по другому, то изменяем) 'Запомним нашу строку Set newrow = XLT.Worksheets("стр1").Rows(Rowss) 'и вставим туда копию предыдущей строки 'для того если вдруг у вас там есть объединенные ячейки или какие-то нужные данные 'так как новая строка создастся без всяких объединений и значений XLT.Worksheets("стр1").Rows(Rowss - 1).Copy newrow Rowss = Rowss + 1 End If 'Начиная с 29-ой строки вставляем в соотв-ие столбцы соотв-ие значения из нашего набора записей app.Parent.Range("d" & i).SELECT app.Parent.ActiveCell.FormulaR1C1 = CStr(Nz(MyTable.Fields("[ИмяДляВыгрузки]"), "")) app.Parent.Range("e" & i).SELECT app.Parent.ActiveCell.FormulaR1C1 = CStr(Nz(MyTable.Fields("[Серия]"), "")) app.Parent.Range("i" & i).SELECT app.Parent.ActiveCell.FormulaR1C1 = CStr(Nz(MyTable.Fields("[ОКЕИ]"), "")) i = i + 1 MyTable.MoveNext Loop MyTable.Close End Sub

Мне нужно, чтобы я вбил в поле формы дату и сформировался отчет с товарами, загруженными на склад только в данный день. Но запрос не срабатывает, по-видимому он не может взять данные из формы

SELECT [СКЛАД].[ИмяДляВыгрузки], [СКЛАД].[Серия], [СКЛАД].[ОКЕИ], [СКЛАД].[Дата выгрузки] FROM [СКЛАД] WHERE ([СКЛАД].[Дата выгрузки]=[Формы]![СКЛАД - Отчет MX-1]![ФормаМХ-1ДатаВыгрузки])

Если же в условиях запроса поставить WHERE ([СКЛАД].[Дата выгрузки]=Date() то выгрузка на сегодня происходит, т.е. загвоздка как я понял именно в том что запрос не может взять дату из формы.

Помогите пожалуйста, составить правильный запрос, я в аксессе совсем никакой.

http://www.sql.ru/forum/1084579/vyborka-dannyh-iz-tablicy-po-date-vvedennoy-v-forme