Разбить строки в Access 2010

@ads86 · Регистрация: 26.06.2017

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

Здравствуйте! Подскажите пожалуйста решение следующей задачи. Есть таблица с тремя полями (обозначение, наименование и применяемость). Пример в приложении. Как разбить поля по применяемости.
Спасибо за ответы

@Eugene-LS · 27.06.2017, 08:21

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

Как разбить поля по применяемости.

Термин "разбить" - не совсем понятен.
А нельзя-ли поподробнее?

@alvk · 27.06.2017, 08:28

А вот надо где? В экселе? В Акцесс только на примере, сам делать не буду.

@ads86 · 27.06.2017, 08:29 **[ТС]**

Ну однин документ входит в несколько приборов. Например крышка руиц1.2 входит и в руиц.12.22 отд и в руиц.13.23. Сейчас имеем таблицу с тремя полями. В одном общее обозначение, в другом общее наименование, а в третьем поле мемо перечислены приборы куда входят документы. Надо это мемо поле разбить по отдельным строкам.

Добавлено через 52 секунды
в access

@alvk · 27.06.2017, 08:43

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

в access

--->

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

на примере

@ads86 · 27.06.2017, 08:45 **[ТС]**

хорошо, буду рада любой помощи

shanemac51 · 27.06.2017, 08:58

задача СОСТАВ ИЗДЕЛИЙ обычно состоит из 2 таблиц
таб1 --справочник деталей/сборок

КОД1	обозначение	наименование
1	РУИЦ.432225.030 СБ	Индикатор. Сборочный чертеж
2	РУИЦ.441546.031;(01) отд
3	РУИЦ.441546.001 отд
4	РУИЦ.441461.012(02;03;04) отд
5	РУИЦ.441461.013(11;12) отд
6	РУИЦ.441546.010(08) отд
7	РУИЦ.441546.012;(09) отд
18	РУИЦ.442621.002 отд
19	РУИЦ.442621.003 отд
20	РУИЦ.442621.005 отд
21	РУИЦ.442621.006 отд
22	РУИЦ.442621.007 отд
23	РУИЦ.442621.009 отд

таб2 --таблица ВХОДИМОСТИ(куда, что сколько входит)

КОД2	КОД1	ЧТО ВХОДИТ	применяемость	ДЛЯ СПРАВКИ, в таблице не хранится)
1	1	2	1	РУИЦ.441546.031;(01) отд
2	1	3	1	РУИЦ.441546.001 отд
3	1	4	2	РУИЦ.441461.012(02;03;04) отд
4	1	5	2	РУИЦ.441461.013(11;12) отд
5	1	6	1	РУИЦ.441546.010(08) отд
13	1	14	1	РУИЦ.441546.039(06;07) отд
--
14	2	15	1	РУИЦ.441546.040(030) отд
15	2	16	1	РУИЦ.442292.057(15)(16) отд
16	2	17	1	РУИЦ.442621.001 отд
17	2	18	1	РУИЦ.442621.002 отд
--
18	3	19	1	РУИЦ.442621.003 отд
19	3	20	1	РУИЦ.442621.005 отд
--
20	18	21	1	РУИЦ.442621.006 отд
21	18	22	1	РУИЦ.442621.007 отд
22	18	23	1	РУИЦ.442621.009 отд

@alvk · 27.06.2017, 09:01

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

хорошо, буду рада любой помощи

что значит "хорошо"? выложите пример данных в файле акцесс

@Eugene-LS · 27.06.2017, 09:39

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

база

ну "молодчинка"!
Не связей, не форм ...
Вы предлагаете за вас всё сделать?
Тогда вам не сюда - вам во FreeLans!

Начните работать сами пожалуйста, а там ... (если возникнут вопросы) доброе сообщество и поможет.
На сём = End.

@ads86 · 27.06.2017, 09:47 **[ТС]**

Какие формы и связи! Я никому ничего не предлагаю. всю свою базу я не собираюсь кидать. Есть таблица с данными, которыми надо заполнить вторую таблицу, разбив поле мемо. Проблема именно в поле мемо, с помощью функции и запроса я разбила на отдельные ячейки....но тип был строка с пробелами и разделение прошло не верно, отделив не корректно. Не хотите не помогайте, я прям что тут так прошу. кучу примеров изучила,но именно такого не нашла, везде раздел по пробелу, по запятой... а тут конец строки. поищу еще

@Eugene-LS · 27.06.2017, 09:54

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

,но именно такого не нашла, везде раздел по пробелу, по запятой... а тут конец строки.

Тут смотрели?

@ads86 · 27.06.2017, 10:00 **[ТС]**

Вот как раз щас изучаю эту функцию

mobile · 27.06.2017, 10:05

Если правильно понял, то строк должно быть столько, сколько есть отдельных строчек в поле Применяемость. Смотрите ТаблицаNew и процедуру newRec в Module1

@Eugene-LS · 27.06.2017, 10:06

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

а тут конец строки. поищу еще

Поищите - точно не вредно будет ...

А вообще (насколько помню):
Константы:
vbLf = Конец Строки
vbCr = перевод каретки
vbCrLf = Всё вместе ...

Успехов!

@ads86 · 27.06.2017, 10:09 **[ТС]**

Да это оно самое!!!!!!!!!!!!!!СПАСИБО!!!!

сейчас еще все подробно изучу в процедуре. но результат однозначно тот!!!!

@alvk · 27.06.2017, 10:14

Пока могу предложить разрезать те, что с А группой запросов
Этот вырезает второе вхождение:

T-SQL

1
2

SELECT Таблица1.Код, Таблица1.Обозначение, IIf(IsError(Left([Применяемость],InStr(2,[применяемость],"А")-1))=True,0,Left([Применяемость],InStr(2,[применяемость],"А")-1)) AS Рез
FROM Таблица1

соответственно instr(3...) возьмёт третье.
что касается переноса строки, то я такого символа не знаю, может кто и подскажет. Во всяком случае пробел в split можете не пихать, без толку.

@ads86 · 27.06.2017, 10:45 **[ТС]**

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

@alvk · 27.06.2017, 10:47

вам проще будет их удалить после вставки.

@ads86 · 27.06.2017, 10:48 **[ТС]**

не думаю, там более 20 тыщ записей

@alvk · 27.06.2017, 10:49

да хоть миллион, какая разница?

@Eugene-LS 10471 / 5457 / 1375 Регистрация: 05.10.2016 Сообщений: 15,461
	27.06.2017, 08:21	2
	Сообщение от ads86 Как разбить поля по применяемости. Термин "разбить" - не совсем понятен. А нельзя-ли поподробнее? 0

@alvk 7397 / 4534 / 295 Регистрация: 12.08.2011 Сообщений: 14,021
	27.06.2017, 08:28	3
	А вот надо где? В экселе? В Акцесс только на примере, сам делать не буду. 0

@ads86 1 / 1 / 0 Регистрация: 26.06.2017 Сообщений: 58
	27.06.2017, 08:29 [ТС]	4
	Ну однин документ входит в несколько приборов. Например крышка руиц1.2 входит и в руиц.12.22 отд и в руиц.13.23. Сейчас имеем таблицу с тремя полями. В одном общее обозначение, в другом общее наименование, а в третьем поле мемо перечислены приборы куда входят документы. Надо это мемо поле разбить по отдельным строкам. Добавлено через 52 секунды в access 0

@alvk 7397 / 4534 / 295 Регистрация: 12.08.2011 Сообщений: 14,021
	27.06.2017, 08:43	5
	Сообщение от ads86 в access ---> Сообщение от alvk на примере 0

@ads86 1 / 1 / 0 Регистрация: 26.06.2017 Сообщений: 58
	27.06.2017, 08:45 [ТС]	6
	хорошо, буду рада любой помощи 0

@alvk 7397 / 4534 / 295 Регистрация: 12.08.2011 Сообщений: 14,021
	27.06.2017, 09:01	8
	Сообщение от ads86 хорошо, буду рада любой помощи что значит "хорошо"? выложите пример данных в файле акцесс 0

@Eugene-LS 10471 / 5457 / 1375 Регистрация: 05.10.2016 Сообщений: 15,461
	27.06.2017, 09:39	9
	Сообщение от ads86 база ну "молодчинка"! Не связей, не форм ... Вы предлагаете за вас всё сделать? Тогда вам не сюда - вам во FreeLans! Начните работать сами пожалуйста, а там ... (если возникнут вопросы) доброе сообщество и поможет. На сём = End. 0

@ads86 1 / 1 / 0 Регистрация: 26.06.2017 Сообщений: 58
	27.06.2017, 09:47 [ТС]	10
	Какие формы и связи! Я никому ничего не предлагаю. всю свою базу я не собираюсь кидать. Есть таблица с данными, которыми надо заполнить вторую таблицу, разбив поле мемо. Проблема именно в поле мемо, с помощью функции и запроса я разбила на отдельные ячейки....но тип был строка с пробелами и разделение прошло не верно, отделив не корректно. Не хотите не помогайте, я прям что тут так прошу. кучу примеров изучила,но именно такого не нашла, везде раздел по пробелу, по запятой... а тут конец строки. поищу еще 0

@Eugene-LS 10471 / 5457 / 1375 Регистрация: 05.10.2016 Сообщений: 15,461
	27.06.2017, 09:54	11
	Сообщение от ads86 ,но именно такого не нашла, везде раздел по пробелу, по запятой... а тут конец строки. Тут смотрели? 0

@ads86 1 / 1 / 0 Регистрация: 26.06.2017 Сообщений: 58
	27.06.2017, 10:00 [ТС]	12
	Вот как раз щас изучаю эту функцию 0

	27.06.2017, 10:49

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	27.06.2017, 10:05	13
	Сообщение было отмечено alvk как решение Решение Если правильно понял, то строк должно быть столько, сколько есть отдельных строчек в поле Применяемость. Смотрите ТаблицаNew и процедуру newRec в Module1 1

@Eugene-LS 10471 / 5457 / 1375 Регистрация: 05.10.2016 Сообщений: 15,461
	27.06.2017, 10:06	14
	Сообщение от ads86 а тут конец строки. поищу еще Поищите - точно не вредно будет ... А вообще (насколько помню): Константы: vbLf = Конец Строки vbCr = перевод каретки vbCrLf = Всё вместе ... Успехов! 0

@ads86 1 / 1 / 0 Регистрация: 26.06.2017 Сообщений: 58
	27.06.2017, 10:09 [ТС]	15
	Да это оно самое!!!!!!!!!!!!!!СПАСИБО!!!! сейчас еще все подробно изучу в процедуре. но результат однозначно тот!!!! 0

@ads86 1 / 1 / 0 Регистрация: 26.06.2017 Сообщений: 58
	27.06.2017, 10:45 [ТС]	17
	Единственное проверку надо сделать, чтоб пустые строки не вставлял....а так супер 0

@alvk 7397 / 4534 / 295 Регистрация: 12.08.2011 Сообщений: 14,021
	27.06.2017, 10:47	18
	вам проще будет их удалить после вставки. 0

@ads86 1 / 1 / 0 Регистрация: 26.06.2017 Сообщений: 58
	27.06.2017, 10:48 [ТС]	19
	не думаю, там более 20 тыщ записей 0

@alvk 7397 / 4534 / 295 Регистрация: 12.08.2011 Сообщений: 14,021
	27.06.2017, 10:49	20
	да хоть миллион, какая разница? 0

Разбить строки в Access 2010

Решение