Каким образом продублировать одну запись 10 раз программно?

@alexpro1979 · Регистрация: 08.06.2015

Author24 — интернет-сервис помощи студентам

Подскажите каким образом можно продублировать одну запись 10 раз програмно?

@Вячеслав Я · 09.12.2015, 19:43

alexpro1979, сделать запрос на добавление записи и прописать запуск 10 раз.

mobile · 09.12.2015, 19:47

Можно достаточно просто запросом с юнионом. Проблема только как определить нужную запись (которая должна быть скопирована), а также возможен конфликт с ключом или уникальным индексом. Эти поля должны быть исключены из списка, если ключ счетчик или уникальное значение добавлено в каждую запись.

SQL

INSERT INTO Таблица (Поле1, Поле2,,,, ПолеN)
SELECT * FROM
(SELECT Поле1, Поле2,,,, ПолеN FROM Таблица WHERE ID=Значение
UNION ALL
SELECT Поле1, Поле2,,,, ПолеN FROM Таблица WHERE ID=Значение
UNION ALL
SELECT Поле1, Поле2,,,, ПолеN FROM Таблица WHERE ID=Значение
UNION ALL
SELECT Поле1, Поле2,,,, ПолеN FROM Таблица WHERE ID=Значение
UNION ALL
SELECT Поле1, Поле2,,,, ПолеN FROM Таблица WHERE ID=Значение
UNION ALL
SELECT Поле1, Поле2,,,, ПолеN FROM Таблица WHERE ID=Значение
UNION ALL
SELECT Поле1, Поле2,,,, ПолеN FROM Таблица WHERE ID=Значение
UNION ALL
SELECT Поле1, Поле2,,,, ПолеN FROM Таблица WHERE ID=Значение
UNION ALL
SELECT Поле1, Поле2,,,, ПолеN FROM Таблица WHERE ID=Значение
UNION ALL
SELECT Поле1, Поле2,,,, ПолеN FROM Таблица WHERE ID=Значение

Выполнить запрос можно в коде ВБА. Если он сохраненный, то

SQL

1	Currentdb.execute "ИмяЗапроса"

Если текст запроса задан переменной сгенерированной в коде, то

SQL

1	Currentdb.execute strSql

Также можно в коде ВБА размножить запись в рекордсете, не прибегая к запросу. Или создав запрос на основе известного запроса Digits. В общем вариантов не один, можно выбирать

@alexpro1979 · 09.12.2015, 21:20 **[ТС]**

на каждый случай свое количество дублей

Добавлено через 49 секунд
нужна еще и возможность ввода количества строк

@Вячеслав Я · 09.12.2015, 21:22

alexpro1979, Можно сделать нормальный запрос на добавление с кнопкой. Если Вам надо 7 копий записей, то нажмите просто семь раз (наверное не будет необходимости делать по 30 копий - иначе можно сбиться со счета).

@alexpro1979 · 09.12.2015, 21:23 **[ТС]**

я думаю максимум 8

@Вячеслав Я · 09.12.2015, 21:24

Сообщение от Вячеслав Я

Можно сделать нормальный запрос на добавление с кнопкой.

Покажите Ваш пример. На нем и сделаем.

mobile · 09.12.2015, 21:34

Сообщение от alexpro1979

на каждый случай свое количество дублей

нужна еще и возможность ввода количества строк

Это тоже несложно сделать в коде. Предположим в форме есть поле с задаваемым количеством дублей, назовем его Kol и кнопка, выполняющее размножение записей. На кнопке код

Visual Basic

Sub Кнопка_Click()
  Dim i, s, db as DAO.Database
  s="INSERT INTO Таблица (Поле1, Поле2,,,, ПолеN) " _
  & "SELECT Поле1, Поле2,,,, ПолеN FROM Таблица WHERE ID=" & Me.ID
  For i=1 to me.Kol
    db.Execute s
  Next
End Sub

Каким образом продублировать одну запись 10 раз программно?

Решение

Решение

@alexpro1979 647 / 100 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
		1
	Каким образом продублировать одну запись 10 раз программно? 09.12.2015, 19:04. Показов 1152. Ответов 7 Метки нет (Все метки) Подскажите каким образом можно продублировать одну запись 10 раз програмно? 0

@Вячеслав Я 2833 / 1375 / 215 Регистрация: 13.05.2011 Сообщений: 4,217
	09.12.2015, 19:43	2
	alexpro1979, сделать запрос на добавление записи и прописать запуск 10 раз. 0

@alexpro1979 647 / 100 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	09.12.2015, 21:20 [ТС]	4
	на каждый случай свое количество дублей Добавлено через 49 секунд нужна еще и возможность ввода количества строк 0

@Вячеслав Я 2833 / 1375 / 215 Регистрация: 13.05.2011 Сообщений: 4,217
	09.12.2015, 21:22	5
	alexpro1979, Можно сделать нормальный запрос на добавление с кнопкой. Если Вам надо 7 копий записей, то нажмите просто семь раз (наверное не будет необходимости делать по 30 копий - иначе можно сбиться со счета). 0

@alexpro1979 647 / 100 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	09.12.2015, 21:23 [ТС]	6
	я думаю максимум 8 0

@Вячеслав Я 2833 / 1375 / 215 Регистрация: 13.05.2011 Сообщений: 4,217
	09.12.2015, 21:24	7
	Сообщение было отмечено alexpro1979 как решение Решение Сообщение от Вячеслав Я Можно сделать нормальный запрос на добавление с кнопкой. Покажите Ваш пример. На нем и сделаем. 1

	09.12.2015, 21:34