ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / значение полей в ОТЧЕТЕ через запятую
23 сообщений из 23, страница 1 из 1
значение полей в ОТЧЕТЕ через запятую
    #32658610
OlegR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OlegR
Гость
Можно ли сделать в ОТЧЕТЕ такую фичу, чтобы значения выходили не в столбик,как обычно а через запятую в одном поле????

например для некого POLE

что то типа такого

dim ss as string
For i =1 to Dmax(POLE)
If (cc <> "") Then cc = cc & ", " & POLE(i) Else cc = POLE(i)
Next i

???????
...
Рейтинг: 0 / 0
20.08.2004, 12:05:56
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32658622
OlegR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OlegR
Гость
пояснение:

не объединение всех полей в одно поле (=[pole1]", "[pole2])
а чтобы для одного поля все значения выходили через запятую
типа: pole1знач1, pole1знач2, pole1знач3........
...
Рейтинг: 0 / 0
20.08.2004, 12:09:42
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32658667
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Приведи пример с реальными названиями, а не "pole1знач1"
...
Рейтинг: 0 / 0
20.08.2004, 12:23:35
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32658699
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
2 Vsevolod_V
Тебе реальные названия чем-то помогут?
Я за автора реальные названия приведу:
Таблица с полями Поле1, Поле2 и Поле3
В записях таблицы в Поле1 содержаться значения "поле1знач1", "поле1знач2" и "поле1знач3"
Дерзай, Всеволод

2 OlegR
Поиск по GetString тебе поможет

2 all
Пора фак писать :)
...
Рейтинг: 0 / 0
20.08.2004, 12:33:47
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32658711
OlegR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OlegR
Гость
есть таблица, в ней допустим поле name и его 10 строк/значений( Иванов Петров Сид.....),
если эту таблицу вывести в отчете то выглядет она будет так:

Иванов
Петров
Сидоров
и тд...

Возможно ли сделать чтобы выводилосб таким образо :
Иванов, Петров, сидоров,.....
????
...
Рейтинг: 0 / 0
20.08.2004, 12:37:28
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32658811
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
GetString если не надо обрабатывать значения и нужен только разделитель
в противном случае доп поле + цикл на VBA - до открытия отчёта
...
Рейтинг: 0 / 0
20.08.2004, 13:00:38
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32658958
OlegR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OlegR
Гость
Private Sub Report_Open(Cancel As Integer)

Dim rs As New ADODB.Recordset
Dim strSQL As String

strSQL = "Select pol From t1 "
rs.Open strSQL, CurrentProject.Connection


Report_r1.RecordSource = rs.GetString


rs.Close
Set rs = Nothing

End Sub

Чего то не получается, поправьте плиз.....
...
Рейтинг: 0 / 0
20.08.2004, 13:49:20
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32658980
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
За фразы типа
Чего то не получается
здесь принято бить ногами по лицу

Чего то не получается? Ну почини чего-нибудь.
Это так... советы на будущее. Как не надо задавать вопросы

Пытаюсь протелепатировать:
Report_r1.RecordSource = "=""" & rs.GetString & """"
...
Рейтинг: 0 / 0
20.08.2004, 13:55:51
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659080
OlegR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OlegR
Гость
2 Лох Позорный простите.........
прошу помощи, на картинке результат проги
...
Рейтинг: 0 / 0
20.08.2004, 14:17:57
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659100
Фотография kedzo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kedzo
Участник
OlegR2 Лох Позорный простите.........
прошу помощи, на картинке результат проги

сейчас тебе расскажут, что делают за скриншоты!!!
...
Рейтинг: 0 / 0
20.08.2004, 14:23:01
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659101
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
Тьфу блин, фигово я протелепятил

Ты куда эту строку пытаешься писать? В качестве источника записей для отчета??? Ну и чему ты удивляешься?

Можно ли сделать в ОТЧЕТЕ такую фичу, чтобы значения выходили не в столбик,как обычно а через запятую в одном поле
Вот и меняй либо Value, либо ControlSource у поля, а не у отчета.

З.Ы. В методе GetString можно задать разделитель для записей - вместо перевода строки запятую туда поставь
...
Рейтинг: 0 / 0
20.08.2004, 14:23:10
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659106
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
kedzoсейчас тебе расскажут, что делают за скриншоты!!!
Уже не могу :)
Я уже тихо радуюсь тому, что базу не приаттачили и даже не предложили по мылу выслать :)
...
Рейтинг: 0 / 0
20.08.2004, 14:24:43
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659129
OlegR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OlegR
Гость
Может я по мылу вышлю? )))))))))

проблема у меня, в этом офисе нет хелпа по VBA, мучаюсь я.....

простите.....
у меня еще есть ася.....%))
...
Рейтинг: 0 / 0
20.08.2004, 14:30:11
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659211
OlegR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OlegR
Гость
через запятую сделал вывод данных, а как теперь сделать так чтобы она выводилась в отчете???????
создал поле, присвоил ему это значение- ругается.....


Private Sub Report_Open(Cancel As Integer)

Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim string1 As String

strSQL = "Select pol From t1 "
rs.Open strSQL, CurrentProject.Connection
string1 = rs.GetString

string1 = Replace(string1, vbCr, ",", , , vbTextCompare)

ppp.value = "& string1 &" ??????????????????????????????7

rs.Close
Set rs = Nothing

End Sub
...
Рейтинг: 0 / 0
20.08.2004, 14:53:32
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659285
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
ppp.value = "& string1 &"
что есть это такое?
на каком языке это написано?
что в результате должно получится? по моему мнению - должна получиться строка ровно такого содержания: & string1 &
почему оно у тебя ругается - моя твоя не понимай.

присвоил ему это значение- ругается.....
буду пинать ногами

string1 = rs.GetString
string1 = Replace(string1, vbCr, ",", , , vbTextCompare)
буду пинать ногами, потому что
я писал чуть вышеВ методе GetString можно задать разделитель для записей - вместо перевода строки запятую туда поставь

и вообще буду пинать ногами. потому что
правила форума Рекомендуется:
Для повышения удобочитаемости сообщений - пользоваться специальными кодами для выделения слов (b, u, i, color) (но не злоупотреблять ими) и тегом форматирования исходных кодов src.
...
Рейтинг: 0 / 0
20.08.2004, 15:13:15
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659330
OlegR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OlegR
Гость
Вот вместо того , чтобы помочь человеку , с его проблемой, его пинают ногами, а он обратился за помощью( это я себя имею ввиду)

Лучше была бы конкретная помошь,чем пинания ногами....
...
Рейтинг: 0 / 0
20.08.2004, 15:26:04
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659349
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
Ну хорошо, уговорил.
Каков вопрос - таков и ответ.

авторприсвоил ему это значение- ругается.....
Ну так не присваивай ему это значение - не будет ругаться. Такая помощь тебя устроит?
Если нет - то сиди и жди телепятов, которые (даже не читая этот топик) скажут - как оно ругается, зачем оно ругается и почему оно ругается.

Играть с тобой в угадайку (типа "Скажи, такая ошибка?"- "Нет, не такая" - "А может такая?" - "Нет, и не такая") - извини, желания нету.
...
Рейтинг: 0 / 0
20.08.2004, 15:32:00
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659380
OlegR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OlegR
Гость
2 Лох Позорный , если не сложно... без пинков:)
как мне вывести значение string1 в отчет ( область данных)???
мои предположения:
создать какое, дать ему имя например: ppp
дальше ему надо присвоить значение string
то есть ppp.value = string1
на что access выдает ошибку: невозможно присвоить значение объекту

буду благодарен за конкретную помощь...
...
Рейтинг: 0 / 0
20.08.2004, 15:42:18
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659423
Ольга_Т
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ольга_Т
Участник
Если присваивать на событие On Format, то должно присвоиться.
...
Рейтинг: 0 / 0
20.08.2004, 15:51:35
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659429
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
на что access выдает ошибку: невозможно присвоить значение объекту
вывести значение string1 в отчет ( область данных)???Тогда логично будет использовать событие Format области данных (а не первоначально написанный Report_Open)
Т.е.
Код: plaintext
1.
2.
3.
4.
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
    Dim string1 As String
    string1 = .... 
    Me!ppp.value = string1
End Sub
Контрол должен быть свободным (т.е. в конструкторе св-во "Данные" пустое)

Если собранная строка не зависит от остальных данных (в области данных) - то имеет смысл собрать ее на открытии отчета, запомнить в переменную на уровне модуля, но присваивать все равно в ОбластьДанных_Format - дабы лишний раз рекордсеты не дергать
Если же строка зависит от области данных - то пересобирать каждый раз.
...
Рейтинг: 0 / 0
20.08.2004, 15:54:40
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659459
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey Sh
Участник
или задать для контрола Control Source
=функциявозвращающаянужнуюстроку()
...
Рейтинг: 0 / 0
20.08.2004, 16:03:18
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659549
OlegR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OlegR
Гость
Круто, результат радует глаз, всем спасибо!!
2 Лох Позорный :)
...
Рейтинг: 0 / 0
20.08.2004, 16:33:21
| Ответить | Цитировать | Написать  
значение полей в ОТЧЕТЕ через запятую
    #32659564
Shubnikov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shubnikov
Участник
2 ЛП

Преклоняюсь перед безграничным терпением !!!
...
Рейтинг: 0 / 0
20.08.2004, 16:39:14
| Ответить | Цитировать | Написать  
23 сообщений из 23, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / значение полей в ОТЧЕТЕ через запятую
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32658622&tid=1672294]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 72ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 228ms
total:  398ms
созд. / загр.: 398ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]