Запрос в Access за период - VBA

Узнай цену своей работы

Формулировка задачи:

Добрый день. Подскажите как решить задачку. Необходима выгрузка данных в excel по датам. По примеру ниже запрос выгружает записи по нужной ФИО, но по заданным датам в коде.
Не получается задать переменные для дат. Т.е. пользователь сам должен выбирать нужный ему диапазон. Заранее спасибо за помощь.

Решение задачи: «Запрос в Access за период»

textual
Листинг программы
Dim sqlt$, d1 As Date, d2 As Date
  d1 = InputBox("Дата больше", , Date - 4) 'например
  d2 = InputBox("Дата меньше", , Date)
  sqlt = "select * FROM Таблица1 WHERE [fio] like '*" & t & "*' And [data]>#" _
    & Format$(d1, "MM\/DD\/YYYY") & "# and [data]<#" & Format$(d1, "MM\/DD\/YYYY\#")

Оцени полезность:

5   голосов , оценка 4.2 из 5