Отчет, формируемом на основе запроса, выглядит так:

Пропуск 5
Пропуск 3
Пропуск 2
и т.д.

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

Пропуск 5, 3, 2 ..

Спасибо..

Just_SergНаверное, написать функцию, которая бежить по набору данных и "сцепляет" значения полей в одну строку...

Это единственный вариант?

barrabasеще можно использовать кристалрепорт вместо стандартного аксесовского (сам не пробовал но тут мелькало что он автоматом делает нужное количество полей для перекрестного запроса.)

Перекрестный запрос мне наверное не подойдет.. У меня всего одно поле в запросе.. Скажите, а где можно найти похожую функцию, чтобы хотя бы иметь представление о таинстве перевода столбца в строку?

barrabasпоиском нужно пользоваться
_____________________________________
А я хочу Брежнева, чтобы все было по прежнему... "Стволы"

Есть запрос, возвращающий значения, не входящие в список [ЗарВРее№].

SELECT Por.P
FROM Por
WHERE (((Por.P) Not In (SELECT [ImAMTS].[ЗарВРее№] FROM [ImAMTS] ) And (Por.P)<DMax("ЗарВРее№","ImAMTS")));

Для отчета нужно вывести результаты этого запроса не в столбец, а в строку..
Но почему-то Ваш пример функции у меня не работает.

Option Compare Database
Option Explicit


Public Function MyString(vName As String) As String
Dim rcs As DAO.Recordset
Dim dbs As DAO.Database
Dim str As String
Dim f As Boolean
f = True
\' str = vName & " "
Set dbs = CurrentDb
Set rcs = dbs.OpenRecordset("select ID from T2 where text2=\'" & vName & "\';")
Do While Not rcs.EOF
If f = True Then
str = str & CStr(rcs.Fields("ID").Value)
f = False
Else
str = str & ", " & CStr(rcs.Fields("ID").Value)
End If
rcs.MoveNext
Loop
MyString = str
Set dbs = Nothing
Set rcs = Nothing
End Function


Помогите пожалуйста разобраться..

Abrakadabra barrabasпоиском нужно пользоваться
_____________________________________
А я хочу Брежнева, чтобы все было по прежнему... "Стволы"

Есть запрос, возвращающий значения, не входящие в список [ЗарВРее№].

SELECT Por.P
FROM Por
WHERE (((Por.P) Not In (SELECT [ImAMTS].[ЗарВРее№] FROM [ImAMTS] ) And (Por.P)<DMax("ЗарВРее№","ImAMTS")));

Для отчета нужно вывести результаты этого запроса не в столбец, а в строку..
Но почему-то Ваш пример функции у меня не работает.

Option Compare Database
Option Explicit


Public Function MyString(vName As String) As String
Dim rcs As DAO.Recordset
Dim dbs As DAO.Database
Dim str As String
Dim f As Boolean
f = True
\' str = vName & " "
Set dbs = CurrentDb
Set rcs = dbs.OpenRecordset("select ID from T2 where text2=\'" & vName & "\';")
Do While Not rcs.EOF
If f = True Then
str = str & CStr(rcs.Fields("ID").Value)
f = False
Else
str = str & ", " & CStr(rcs.Fields("ID").Value)
End If
rcs.MoveNext
Loop
MyString = str
Set dbs = Nothing
Set rcs = Nothing
End Function


Помогите пожалуйста разобраться..

Это Ваш вариант без исправлений..

barrabasскачай и разберись
_____________________________________
А я хочу Брежнева, чтобы все было по прежнему... "Стволы"

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

barrabas_____________________________________
А я хочу Брежнева, чтобы все было по прежнему... "Стволы"

Спасибо Вам!!! ))))))))))))))))