Прошу помощи в написании кода VBA. В саомстоятельном програмировании не силен, все делаю на примерах.

Параллельно со своей работой, особо времени нет, пишу временную базу(пока програмист по 1с не доберется) по учету ремонтных блоков поступающих от потребителя. Оборот блоков ЗИП + подобие складского учета.

Все что имеет порядковый номер учитывается по штучно. То что не имеет номера, может быть как ед. числе так и во множественном (Поле кол-во). Например вентиляторы, конденсаторы и т.д.

Моя база написанна для единичного учета. Т.е. одна запись = 1 блок. И к этой записи через внешние ключи вешаются таблицы - документы ( цифровой аналог реальной бумажки) Тех акт, Акт исслед., Тех паспотр и т.д.

Алгоритм формирования Исходящей Накладной (далее ИН):
В Форме ИН, указываю куда и к кому поедет, дата и т.д.
Далее, в форме есть 2 списка. Список того что есть на складе и список самой накладной.
Двойным кликом по записи переношу блок списка склада в список ИН. Далее просмотр отчета (в виде документа) и печать.
По факту это происходит просто. Двойным кликом по записи в поле внешнего ключа Исх.Накл. присваивается значение этой самой накладной. И блок автоматом числится в отправленных. Таблицы отфильтровывают так как нужно.

Трудность появляется в том случае когда нужно отправить несколько блоков, т.е. запись в поле кол-во которой не 1, а например 10
И мне нужно в Исходящую накладную засунуть не всю партию из 10 штук, а например 7.

Итого нужно, что бы по двойному клику по блоку из списка того что есть на складе. В случае когда поле [кол-во] больше 1 . Вылазил диалог выбора нужного колличества единиц.
Выполнялся код дублирования записи из основной таблицы.
Т.е. новая дубль запись + имеет связь по внешнему ключу [ИН], в поле [кол во] = 7
Старая запись остается, поле [кол-во] = 10-7

Из Вот такой записи

Код Код ТА Код ТП Код ВН Код ИН Наименование Кол-во Номенклатурный Номер 8 219 144 64 Вентилятор Ebmpapst W1G250 10 б/н

Сделать 2 такие:

Код Код ТА Код ТП Код ВН Код ИН Наименование Кол-во Номенклатурный Номер 8 219 144 64 16 Вентилятор Ebmpapst W1G250 7 б/н 8 219 144 64 Вентилятор Ebmpapst W1G250 3 б/н

Ссылка на базу.
http://1drv.ms/1pDOLcj

Весь инет перерыл подобного примера не нашел((

Подскажите куда копать, или может кто возьмется реализовать, за соответсвующую оплату честного труда програмиста :)

http://www.sql.ru/forum/1086249/dublirovanie-zapisi-v-forme-vba