sql запрос!)

[erika13]

Доброго времени суток))))))

Мой запрос:
SELECT Email.Код, Email.Текст, Email.Тема
FROM Email
WHERE (((Form1!Текст!Условие_выборки_от_т екст=Тема)));


Есть 1 таблица. Меня интересуют поля Email.Код, Email.Текст, Email.Тема. При нажатии на кнопку на форме присходит выполнение запроса 1

Private Sub Кнопка4_Click()
DoCmd.OpenQuery ("Запрос1")
End Sub

Вопрос в следующем) как написать правильно запрос чтобы происходила выборка по параметру, который содержится в поле Тема. Но поле содержит название и дату. Мне нужно, чтобы выборка происходила только по дате поля Тема, т.е. условие поиска содержится в строке, но не соответствует полностью строке.

[gluk_fm]

Добрый день.
Можно попробовать примерно так:

SELECT Email.Код, Email.Текст, Email.Тема
FROM Email
WHERE (((mid([forms]![имя формыъ![имя поля],1,10)=Тема)));

Если не совсем поняли посмотрите описание функции MID, НО возможно если у Вас формат поля ещё и дата, то необходимо ещё это значение преобразовать в дату.
Удачи

[Teslenko_EA]

Здравствуйте erika13.
Изменить SQL конструкцию запроса (или создать новый запрос) можно
обращаясь к QueryDef (объекту DAO) например так:

Private Sub Кнопка4_Click()
Const sQ = "SELECT Код, Текст, Тема FROM Email WHERE Тема = '"
Dim s$, qDef As QueryDef
s = Form1!Текст!Условие_выборки_от_текст & "'"
Set qDef = CurrentDb.QueryDefs("Запрос1")
qDef.SQL = sQ + s
Set qDef = Nothing
DoCmd.OpenQuery ("Запрос1")
End Sub

to gluk_fm: применение в предложенной Вами конструкции функции MID
может объясняться только преобразованием NULL в строку нулевой длины,
но конкатенация с помощью амперсанда делает то-же самое и без неё:

[forms]![имя формыъ![имя поля] & ""

тогда зачем она в конструкции?

Евгений.

P.S. erika13 для удобочитаемости выкладываемый код заключайте в тэги [соde] ... [/соde]
для этого на панели инструментов расположена кнопка #.

[Андрэич]

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

конструкции функции MID
может объясняться только преобразованием NULL в строку нулевой длины, но конкатенация с помощью амперсанда делает то-же самое и без неё:

[forms]![имя формыъ![имя поля] & ""

Я - понял всё. Поддерживаю

[erika13]

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

Здравствуйте erika13.
Изменить SQL конструкцию запроса (или создать новый запрос) можно
обращаясь к QueryDef (объекту DAO) например так:

Private Sub Кнопка4_Click()
Const sQ = "SELECT Код, Текст, Тема FROM Email WHERE Тема = '"
Dim s$, qDef As QueryDef
s = Form1!Текст!Условие_выборки_от_текст & "'"
Set qDef = CurrentDb.QueryDefs("Запрос1")
qDef.SQL = sQ + s
Set qDef = Nothing
DoCmd.OpenQuery ("Запрос1")
End Sub

to gluk_fm: применение в предложенной Вами конструкции функции MID
может объясняться только преобразованием NULL в строку нулевой длины,
но конкатенация с помощью амперсанда делает то-же самое и без неё:

[forms]![имя формыъ![имя поля] & ""

тогда зачем она в конструкции?

Евгений.

P.S. erika13 для удобочитаемости выкладываемый код заключайте в тэги [соde] ... [/соde]
для этого на панели инструментов расположена кнопка #.

Добрый день)
Спасибо большое все получилось, в результате происходит выборка, по параметру, который вводит пользователь.
Как я понимаю, в результате процедуры

Private Sub Кнопка4_Click()

переменной qDef передаются данные, которые вводит пользователь в качестве условия выборки.

Также существует запрос 1

SELECT Email.Код, Email.Тема, Email.Текст
FROM Email
WHERE Email.Тема Like "*" & [Поле_0] & "*";

который ищет в поле тема значение, которое введет пользователь.
Вопрос: получается, что запрос и процедура делает одно и тоже?
Но без процедуры не работает запрос. Я сейчас не понимаю что от чего зависит. И почему когда я весь кода VBA убираю в комментарии, все равно работает кнопка? И еще есть один косяк. При нажатии на кнопку появляется окно "Введите параметр Поле_0" иногда 2 иногда 3 раза. Получается, что программа не знает где взять это поле. Как быть? Подскажите пожалуйста!!!!!!

[alvk]

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

При нажатии на кнопку появляется окно "Введите параметр Поле_0" иногда 2 иногда 3 раза. Получается, что программа не знает где взять это поле. Как быть? Подскажите пожалуйста!!!!!!

Вы же сами написали это поле в запросе, а у нас спрашиваете где его взять?

[erika13]

Все получилось, всем спасибо)
Следующий вопрос))
В результате запроса SELECT, происходит обновление подчиненной формы, а также вывод в новом окне результата запроса. Необходимо сделать так, что бы результат выводился только в подчиненную форму, а в новом окне не открывался! HELP ME, PLEASE )))

[erika13]

Также существует задача, которую не знаю как решить. В результате запроса выводятся строки, в которых встречается значение, которое ввел пользователь. Таблица представляет собой информацию, о статусах отправленных писем, а именно: прочтено, не прочтено, доставлено, не доставлено, доставка отложена, ретранслирована, уведомление о прочтении письма. Необходимо реализовать анализ данной таблицы. То есть посчитать количество прочтеных, не прочтеных, доставленых ит.д. писем. Подскажите пожалуйста, как можно реализовать такой анализ.

[Serge_Bliznykov]

во-первых, если Вы позволяете вводить текст статуса ручками - то вы однозначно прокололись как разработчик БД (по хорошему, в поле статуса должен быть внешний ключ - ID, ссылка на таблицу справочник с различными статусами, или, хотя бы, числовое поле-код (1- не отправлено, 2-отправлено, но не доставлено, 3-отправлено, доставлено, но не прочтено, 4-прочтено и т.д. )

во-вторых, ответ на конкретно ваш вопрос (если я его правильно понял) такой:

select Статус, count(*) as CountStatus 
  from Вашатаблица
  where <тут, если надо, можете прописать условия отбора данных, период, например>
  group by Статус

[erika13]

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

во-первых, если Вы позволяете вводить текст статуса ручками - то вы однозначно прокололись как разработчик БД (по хорошему, в поле статуса должен быть внешний ключ - ID, ссылка на таблицу справочник с различными статусами, или, хотя бы, числовое поле-код (1- не отправлено, 2-отправлено, но не доставлено, 3-отправлено, доставлено, но не прочтено, 4-прочтено и т.д. )

[/CODE]

Благодарю за комментарии. Но не совсем согласна с определением моего прокола. Задумка базы данных: Есть таблица, которая каждый день обновляется на количество записей порядка 600 +-. Это импортированная таблица из outlook, содержащая информацию о входящих письмах. Пользователю нужно увидеть, что конкретно было доставлено, не доставлено и.т.д. по каждому отдельно взятому письму.
Идея с 1,2,3,4 - 5 БАЛЛОВ)

"Во-вторых,......" попробую)