Отчет

[Gul'ka]

Здраствуйте уважаемы программисты.
Мне нужна ваша помощь, дело в том, что у меня возникла проблемка с отчетом.
Мне нужно, принажатии на кнопку (происходит процедура, которая считает количество квартир в нужном доме.) После процедуры, должен выводится отчет, но данные должны выводится в строчку, т.е. если квартир с 1 по 100, то и должно идти все в строчку, после того как заканчивается строчка она должна перейти на другую и продолжать.
Например: квартиры с 1-10
1 | 2 |3|4|5|6|
7 | 8 |9|10|
Заранее, огромное спасибо за помощь.

[Андрэич]

Сообщение от Gul'ka

данные должны выводится в строчку, т.е. если квартир с 1 по 100, то и должно идти все в строчку, после того как заканчивается строчка она должна перейти на другую и продолжать.
Например: квартиры с 1-10
1 | 2 |3|4|5|6|
7 | 8 |9|10|

С этого места непонятно. Файл базы (с тестовыми данными) можете выложить? И (или) нарисовать, как должно быть?

[Андрэич]

Непрерывный ряд квартир с 1-й:
For i=1 To CInt(Колич)
Debug.Print i & ","
Поле=Поле & i & ","
Next i
Debug.Print Поле.Value

[Myhaylo]

Используйте подчинённый отчёт: например, посмотрите

http://programmersforum.ru/showthread.php?t=210321

[Gul'ka]

[QUOTE=Андрэич;1098495]С этого места непонятно. Файл базы (с тестовыми данными) можете выложить? И (или) нарисовать, как должно быть?[/QUOT]
Здраствуйте, смотрите, делается запрос, если в доме с всего 5 квартир, то в обычном отчете оно выводится:
№
1
2
3
4
5
А мне нужно
1 | 2 | 3 | 4 | 5 |
Вот так, а если места нет(например, квартир150) то он должен переходить на следующую строчку
И спасибо огромное за внимание)

[Gul'ka]

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

Используйте подчинённый отчёт: например, посмотрите

http://programmersforum.ru/showthread.php?t=210321

Здраствуйте, извините но я не могу сделать подчинненую форму, т.к. мне нужно что бы выводилось не через запятую, а с границей, вот.
смотрите, делается запрос, если в доме с всего 5 квартир, то в обычном отчете оно выводится:
№
1
2
3
4
5
А мне нужно
1 | 2 | 3 | 4 | 5 |
А если квартир больше, (допостим 150) то оно должно переходить на следующую строчку.

[Андрэич]

Сообщение от Gul'ka

нужно что бы выводилось не через запятую, а с границей, вот.
смотрите, делается запрос, если в доме с всего 5 квартир, то в обычном отчете оно выводится:
№
1
2
3
4
5
А мне нужно
1 | 2 | 3 | 4 | 5 |
А если квартир больше, (допостим 150) то оно должно переходить на следующую строчку.

Понял очень примерно.
1. Выложите код процедуры и, если есть, макет отчета.
2. Самое лучшее - объясните, для чего это нужно. Возможно, найдётся более оптимальный вариант решения, чем тот, который видите вы

[Андрэич]

А ещё лучше - выложите файл с базой (в формате 2003). Чтобы делать не "наощупь" и в не "догадалки"

[Gul'ka]

Сообщение от Андрэич

Понял очень примерно.
1. Выложите код процедуры и, если есть, макет отчета.
2. Самое лучшее - объясните, для чего это нужно. Возможно, найдётся более оптимальный вариант решения, чем тот, который видите вы

Код процедуры:
SELECT Список_2.Кв, Список_2.Улица, Список_2.Дом INTO Q_list_print_2
FROM Список_2
GROUP BY Список_2.Кв, Список_2.Улица, Список_2.Дом
HAVING (((Список_2.Улица)=[Forms]![ГлавнаяФорма]![Улица]) AND ((Список_2.Дом)=[Forms]![ГлавнаяФорма]![Дом]))
ORDER BY Список_2.Кв;
Спасибо за внимание)

[Teslenko_EA]

Здравствуйте Gul'ka.
Возможно Вам не обязательно помещать номера квартир в разные ячейки(?),
а сформировать строку с разделёнными номерами можно подобной функцией:

Function stringRoomNumbers$(v1$, v2$)
Const sQ1 = "SELECT distinct Кв FROM Список_2 WHERE Улица =", sQ2 = " AND  Дом =", sQ3 = " ORDER BY Кв"
'при использовании текстовых значений костанты должны выглядеть так
'Const sQ1 = "SELECT distinct Кв FROM Список_2 WHERE Улица ='", sQ2 = "' AND  Дом ='", sQ3 = "' ORDER BY Кв"
Dim cn As ADODB.Connection, rs As New ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs = cn.Execute(sQ1 + v1 + sQ2 + v2 + sQ3)
If Not rs.EOF Then stringRoomNumbers = rs.GetString(, , , " | ")
If rs.State = 1 Then rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Function

и применять её разместив в качестве источника данных поля выражение:
=stringRoomNumbers([Forms]![ГлавнаяФорма]![Улица] & ""; [Forms]![ГлавнаяФорма]![Дом] & "")

"..должно переходить на следующую строчку.." - задаётся многостросностью в формате поля:
Поведение по Enter = Перевод строки

Евгений.