Access запросы caption и прочее

[AD]

Создал в аксесе кучу запросов которые выводят всего 1 число, работают. Теперь нужно вывести результаты запросов на общую форму, но как это сделать не знаю. Пробовал через отчеты, но там соурсе только один может быть. Как вариант решил сделать на vb, но тоже не знаю как. Сорри если слишком простые вопросы, но сам не могу победить.[/syntax]

[Andrev]

Сделай еще один запрос, который бы выводил все числа, получаемые из созданных уже запросов, а потом его и укажи, как источник данных для отчета.
select запрос1.*, запрос2.*, запрос3.* from запрос1, запрос2, запрос3.

[AD]

Сделал, только один косяк, если какой-то запрос не дает результата, то в отчете тоже пусто. Пробовал делать через iif, но не получается.

[Andrev]

Так ты ж говорил, что у тебя все запросы работают... Попробуй вместо iif функцию nz()

[AD]

SELECT IIf(IsNull(Count([код])),"0",(Count(*))) AS [Count-Код]
FROM карточка_home
GROUP BY карточка_home.факультет, карточка_home.специальности, карточка_home.[форма обучения], карточка_home.[база поступления]
HAVING (((карточка_home.факультет) Like "Эконом*") AND ((карточка_home.специальности) Like "Экономика*") AND ((карточка_home.[форма обучения]) Like "Сокра*") AND ((карточка_home.[база поступления])="Среднее"));
вот такой запрос, если есть записи, то получаю их число, если нет, то ничего не получаю, а хочется получить 0.
проверил запросы, если нет нужных записей то они не выводят ничего.

[Andrev]

Выкладывай mdb-шник - будем думать.

[AD]

вот сама база, со всеми моими потугами

[Andrev]

Хм... Вот так с ходу могу пока только один вариант предложить - на открытие отчета назначить такой код:

Код: Выделить всё

Private Sub Report_Open(Cancel As Integer)
Dim ctl As Control
If Me.HasData = 0 Then
For Each ctl In Me.Controls
  If ctl.ControlType = 109 Then ctl.ControlSource = "=0"
Next
End If
End Sub


Он принудительно загоняет в каждое поле ноль, если запрос не возвращает записей.

[Andrev]

Блин, люди, плюйте на меня! Я дурак. Написать-то написал, а вот проверить... Неверный, короче, код я выдал. Вот правильный:

Код: Выделить всё

Private Sub Report_Open(Cancel As Integer)
Dim ctl As Control
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset(CurrentDb.QueryDefs(Me.RecordSource).SQL)
If rst.RecordCount = 0 Then
For Each ctl In Me.Controls
  If ctl.ControlType = 109 Then ctl.ControlSource = "=0"
Next
End If
End Sub


В этом случае все пашет. Еще раз извиняюсь.