Выборка по интервалу дат

@zudogav · Регистрация: 20.11.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте. Копаюсь по интернету уже несколько дней, не могу найти ответ.
Есть таблица по которой создана форма, по каждому столбцу в форме предусмотрен поиск функцией fpoisk

Visual Basic

Sub fpoisk()
Dim s1, s2
Me.Refresh
s1 = "true "
s2 = "" & Me.Поле93
If Len(s2) > 0 Then
s1 = s1 & " and  дата like '*" & s2 & "*'"
End If

Visual Basic

Private Sub Поле93_Change()
S0 = "" & Me.Поле93
Call fpoisk
Me.Поле93.SelStart = Len(S0) + 1
End Sub

В таблице есть столбец "ДАТА", появилась необходимость отбора писем по интервалу между двух введеных дат.
Запрос мне сделать удалось: WHERE (((Письма.дата) Between [DateBegin] And [DateEnd]));

Как прикрутить это к форме, чтобы даты считывались из полей ввода?

Может возможно изменить функцию fpoisk, чтобы при изменении первого поля даты (DateBegin) сразу сортировалось на всё что больше введенного значения, а при вводе второго поля (DateEnd) отображался уже интервал между двумя датами.

Ещё есть вопросик, подскажите по коду VB, есть поле с введеной датой, нужно сделать всплывающее окошко с неким текстом как только это значение будет равно текущей дате.

Заранее благодарю.

@Kkarn · 11.12.2015, 12:35

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

Ещё есть вопросик, подскажите по коду VB, есть поле с введеной датой, нужно сделать всплывающее окошко с неким текстом как только это значение будет равно текущей дате.

1. На событие "После изменения" данного поля с датой вешаете код на проверку введенного значения на совпадение с текущей датой.
2. И если совпадает, то изменяете свойство ControlTipText данного поля на нужное вам сообщение о совпадении с текущей датой.
Это то, что первое в голову пришло. Правда, если подумать, то не совсем тот функционал получается, т.к. эта всплывающая подсказка будет выводиться только если навести курсор на элемент...

Добавлено через 7 минут
Как вариант, можно на совпадение дат прописать просто вывод MsgBox сообщения, да и все.

@Чумодан · 11.12.2015, 21:27

Попробуй изменить

Код

s1 = s1 & " and  дата like '*" & s2 & "*'"

На вот такую:

Код

s1 = s1 & " and  format([дата],'dd.mm.yyyy') like '*" & s2 & "*'"

@zudogav · 15.12.2015, 11:48 **[ТС]**

Помогите с интервалом дат, пожалуйста!

@texnik-san · 15.12.2015, 12:37

Извините, у вас поле [дата] какой имеет тип данных?

@zudogav · 15.12.2015, 12:58 **[ТС]**

тип данных "дата/время"

Вопрос по выбору строк в интервале дат, запрос у меня сделан и работает, ввожу в поля на форме две даты, по кнопке запускаю запрос, но результат открвывается в новом окне. Как сделать чтобы результат запроса применялся к строкам на форме?

@texnik-san · 15.12.2015, 13:50

Если речь о той же форме, в которой выполняется код, то

Visual Basic

1 2	Form.Filter = "условие" Form.FilterOn = True

Вместо слова условие нужно вставить условие отбора дат из того запроса, который у вас работает, причем обязательно из текста SQL, а не конструктора запросов (синтаксис разный). Кавычки оставить (они нужны).

Добавлено через 3 минуты
Если речь о вложенной форме в ту, в которой выполняется код, то

Visual Basic

1 2	Me.ИмяЭлементаВложеннойФормы.Form.Filter = "условие" Me.ИмяЭлементаВложеннойФормы.Form.FilterOn = True

И, наконец, если речь о просто о какой-то форме, открытой в данный момент, то

Visual Basic

1 2	Forms("ИмяФормы").Filter = "условие" Forms("ИмяФормы").FilterOn = True

@zudogav · 15.12.2015, 17:42 **[ТС]**

Сделал так, создал запрос filtrDATA

SQL

FROM Форма
WHERE (
[Форма].Дата
BETWEEN
([Forms]![Форма]![DateOt]) AND ([Forms]![Форма]![DateDO]) 
);

На форме два поля DateOt и DateDO. По нажатию кнопки:

Visual Basic

1
2
3

DoCmd.ApplyFilter "filtrDATE"
Me.Refresh
'Me.Requery

По промежутку дат фильтрует. Всем спасибо за помощь.
НО Есть один вопрос, как сделать чтобы этот фильтр не обнулял другие фильтры поиска по другим полям, функцию писал в начале. ПОМОГИТЕ с этим , Пожалуйста

@VinniPuh · 15.12.2015, 17:56

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

...чтобы этот фильтр не обнулял другие фильтры поиска по другим полям...

Я вот лично ищу интервал дат просто запросом.
Типа как в этом простеньком примере:

@texnik-san · 15.12.2015, 21:32

Я прошу прощения, но что делает ваша процедура (это не функция) я не поняла вообще. Ряд присваиваений текстовым переменным, которое ничем не заканчивается. Где вы увидели поиск в ней?

Добавлено через 6 минут
Я просто не понимаю, что именно вы просите "не обнулять".

Тем не менее, попробуйте вместо вашего кода этот:

Visual Basic

if Form.Filter>"" then
    Form.Filter = Form.Filter & " AND Дата BETWEEN [DateOt] AND [DateDO]"
  else
    Form.Filter = "Дата BETWEEN [DateOt] AND [DateDO]"
end if
Form.FilterOn = True

Добавлено через 2 минуты
Это по нажатию кнопки. Вместо вашего DoCmd.ApplyFilter

@alvk · 17.12.2015, 06:37

Visual Basic

if form.FilterOn and Form.Filter <>"" then
    Form.Filter = Form.Filter & " AND Дата BETWEEN [DateOt] AND [DateDO]"
  else
    Form.Filter = "Дата BETWEEN [DateOt] AND [DateDO]"
end if
Form.FilterOn = True

Немного дополню.

@texnik-san · 17.12.2015, 09:37

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

Немного дополню.

Логичное дополнение, но я специально не проверяю, был ли уже включен фильтр. Я поняла задачу так, что просят в любом случае не обнулять предыдущие фильтры.

@Kkarn 902 / 292 / 50 Регистрация: 02.12.2014 Сообщений: 1,229
	11.12.2015, 12:35	2
	Сообщение от zudogav Ещё есть вопросик, подскажите по коду VB, есть поле с введеной датой, нужно сделать всплывающее окошко с неким текстом как только это значение будет равно текущей дате. 1. На событие "После изменения" данного поля с датой вешаете код на проверку введенного значения на совпадение с текущей датой. 2. И если совпадает, то изменяете свойство ControlTipText данного поля на нужное вам сообщение о совпадении с текущей датой. Это то, что первое в голову пришло. Правда, если подумать, то не совсем тот функционал получается, т.к. эта всплывающая подсказка будет выводиться только если навести курсор на элемент... Добавлено через 7 минут Как вариант, можно на совпадение дат прописать просто вывод MsgBox сообщения, да и все. 0

@Чумодан 8 / 8 / 2 Регистрация: 21.12.2010 Сообщений: 51
	11.12.2015, 21:27	3
	Попробуй изменить Код s1 = s1 & " and дата like '" & s2 & "'" На вот такую: Код s1 = s1 & " and format([дата],'dd.mm.yyyy') like '" & s2 & "'" 0

@zudogav 4 / 4 / 1 Регистрация: 20.11.2014 Сообщений: 44
	15.12.2015, 11:48 [ТС]	4
	Помогите с интервалом дат, пожалуйста! 0

@texnik-san шапоклякистка 8-го дня 3680 / 2240 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	15.12.2015, 12:37	5
	Извините, у вас поле [дата] какой имеет тип данных? 0

@zudogav 4 / 4 / 1 Регистрация: 20.11.2014 Сообщений: 44
	15.12.2015, 12:58 [ТС]	6
	тип данных "дата/время" Вопрос по выбору строк в интервале дат, запрос у меня сделан и работает, ввожу в поля на форме две даты, по кнопке запускаю запрос, но результат открвывается в новом окне. Как сделать чтобы результат запроса применялся к строкам на форме? 0

@texnik-san шапоклякистка 8-го дня 3680 / 2240 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	17.12.2015, 09:37	12
	Сообщение от alvk Немного дополню. Логичное дополнение, но я специально не проверяю, был ли уже включен фильтр. Я поняла задачу так, что просят в любом случае не обнулять предыдущие фильтры. 0