Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Заполнение таблицы средствами VBA или запросом / 9 сообщений из 9, страница 1 из 1
21.01.2016, 17:53
    #39152532
Гость1268
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение таблицы средствами VBA или запросом
Есть таблица:
КодНомер ЗаказаНаименованиеКод1Код21Х1ХХХ002 ХХХ1003 ХХХ2004 ХХХ3005 ХХХ4006Х2ХХХ007 ХХХ008 ХХХ009Х3ХХХ0010 ХХХ0011 ХХХ0012 ХХХ0013Х4ХХХ0014Х5ХХХ0012 ХХХ0012 ХХХ0012 ХХХ00
Нужен запрос или программа которая обработает таблицу и даст результат вида!

КодНомер ЗаказаНаименованиеКод1Код21Х1ХХХ012 ХХХ1013 ХХХ2014 ХХХ3015 ХХХ4016Х2ХХХ067 ХХХ068 ХХХ069Х3ХХХ0910 ХХХ0911 ХХХ0912 ХХХ0913Х4ХХХ01314Х5ХХХ01412 ХХХ01412 ХХХ01412 ХХХ014
Помогите пожалуйста...
...
Рейтинг: 0 / 0
21.01.2016, 18:13
    #39152556
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение таблицы средствами VBA или запросом
Гость1268,

это весьма похоже не екселевскую таблицу --там это нормальная ситуация
...
Рейтинг: 0 / 0
21.01.2016, 18:18
    #39152561
Гость1268
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение таблицы средствами VBA или запросом
ПЕНСИОНЕРКА,

Угу :(
Экселевская и есть... Теперь мне ее нужно заполнить, а как не знаю.
...
Рейтинг: 0 / 0
21.01.2016, 19:26
    #39152585
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение таблицы средствами VBA или запросом
E2 = ЕСЛИ(B2="";B1;A2)
И растянуть...
...
Рейтинг: 0 / 0
21.01.2016, 19:26
    #39152587
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение таблицы средствами VBA или запросом
Пардон, = ЕСЛИ(B2="";E1;A2)
...
Рейтинг: 0 / 0
21.01.2016, 20:15
    #39152617
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение таблицы средствами VBA или запросом
Гость1268,
импортируете таблицу в Access
(Например, таблица t1)

и незатейливый запрос, использующий функцию в общем модуле
Код: sql
1.
2.
3.
SELECT t1.Код, t1.[Номер Заказа], t1.Наименование, t1.Код1, fff([Номер Заказа],[Код]) AS Код2
FROM t1
ORDER BY t1.Код;


функция fff
Код: vbnet
1.
2.
3.
4.
5.
6.
Option Compare Database
Public n0

Function fff(n1, n)
If Not IsNull(n1) Then fff = n: n0 = n Else fff = n0
End Function
...
Рейтинг: 0 / 0
22.01.2016, 09:12
    #39152780
Гость1268
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение таблицы средствами VBA или запросом
Cпасибо Огромное!
Именно то что нужно :)
...
Рейтинг: 0 / 0
22.01.2016, 10:39
    #39152821
MrShin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение таблицы средствами VBA или запросом
Паблик переменные - зло :)

Код: vbnet
1.
2.
3.
4.
5.
Function fff(n1, n)
Static n0

If Not IsNull(n1) Then fff = n: n0 = n Else fff = n0
End Function
...
Рейтинг: 0 / 0
23.01.2016, 10:21
    #39153524
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение таблицы средствами VBA или запросом
MrShinПаблик переменные - зло :)
Категорично и аргументированно
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Заполнение таблицы средствами VBA или запросом / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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