Доброго Вам врем ени суток
Уважаемые господа

поздравляю Вас с праздником весны Новруз Байрам
желаю Вам здоровья удачи и успехов делах

при наличии времени прошу Вас помочь

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

Set DB = DAO.OpenDatabase(App.Path & "\test.MDB")
sSQL = "Insert Into tab2 select * From tab1"
DB.Execute sSQL

база tab1 содержит три столбца / две строки со
значениями
111
112

мне необхадимо

первый вариант
чтобы при переносе в другую базу было получено
111
111
112
112

т.е. все строки добавились два раза

второй вариант

чтобы при переносе в другую базу было получено

111
111
112

т.е во втором варианте я сам контролирую какую строку хочу увеличить в несколько раз

С Уважением и Благодарностью
Намик

благодарю Вас за ответ

с Вашего позволения

по второму понял - через запрос - Ok

а вто по первому варианту
если мне например нужно будет умножить каждую строку на N_ое кол-во раз
тогда как я этого могу добиться

т.е. грубо говоря

DB.Execute sSQL = N_ое кол-во раз

С Уважением и Благодарностью Намик

Все понял :)

циклом

sSQL = "Insert Into tab2 select * From tab1" 'çàïðîñ íà äîáàâëåíèå äàííûõ
For i = 1 To 4
DB.Execute sSQL 'ñîõðàíÿþ äàíûå
Next

Больщое всем Вам сасибо
будьте здоровы

С Уважением и Благодарностью
Намик