ник: lexalex_84
Добрый день господа!!!Посмотрите пожалуйста почему вылазит ошибка.....уже неделю мучаюсь и никак неполучается...... Самое главное ошибка появляется только когда все таблицы перекинуты в Мускул - в Аксе остаются только линкованные таблицы....
При нажатии на кнопку "Копировать N-раз", вылазит форма с сообщением как показано в коде
otvet1 = MsgBox("Создать несколько подобных изделий в рамках этого договора ?", vbOKCancel)
If otvet1 = 2 Then
MsgBox "Отменено пользователем"
Exit Sub
End If
n_s = InputBox("введите количество дверей в договоре")
затем мы вводим количество дверей необходимых для клонирования. Для клонирования допускается только поле № изделия(litera) равным 1, если оно будет равно нуль или будет больше единицы то клонирование его выполнить нельзя.
т.е если мы посмотрин на картринку Форма Двери Евро-межгород.JPG, то мы должны получить в итоге клонированных столько записей сколько мы укажем в "введите количество дверей в договоре" включая и саму запись, т.е если мы указали 5, то он должен скопировать 4 раза.
Например: на картинке Двери Евро-межгород.JPG показан №дог 3137 и все остальные поля - это запись 127585. Значит если мы нажмем на конопку "Копировать N-раз" и введем в предложенной форме "введите количество дверей в договоре" число 3, то тогда эта запись 127585 с №дог 3137 и всеми остальными полями должны клонироваться включая эту запись ровно три раза, т.е клонируется еще два раза. Тогда получим что в записях 127585;127586 и 127587 будет одна и та же информация.
При этом поле № изделия(litera) должно идти по порядку до числа равному числу введенному в "введите количество дверей в договоре", а вся остальная информация без изменения.
Все поля находящиеся в этой форме имеются и в линкованной таблице "dveri", внутри поле "Код" ключевое.
Все скрины находятся здесь http://zalil.ru/30130817