Создание поля с множеством значений в одном поле т.е. преобразование столбца или строки с множеством значений в одном

@Oleg6719 · Регистрация: 22.12.2018

Студворк — интернет-сервис помощи студентам

Добрый день господа программисты.

дернул меня черт создать базу данных в Access до сегодняшнего дня вроде все получилось.

принялся сейчас делать отчет и отбирать для него значения через запросы
вот и понадобилось в одну строку т.е. поле объединить данные (которые могут увеличится по кол-во записей в поле через запятую)

как это сделать не могу понять т.к. не программист поэтому выставляю скриншоты
а там будем разбирается как сделать и куда вставить процедуру VBA т.к. скорее всего она и понадобится и как ее в базе сохранить.

@alvk · 18.01.2019, 09:28

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

но для меня опять будет трудность с модулем

Все ваши трудности от длинных названий и бесчисленных пробелов. Я бы на вашем месте сел и удалил все пробелы, а названия сократил. А чтобы не путать запросы и таблицы, то писал бы вместо:
Расчётные данные замеров запрос ---> зРасчДЗамеров
Расчётные данные замеров ---> тРасчДЗамеров

где з и т - запрос и таблица

Тогда ошибку в sql коде искать гораздо проще.

p.s. а ещё есть псевдонимы, можно названия таблиц до одной буквы сократить в запросе.

@Capi · 18.01.2019, 10:36

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

вот это я ввел....

Это опять не то, что было нужно. Код дан в #33.
Как индексы умудрились опять поменяться местами?
Как Вам удается вносить столько искажений, когда всего лишь надо скопировать 1:1?
Всего лишь надо нажать Ctrl-C, Ctrl-V.

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

поменял в коде местами две строки...

Какие? С какой целью?

@Oleg6719 · 18.01.2019, 13:26 **[ТС]**

я скопировал код получилась опять ошибка

@Oleg6719 · 18.01.2019, 13:44 **[ТС]**

ошибка

что опять не так

@Capi · 18.01.2019, 14:29

Oleg6719,

Мысль возникла.
Давайте начнем склеивать поля, начиная не с первого (индекс 0), а со второго (индекс 1).

Боюсь, сами не поменяете (хотя там всего один символ в двух местах надо заменить).
Поэтому вот код.
Попробуйте, пожалуйста.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Report_Open(Cancel As Integer)
 Dim S As String, _
     i As Byte
 With CurrentDb.OpenRecordset("методики к отчету_перекрестный")
  S = "=[" & .Fields(1).Name & "]"
  For i = 2 To .Fields.Count - 1
   S = S & " & "", "" & [" & .Fields(i).Name & "]"
  Next
 End With
 Поле.ControlSource = S
End Sub

@Oleg6719 · 18.01.2019, 15:27 **[ТС]**

Ура склеилось сейчас только понять надо как это работает спасибо большое (а этот способ как работать может только со стиркой или столбец тоже может объеденить

и да в перекрёстном запросе первое поле это ключ по которому определяется набор методик

@Capi · 18.01.2019, 15:37

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

Ура склеилось сейчас

Наконец-то...

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

а этот способ как работать может только со стиркой или столбец тоже может объеденить

Вы имеете в виду объединение значений одного поля нескольких записей?
Нет, этот способ не может.

Для этого нужна другая функция.
Поищите здесь по слову "конкатенация".

@Oleg6719 · 18.01.2019, 15:59 **[ТС]**

просто можно было убрать перекрестный запрос и оставить первую таблицу в столбик т.е. избавится от лишнего запроса т.к. разворот получился через 2 запроса делал специально чтобы развернуть но не учёл изменяемость кол-во столбцов поэтому и не прокатил простой способ через && названия столбцов сами меняются и нет конкретики т.к. нет ограничения по кол-во записей на данный момент 21 максимум а может и понадобится 100. еще раз спасибо сейчас буду разбирать код по функциям смотреть что есть что , чтобы понять как описывать такие вещи смому

@Capi · 18.01.2019, 16:39

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

просто можно было убрать перекрестный запрос и оставить первую таблицу в столбик

Это очень просто.
Показываю схематично, так как имен полей точно не знаю.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
 Dim S As String, _
     i As Byte
 With CurrentDb.OpenRecordset("SELECT Название FROM Справочник")
   Do Until .EOF
    S = S & ", " & .Fields(0)
    .MoveNext
   Loop
 End With
 Поле = Mid(S, 3)
End Sub

@Oleg6719 · 18.01.2019, 18:25 **[ТС]**

спасибо

@alvk · 19.01.2019, 09:10

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

спасибо

спасибо у нас кнопкой выражают. Странно, что лучший ответ нашёл, а кнопку нет, которая кстати рядом.

@Oleg6719 · 19.01.2019, 09:16 **[ТС]**

при нажатии этой кнопка спасибо происходит

так что пишет нет прав доступа к кнопке

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Oleg6719 2 / 2 / 0 Регистрация: 22.12.2018 Сообщений: 44

	Создание поля с множеством значений в одном поле т.е. преобразование столбца или строки с множеством значений в одном 16.01.2019, 11:31. Показов 6007. Ответов 51 Метки нет (Все метки) Добрый день господа программисты. дернул меня черт создать базу данных в Access до сегодняшнего дня вроде все получилось. принялся сейчас делать отчет и отбирать для него значения через запросы вот и понадобилось в одну строку т.е. поле объединить данные (которые могут увеличится по кол-во записей в поле через запятую) как это сделать не могу понять т.к. не программист поэтому выставляю скриншоты а там будем разбирается как сделать и куда вставить процедуру VBA т.к. скорее всего она и понадобится и как ее в базе сохранить. Миниатюры 0

@Oleg6719 2 / 2 / 0 Регистрация: 22.12.2018 Сообщений: 44
	18.01.2019, 13:26 [ТС]
	я скопировал код получилась опять ошибка Миниатюры 0

@Oleg6719 2 / 2 / 0 Регистрация: 22.12.2018 Сообщений: 44
	18.01.2019, 13:44 [ТС]
	ошибка что опять не так Миниатюры 0

@Oleg6719 2 / 2 / 0 Регистрация: 22.12.2018 Сообщений: 44
	18.01.2019, 15:27 [ТС]
	Ура склеилось сейчас только понять надо как это работает спасибо большое (а этот способ как работать может только со стиркой или столбец тоже может объеденить и да в перекрёстном запросе первое поле это ключ по которому определяется набор методик Миниатюры 0

@Oleg6719 2 / 2 / 0 Регистрация: 22.12.2018 Сообщений: 44
	18.01.2019, 15:59 [ТС]
	просто можно было убрать перекрестный запрос и оставить первую таблицу в столбик т.е. избавится от лишнего запроса т.к. разворот получился через 2 запроса делал специально чтобы развернуть но не учёл изменяемость кол-во столбцов поэтому и не прокатил простой способ через && названия столбцов сами меняются и нет конкретики т.к. нет ограничения по кол-во записей на данный момент 21 максимум а может и понадобится 100. еще раз спасибо сейчас буду разбирать код по функциям смотреть что есть что , чтобы понять как описывать такие вещи смому 0

@Oleg6719 2 / 2 / 0 Регистрация: 22.12.2018 Сообщений: 44
	18.01.2019, 18:25 [ТС]
	спасибо 0

@Oleg6719 2 / 2 / 0 Регистрация: 22.12.2018 Сообщений: 44
	19.01.2019, 09:16 [ТС]
	при нажатии этой кнопка спасибо происходит так что пишет нет прав доступа к кнопке Миниатюры 0

Создание поля с множеством значений в одном поле т.е. преобразование столбца или строки с множеством значений в одном

Решение