ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
25 сообщений из 63, страница 2 из 3
  2  все
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567418
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
Joss,

мне сами как токовые поля подчинённой таблицы не нужны, нужно именно поле в основной форме, на основе тех строк и столбцов таблицы.
...
Рейтинг: 0 / 0
10.12.2017, 22:29
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567513
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Ну сделайте в конце-концов это поле. Вставьте его в форму, а я гляну, как его заполнить.
...
Рейтинг: 0 / 0
11.12.2017, 09:52
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567547
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Wawan2005вес которой достиг 1.7Gb

рискуете очень
пора подумать о переделке схемы или места хранения таблиц

---
архивируйте почаще
...
Рейтинг: 0 / 0
11.12.2017, 11:04
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567573
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
Joss,

Запускать форму "Данные", там по стрелке кнопка "Оперативные карточки" и там же то, что нужно
Спасибо.
...
Рейтинг: 0 / 0
11.12.2017, 11:40
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567639
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Извините, но я ничего не понял из Ваших хотелок. Вы хотите в одно поле запихать сразу 3 записи? или что?
...
Рейтинг: 0 / 0
11.12.2017, 13:50
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567646
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
Joss,
Да, именно, чтобы в одном поле были все записи из подчинённой таблицы согласно выборки по коду (3, 5, 10 и т.д.)
...
Рейтинг: 0 / 0
11.12.2017, 13:59
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567722
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Понял.
...
Рейтинг: 0 / 0
11.12.2017, 15:27
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567754
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Wawan2005,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
 Dim varArray, _
     i As Integer
 With CurrentDb.OpenRecordset(ПодчиненнаяФорма.Form.RecordSource)
  .MoveLast
  .MoveFirst
  varArray = .GetRows(.RecordCount)
  .Close
 End With
 Поле = ""
 For i = 0 To UBound(varArray, 2)
  Поле = Поле & vbCrLf & varArray(1, i)
 Next
 Поле = Mid(Поле, 3)


Идентификаторы "ПодчиненнаяФорма" и "Поле" замените на свои имена.
...
Рейтинг: 0 / 0
11.12.2017, 15:58
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567757
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Поправка:
Код: vbnet
1.
Поле = Поле & vbCrLf & varArray(0, i)
...
Рейтинг: 0 / 0
11.12.2017, 16:02
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567774
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
...
Рейтинг: 0 / 0
11.12.2017, 16:13
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567835
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
__MichelleWawan2005,

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
 Dim varArray, _
     i As Integer
 With CurrentDb.OpenRecordset(ПодчиненнаяФорма.Form.RecordSource)
  .MoveLast
  .MoveFirst
  varArray = .GetRows(.RecordCount)
  .Close
 End With
 Поле = ""
 For i = 0 To UBound(varArray, 2)
  Поле = Поле & vbCrLf & varArray(0, i)
 Next
 Поле = Mid(Поле, 3)


Идентификаторы "ПодчиненнаяФорма" и "Поле" замените на свои имена.
Или немножко по-другому:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
 Dim varArray(), _
     varArray2(), _
     i As Integer
 With CurrentDb.OpenRecordset(ПодчиненнаяФорма.Form.RecordSource)
  .MoveLast
  .MoveFirst
  varArray = .GetRows(.RecordCount)
  ReDim varArray2(.RecordCount)
  .Close
 End With
 For i = 0 To UBound(varArray, 2)
  varArray2(i) = varArray(0, i)
 Next
 Поле = Join(varArray2, vbCrLf)
...
Рейтинг: 0 / 0
11.12.2017, 17:14
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567841
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Так правильнее:
Код: vbnet
1.
 ReDim varArray2(.RecordCount - 1)
...
Рейтинг: 0 / 0
11.12.2017, 17:20
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567916
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
sdku,

Всё получилось, огромное спасибо.
...
Рейтинг: 0 / 0
11.12.2017, 18:40
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567921
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
__Michelle,

Большое спасибо за участие, но в Вашем способе я не очень понял, как мне соединить несколько полей, а ещё мне надо было вставить между ними текст (для удобочитаемости)
...
Рейтинг: 0 / 0
11.12.2017, 18:42
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567933
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
ПЕНСИОНЕРКА,

Спасибо за беспокойство, но база уже два раза достигала 2Gb, выкидывалось ненужное и оптимизировалось нужное, что делать в третий раз даже не знаю, но как вариант создам дочернюю базу "путей подъезда" и "план-схем квартир"
...
Рейтинг: 0 / 0
11.12.2017, 18:52
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567934
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
Конечный результат выглядит так


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Form_Current()
Dim rs As Recordset, myStr
'Выбирает форму и связывающие поля
Set rs = CurrentDb.OpenRecordset("select * from [Крточка учета подчиненная] where Код=" & Me.Код)
'задаём времянку
Do Until rs.EOF
'Прописывает какие поля надо собрать в кучу
myStr = myStr & rs!Место_Уст & " выходящая на " & rs!Направление & " здания, установлен " & rs!Прибор & ", в количестве - " & rs!Количество & " шт. "

rs.MoveNext
Loop
'собираем в поле   "П_Характер"
Me.П_Характер = myStr
End Sub
...
Рейтинг: 0 / 0
11.12.2017, 18:53
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567937
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Wawan2005я не очень понял, как мне соединить несколько полей,
а ещё мне надо было вставить между ними текст (для удобочитаемости)
Но ведь в Вашем примере, если правильно понимаю,
каждая запись подчиненной формы имеет только одно поле.
Вот они все и соединяются в подобие списка.
Если бы количество этих полей в каждой записи было иное, код бы поменялся совсем незначительно.
И текст между частями легко вставить.
...
Рейтинг: 0 / 0
11.12.2017, 18:56
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567940
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Wawan2005Конечный результат выглядит так
Только нет переносов строк.
...
Рейтинг: 0 / 0
11.12.2017, 19:02
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567948
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
__Michelle,

sdku сделал пример с переносом "& vbNewLine" я его убрал, мне как раз нужно слитно, все строки и столбцы

Вот так выглядела таблица

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Код	№№	Место_Уст	       Направление	        Количество	      Баланс	                Прибор
1	1	Кладовая	         тыл	                   1	                Нет	        "АРСПИ ""Струна-5"" БРО-5+ GSM"
1	2	Коридор	                 тыл	                   1	                Нет	        "АРСПИ ""Струна-5"" КВР GSM"
1	3	Входная дверь	         тыл	                   1	                Нет	        ИО 102-16/2
1	4	Кладовая	         тыл	                   1	                Нет	        Астра-512
1	5	Коридор	                 тыл	                   1	                Нет	        Астра-С
1	6	Гостинная	        фасад	                   1	                Нет	        Астра-512
1	7	Коридор	                фасад	                   1	                Нет	        Астра-512
1	8	Кухня                 	 тыл	                   1	                Нет	        Астра-512
1	9	Спальня	                фасад	                   3	                Нет	        Астра-512
1	10	Спальня	                 тыл	                   1	                Нет	        Астра-512


А мне надо было именно так, ну и ещё немножко добавлю попозже.

Кухня на тыл здания, установлен Астра-512 - 1 шт. Спальня на фасад здания, установлен Астра-512 - 3 шт. Спальня на тыл здания, установлен Астра-512 - 1 шт. Коридор на фасад здания, установлен Астра-512 - 1 шт. Входная дверь на тыл здания, установлен ИО 102-16/2 - 1 шт. Коридор на тыл здания, установлен АРСПИ "Струна-5" КВР GSM - 1 шт. Кладовая на тыл здания, установлен АРСПИ "Струна-5" БРО-5+ GSM - 1 шт. Коридор на тыл здания, установлен Астра-С - 1 шт. Кладовая на тыл здания, установлен Астра-512 - 1 шт. Гостиная на фасад здания, установлен Астра-512 - 1 шт.
...
Рейтинг: 0 / 0
11.12.2017, 19:22
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39567952
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
Wawan2005,

Вот, чтобы понятней стало, с учетом новых пожеланий:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
 Dim varArray(), _
     varArray2(), _
     i As Integer
 With CurrentDb.OpenRecordset("SELECT Место_Уст,Направление,Прибор,Количество " & _
                              "FROM [Крточка учета подчиненная] " & _
                              "WHERE Код=" & Me.Код)
  .MoveLast
  .MoveFirst
  varArray = .GetRows(.RecordCount)
  ReDim varArray2(.RecordCount - 1)
  .Close
 End With
 For i = 0 To UBound(varArray, 2)
  varArray2(i) = varArray(0, i) & " на " & varArray(1, i) & " здания, установлен " & _
                 varArray(2, i) & " - " & varArray(3, i) & " шт. "
 Next
 Поле = Trim(Join(varArray2))
...
Рейтинг: 0 / 0
11.12.2017, 19:38
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39568041
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Wawan2005....sdku сделал пример с переносом "& vbNewLine" я его убрал, мне как раз нужно слитно, все строки и столбцы...После объединения полей в одной записи в строке будет 25 символов,а в 10-20 ..250-500. Стесняюсь спросить: как Вы собираетесь её отображать?
...
Рейтинг: 0 / 0
12.12.2017, 00:28
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39568103
Фотография Joss
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joss
Участник
Прошу прощение за долгое отсутствие. Срочно нагрузили работой, да и сейчас заглянул сюда на пару минут, пока задача крутится.
Насколько я понял, проблема решена?
...
Рейтинг: 0 / 0
12.12.2017, 09:25
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39568358
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
Joss,

да получилось, уже пошёл дальше "ваять каменный цветок" искать новые загадки-)
...
Рейтинг: 0 / 0
12.12.2017, 14:43
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39569301
Wawan2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Wawan2005
Гость
sdku,

авторКухня на тыл здания, установлен Астра-512 - 1 шт. Спальня на фасад здания, установлен Астра-512 - 3 шт. Спальня на тыл здания, установлен Астра-512 - 1 шт. Коридор на фасад здания, установлен Астра-512 - 1 шт. Входная дверь на тыл здания, установлен ИО 102-16/2 - 1 шт. Коридор на тыл здания, установлен АРСПИ "Струна-5" КВР GSM - 1 шт. Кладовая на тыл здания, установлен АРСПИ "Струна-5" БРО-5+ GSM - 1 шт. Коридор на тыл здания, установлен Астра-С - 1 шт. Кладовая на тыл здания, установлен Астра-512 - 1 шт. Гостиная на фасад здания, установлен Астра-512 - 1 шт.


В выделеном тексте уже более 600 символов, насколько я помню, путём соединения полей/строк/таблиц, в одно поле влазит 255*255 =65к символов, то есть по моим подсчётам проблем быть не должно!
Спасибо за беспокойство.
...
Рейтинг: 0 / 0
13.12.2017, 23:25
| Ответить | Цитировать | Написать  
Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
    #39569319
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Wawan2005,
Я о том,что Вы не можете знать какую высоту поля задавать,чтоб увидеть весь текст-для каждой записи она будет своя (надо в записях менять высоту поля двигая другие элементы, что будет очень не красиво - по любому лишний гемор)
...
Рейтинг: 0 / 0
14.12.2017, 00:28
| Ответить | Цитировать | Написать  
25 сообщений из 63, страница 2 из 3
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вписать все значения строк, подчинённой таблицы, в одно поле формы?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39567639&tid=1611820]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 54ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 267ms
total:  424ms
созд. / загр.: 424ms
x
x
Закрыть


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