Уникальные значения в строках

[erika13]

Размышления....у базы данных появились амбиции...) Для нормальной работы базы данных необходима четкая настройка оутлука. Мне нужен раздел на форуме Microsoft Outlook..)

[Teslenko_EA]

Здравствуйте erika13.
".. модифицировать запрос и в некоторых случаях, (например, "не прочтено") показал поля для них.."
Ваша задача с отображением дополнительных полей разрушит конструкцию:
SELECT StatusEmail AS ["статус"], count(*) AS количество ...
т.к. она изменит значение count(*) AS количество для группировки по полю статус
на значение с группировкой по дополнительным полям.
Евгений.

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

[erika13]

Как вывести результат запроса:

SELECT Email.Код, Email.Тема, Email.Текст, Email.Тема, Email.Отимя, Email.Комуимя
FROM Email
WHERE (((Email.Тема) Like "*" & [Forms]![Form2]![Поле5] & "*"));

не в новое окно, а в существующее поле на форме("подчиненная форма Email")?

Обновление запроса привязано кнопке

Private Sub Êíîïêà7_Click()
DoCmd.OpenQuery ("SELECT")
Me.ïîä÷èíåííàÿ_ôîðìà_Email.Requery

[Teslenko_EA]

Здравствуйте erika13.
"..вывести результат запроса .. в существующее поле.." - если понимать Ваши слова буквально - задача не разрешима
поле отображает одно значение, а у запроса как видно их больше. Если же запрос является источником для подчинённой формы
в существующем виде его достаточно обновить командой Requery.
Но в Вашем коде эта команда выполняется не верно, Вы обращаетесь к контролу (Subform) расположенному
на родительской форме, а следует обращаться к форме расположенной в нём:
Me.ïîä÷èíåííàÿ_ôîðìà_Email.Form.Req uery
Или подключать к подчинённой форме в качестве источника сформированную SQL конструкцию:

Private Sub Кнопка7_Click()
Const sQ = SELECT Код, Тема, Текст, Тема, Отимя, Комуимя FROM Email WHERE Тема Like '*'"
Dim s$
s = Поле5 & ""
Me.КонтролSubform.Form.RecordSource = sQ + s + "'*'"
...

Успехов Вам.
Евгений.

P.S. совет: для правильного отображения кириллических символов при копировании в VBA включайте русскую раскладку.

[erika13]

Добрый день!

Если же запрос является источником для подчинённой формы
в существующем виде его достаточно обновить командой Requery.

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

[Myhaylo]

Может быть, я, конечно, что не так поняла, однако, почему просто не написать (в подпрограмме обработки события "Нажатие кнопки" для кнопки "Выборка"):

DoCmd.OpenForm "Form1"

A?

[erika13]

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

Может быть, я, конечно, что не так поняла, однако, почему просто не написать (в подпрограмме обработки события "Нажатие кнопки" для кнопки "Выборка"):

DoCmd.OpenForm "Form1"

A?

В этом случае еще раз открывается Form2 (основная форма).

Private Sub Кнопка7_Click()
DoCmd.OpenQuery ("SELECT")
DoCmd.OpenForm "Form1"
Me.Form.[Form1].Requery
Me.Form.[Внедренный34].Requery
End Sub

[Myhaylo]

Нет:

Private Sub Кнопка7_Click()
DoCmd.OpenForm "Form1"
End Sub

[erika13]

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

Нет:

Private Sub Кнопка7_Click()
DoCmd.OpenForm "Form1"
End Sub

в этом случае открывается Form1, которая напоминает Form2, но не содержит вкладку статистические данные

[Myhaylo]

Простите, но Вы именно так и заказывали:

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

сделать так, чтобы запрос выполнялся, а результат запроса выводился в Form1

Уточните, пожалуйста, что же именно Вам нужно...