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

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

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

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

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

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

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

shanemac51 · 17.01.2019, 15:59

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

по крайней мере здесь у вас 390 символов, а может и больше ---функция не сработает

пример через рабочую таблицу

причем можно выбрать к примеру только задачи
--некого года
--некой службы или цеха
....

shanemac51 · 17.01.2019, 16:03

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

"Имя перекрестного запроса" замените на свое.

может не сработать, если методичек(общее количество в разных задачах) будет более 255

@Capi · 17.01.2019, 16:08

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

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

"Имя перекрестного запроса" замените на свое.

может не сработать, если методичек(общее количество в разных задачах) будет более 255

Что именно может не сработать? Замена имени?

shanemac51 · 17.01.2019, 16:10

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

Что именно может не сработать?

есть ограничение на количество столбцов в перекрестном запросе --посмотрите Спецификацию

Атрибут		Максимальное значение
Количество установленных связей		32 на одну таблицу за вычетом количества индексов этой таблицы, созданных для полей или сочетаний полей, которые не участвуют в связях *
Количество таблиц в запросе		32 *
Количество соединений в запросе		16 *
Количество полей в наборе записей	***	255
Размер набора записей		1 ГБ
Ограничение сортировки		255 символов в одном или нескольких полях
Количество уровней вложенности запросов		50 *

@Capi · 17.01.2019, 16:16

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

есть ограничение на количество столбцов в перекрестном запросе --посмотрите Спецификацию

Мне-то это зачем?

На количество столбцов (полей, вообще-то) ограничение есть не только для перекрестного запроса.

Если перекрестный запрос выдает результат, то очевидно, что в ограничения он не уперся.

И к чему эта табличка, какое отношение она имеет к задаче ТС? И, тем более, к моему решению?
Тогда еще и правила создания имен приведите и все прочие правила, чего уж мелочиться.

shanemac51 · 17.01.2019, 16:19

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

Если перекрестный запрос выдает результат, то очевидно, что в ограничения он не уперся.

на отладочной базе --- естественно
а на реальной ---это под вопросом

@Capi · 17.01.2019, 16:49

Без комментариев.

@Capi · 17.01.2019, 16:50

Oleg6719,

Небольшое упущение - забыты запятые.
Исправляю:

Visual Basic
1
2
3
4
5
6
........................
' вместо
   S = S & " & [" & .Fields(i).Name & "]"
' нужно
   S = S & " & "","" & [" & .Fields(0).Name & "]"
........................

@Oleg6719 · 17.01.2019, 19:43 **[ТС]**

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

@Oleg6719 · 17.01.2019, 20:01 **[ТС]**

походу где-то напортачил ошибка требует значение 1

@Oleg6719 · 17.01.2019, 20:06 **[ТС]**

вот sql запроса перекрестного

@Capi · 17.01.2019, 20:19

Oleg6719,

Вы код скопировали неверно.
Перед For должна быть строка

Visual Basic
1
      S = "=[" & .Fields(0).Name & "]"

А у Вас что -то такое, чего у меня в этом месте не было.
Это, похоже, прежняя строка из цикла For, которую надо было дополнить запятыми.

Может, еще где напутали, сейчас могу не заметить - смотрю с планшета.

Над кодом в сообщении справа есть кнопка "Выделить код",
воспользуйтесь для точного копирования.
И не забудьте внести правку для добавления запятых.

Думаю, достаточно заменить Вашу строку перед For на приведенную здесь.
Остальное вроде нормально.

Нет. Не нормально.
В строке после For должен быть индекс i, а у Вас 0.
А в строке перед For индекс должен быть 0, а у Вас - i.

Скопируйте, как следует.

@Capi · 18.01.2019, 01:18

Oleg6719,

Обнаружила у Вас четвертую ошибку:
в CurrentDb.OpenRecordset("методики к отчету_перекрестный") кавычки нужны, а не квадратные скобки.
Именно эта ошибка и порождает Ваше сообщение.

Короче, вот код.
Скопируйте, пожалуйста, без малейших изменений.
Справа над кодом - "Выделить код".

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(0).Name & "]"
  For i = 1 To .Fields.Count - 1
   S = S & " & "", "" & [" & .Fields(i).Name & "]"
  Next
 End With
 Поле.ControlSource = S
End Sub

И еще.
Выкладывайте свои коды текстом, а не картинками.

@alvk · 18.01.2019, 03:26

Хоть кто-то этот китайский понял.

@Oleg6719 · 18.01.2019, 06:57 **[ТС]**

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 = S & " & [" & .Fields(i).Name & "]"
  For i = 1 To .Fields.Count - 1
    S = S & " & "","" & [" & .Fields(0).Name & "]"
  Next
 End With
 Поле.ControlSource = S
End Sub

вот это я ввел и получилось вот это на скриншотах
по отчету перекрестному вот

SQL
1
2
3
4
5
TRANSFORM LAST([методики к отчету].[Наименование методики измерения]) AS [Last-Наименование методики измерения]
SELECT [методики к отчету].[Сравнения со справочником].[Номер протокола]
FROM [методики к отчету]
GROUP BY [методики к отчету].[Сравнения со справочником].[Номер протокола]
PIVOT [методики к отчету].[Наименование методики измерения];

shanemac51 · 18.01.2019, 07:48

решения
--табличное
--отчетом, без перекрестного запроса(группировка с основной таблицы)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Compare Database
Option Explicit
Dim s
Private Sub ЗаголовокГруппы0_Format(Cancel As Integer, FormatCount As Integer)
s = ""
Me.ЗаголовокГруппы0.Visible = False
End Sub
 
Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
s = s & ", " & Me.Поле2
Me.ОбластьДанных.Visible = False
End Sub
 
Private Sub ПримечаниеГруппы1_Format(Cancel As Integer, FormatCount As Integer)
Me.Поле9 = Mid(s, 3)
End Sub

@Oleg6719 · 18.01.2019, 07:53 **[ТС]**

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

shanemac51 · 18.01.2019, 07:56

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

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

это к каком варианте решения(моем или Capi)

@Oleg6719 · 18.01.2019, 08:08 **[ТС]**

shanemac51 спасибо интересный вариант через таблицу
для этого нужно сделать запрос на обновление таблицы, которая будет заполнятся и данные должны в ней будут каждый раз меняться
но для меня опять будет трудность с модулем, т.к. пока я еще не могу разобраться, что данная абракадабра означает.

но буду пытаться

shanemac51 · 18.01.2019, 08:13

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

shanemac51 для меня опять будет трудность с модулем т.к. пока я еще не могу разораться что данная аброкадабра означает

когда-то вы и читать не умели и таблицы умножения не знали

----научились же, а это не сложнее

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр 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 и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

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

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

@Capi Модератор 6231 / 2909 / 708 Регистрация: 12.06.2016 Сообщений: 7,839
	17.01.2019, 16:49
	Без комментариев. 0

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

@Oleg6719 2 / 2 / 0 Регистрация: 22.12.2018 Сообщений: 44
	17.01.2019, 20:01 [ТС]
	походу где-то напортачил ошибка требует значение 1 Миниатюры 0

@Oleg6719 2 / 2 / 0 Регистрация: 22.12.2018 Сообщений: 44
	17.01.2019, 20:06 [ТС]
	вот sql запроса перекрестного Миниатюры 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,383
	18.01.2019, 03:26
	Хоть кто-то этот китайский понял. 0

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

@Oleg6719 2 / 2 / 0 Регистрация: 22.12.2018 Сообщений: 44
	18.01.2019, 08:08 [ТС]
	shanemac51 спасибо интересный вариант через таблицу для этого нужно сделать запрос на обновление таблицы, которая будет заполнятся и данные должны в ней будут каждый раз меняться но для меня опять будет трудность с модулем, т.к. пока я еще не могу разобраться, что данная абракадабра означает. но буду пытаться 0

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

Решение