Заполнение таблицы средствами VBA или запросом

Есть таблица:

Код Номер Заказа Наименование Код1 Код2 1 Х1 ХХХ 0 0 2 ХХХ1 0 0 3 ХХХ2 0 0 4 ХХХ3 0 0 5 ХХХ4 0 0 6 Х2 ХХХ 0 0 7 ХХХ 0 0 8 ХХХ 0 0 9 Х3 ХХХ 0 0 10 ХХХ 0 0 11 ХХХ 0 0 12 ХХХ 0 0 13 Х4 ХХХ 0 0 14 Х5 ХХХ 0 0 12 ХХХ 0 0 12 ХХХ 0 0 12 ХХХ 0 0

Нужен запрос или программа которая обработает таблицу и даст результат вида!

Код Номер Заказа Наименование Код1 Код2 1 Х1 ХХХ 0 1 2 ХХХ1 0 1 3 ХХХ2 0 1 4 ХХХ3 0 1 5 ХХХ4 0 1 6 Х2 ХХХ 0 6 7 ХХХ 0 6 8 ХХХ 0 6 9 Х3 ХХХ 0 9 10 ХХХ 0 9 11 ХХХ 0 9 12 ХХХ 0 9 13 Х4 ХХХ 0 13 14 Х5 ХХХ 0 14 12 ХХХ 0 14 12 ХХХ 0 14 12 ХХХ 0 14

Помогите пожалуйста...

Гость1268,

это весьма похоже не екселевскую таблицу --там это нормальная ситуация

ПЕНСИОНЕРКА,

Угу :(
Экселевская и есть... Теперь мне ее нужно заполнить, а как не знаю.

E2 = ЕСЛИ(B2="";B1;A2)
И растянуть...

Пардон, = ЕСЛИ(B2="";E1;A2)

Гость1268,
импортируете таблицу в Access
(Например, таблица t1)

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

SELECT t1.Код, t1.[Номер Заказа], t1.Наименование, t1.Код1, fff([Номер Заказа],[Код]) AS Код2
FROM t1
ORDER BY t1.Код;

функция fff

Option Compare Database
Public n0

Function fff(n1, n)
If Not IsNull(n1) Then fff = n: n0 = n Else fff = n0
End Function

Cпасибо Огромное!
Именно то что нужно :)

Паблик переменные - зло :)

Function fff(n1, n)
Static n0

If Not IsNull(n1) Then fff = n: n0 = n Else fff = n0
End Function

MrShin
Паблик переменные - зло :)

Категорично и аргументированно