ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Копировать строки таблицы командой VBA
22 сообщений из 22, страница 1 из 1
Копировать строки таблицы командой VBA
    #39814997
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
Добрый день!

Нужно запросом найти занятия одного ученика до конца года. Это я умею)))
Второму ученику нужно создать аналогичные занятия.
В занятии есть дата, группа, и еще около 7 параметров.
За год может быть около 200 занятий.

Понимаю, что как-то это нужно делать через массив или рекордсет, но звучит страшно...
не знаю как это сделать.

ВОПРОС: есть ли команда, которая копирует найденные в запросе строки, но подставить ID другого клиента?
...
Рейтинг: 0 / 0
19.05.2019, 14:40
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39815002
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
пришла идея действовать через промежуточную таблицу.
находим запросом нужные данные,
записываем во временную таблицу,
меняем id клиента
из промежуточной таблицы переносим в основную таблицу.
затираем временную таблицу.


может проще варианты для новичка access подскажите
...
Рейтинг: 0 / 0
19.05.2019, 14:55
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39815011
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
quickstar...может проще варианты для новичка access подскажите...Я тоже и в тут пытался подсказки получить, но в 99.9 % абсолютно направляли на потусторонние ресурсы, в где ваааще ни чяго не понять.
Я в здесь только чудю и прикалываюсь, ибо в тут практически усе почему та считають вопрошающего, равного себе, и им похоже не вдомёк, что бывають и просто - начинающие.
Умничають, даже не соображая, что их совсем 99% ни кто не понимает.
Ваааще такая ржачь.
, любимый Данный ресурс, где над не логичными возомнившими себя Олимпийскими Богами, можно покуралесить и поржать всласть.
...
Рейтинг: 0 / 0
19.05.2019, 15:16
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39815015
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
quickstar,
Бывает еще запрос на добавление.....
...
Рейтинг: 0 / 0
19.05.2019, 15:24
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39815017
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
Лапух, я с Вами согласен.
И в тоже время, часто пользователи Akina, Панург, sdku, Кривцов Анатолий, Пенсионерка подсказывают решения.
Видимо, у них железные нервы на таких как мы с Вами.
...
Рейтинг: 0 / 0
19.05.2019, 15:24
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39815032
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
Подскажите, что в синтаксисе поправить, как верно должно работать?

Код: vbnet
1.
2.
3.
4.
Dim s
s = "INSERT INTO `table` ([string1], [string2], [string3]) values (Select [string1], [string2], " + Me![fio_client] + "] From `zapros`"
Debug.Print s
DoCmd.RunSQL s
...
Рейтинг: 0 / 0
19.05.2019, 16:31
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39815037
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Сегодня нервы в порядке-спокоен
Код: vbnet
1.
CurrentDb.Execute "INSERT IINTO тблНазначения SELECT '2' as имяПоляВтблНазнКудаЗаписывается(2-двойка), имяПоля(полей)ВтблНазнНеИзм  FROM тблИсточник(ВданномСлучаеИсточник=Назнач) WHERE полеОтбора =(<>,>,<,like)"

Значение записываемое в изменяемое поле определять при двойном щелчке на записи,input,запрос параметра-короче возможны варианты
...
Рейтинг: 0 / 0
19.05.2019, 16:49
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39815041
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
вот так сработало и вопрос решен)
возможно, кому-то пригодится
Код: vbnet
1.
2.
3.
4.
5.
Dim s
s = "INSERT INTO [&#199;&#224;&#237;&#255;&#242;&#232;&#255;] ([&#195;&#240;&#243;&#239;&#239;&#224;], [&#196;&#224;&#242;&#224;&#199;&#224;&#237;&#255;&#242;&#232;&#255;], [&#207;&#229;&#228;&#224;&#227;&#238;&#227;], [&#202;&#235;&#224;&#241;&#241;], [&#194;&#240;&#229;&#236;&#255;], [&#202;&#238;&#236;&#236;&#229;&#237;&#242;&#224;&#240;&#232;&#232;], [&#209;&#242;&#224;&#242;&#243;&#241;], [&#212;&#200;&#206;&#240;&#229;&#225;&#229;&#237;&#234;&#224;], [&#205;&#238;&#236;&#229;&#240;&#199;&#224;&#237;&#255;&#242;&#232;&#255;], [&#210;&#232;&#239;&#199;&#224;&#237;&#255;&#242;&#232;&#255;], [&#212;&#232;&#235;&#232;&#224;&#235;], [&#196;&#224;&#242;&#224;&#209;&#238;&#231;&#228;&#224;&#237;&#232;&#255;], [&#207;&#240;&#232;&#231;&#237;&#224;&#234;&#207;&#240;&#238;&#225;&#237;&#238;&#227;&#238;], [&#202;&#243;&#240;&#241;], [&#195;&#240;&#243;&#239;&#239;&#238;&#226;&#238;&#233;&#205;&#238;&#236;&#229;&#240;], [Del]) SELECT [&#195;&#240;&#243;&#239;&#239;&#224;], [&#196;&#224;&#242;&#224;&#199;&#224;&#237;&#255;&#242;&#232;&#255;], [&#207;&#229;&#228;&#224;&#227;&#238;&#227;], [&#202;&#235;&#224;&#241;&#241;], [&#194;&#240;&#229;&#236;&#255;], [&#202;&#238;&#236;&#236;&#229;&#237;&#242;&#224;&#240;&#232;&#232;], [&#209;&#242;&#224;&#242;&#243;&#241;], id_clienta, [&#205;&#238;&#236;&#229;&#240;&#199;&#224;&#237;&#255;&#242;&#232;&#255;], [&#210;&#232;&#239;&#199;&#224;&#237;&#255;&#242;&#232;&#255;], [&#212;&#232;&#235;&#232;&#224;&#235;], [&#196;&#224;&#242;&#224;&#209;&#238;&#231;&#228;&#224;&#237;&#232;&#255;], [&#207;&#240;&#232;&#231;&#237;&#224;&#234;&#207;&#240;&#238;&#225;&#237;&#238;&#227;&#238;], [&#202;&#243;&#240;&#241;], [&#195;&#240;&#243;&#239;&#239;&#238;&#226;&#238;&#233;&#205;&#238;&#236;&#229;&#240;], [Del] FROM [z_gr_nomer_for_create_z]"
Debug.Print s
DoCmd.RunSQL s
End Sub
...
Рейтинг: 0 / 0
19.05.2019, 16:52
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39815045
Шаман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шаман
Гость
quickstarЛапух, я с Вами согласен.Как то легко ты повелся на уловку Лапуха. Походу он и по жизни провокатор.
Мельком просмотрел твои топики. По всем вопросам было найдено решение. При этом никто словом не обмолвился о твоем незнании акса, а довольно душевно и на примерах объяснили что по чем.
Что касаемо "богов", так никто себя такими не считает. Лапух сам, практически в первом своем топике, распределил всем роли. 20131350
К чему написал. Просто не люблю когда гадят там где едят.
...
Рейтинг: 0 / 0
19.05.2019, 16:57
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39815050
quickstar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
quickstar
Гость
итоговый рабочий вариант на благо новичкам форума)))
Код: vbnet
1.
2.
3.
4.
Dim s
s = "INSERT INTO [str1] ([str2], [str3]) SELECT [str1], [str2], " + Me![fio_clienta] + " FROM [z_zapros]"
Debug.Print s
DoCmd.RunSQL s
...
Рейтинг: 0 / 0
19.05.2019, 17:11
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39815061
Фотография Tarasios
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tarasios
Участник
ШаманquickstarЛапух, я с Вами согласен.Как то легко ты повелся на уловку Лапуха. Походу он и по жизни провокатор.
Мельком просмотрел твои топики. По всем вопросам было найдено решение. При этом никто словом не обмолвился о твоем незнании акса, а довольно душевно и на примерах объяснили что по чем.
Что касаемо "богов", так никто себя такими не считает. Лапух сам, практически в первом своем топике, распределил всем роли. 20131350
К чему написал. Просто не люблю когда гадят там где едят.

Если открыть указанный вами топик и немножечко посмотреть инфу, то можно найти любопытное:
первое сообщение от топикстартера (Лапух): 22 янв 17, 08:25
второе сообщение от Лапуха 22 янв 17, 10:12, в котором он уже весь в обманутых ожиданиях начинает скорбно ныть, мол, не отвечают, не помогают, а ещё боги и т.д., и форум ему плох...
Конкретно: в 8 утра, в воскресенье, за аж целых полтора часа никто ему не ответил... Кошмар... Тут, блин, на платной техподдержке (например, служба хостинга) не всегда за пару часов ответ получишь...
Хотя уже в 22 янв 17, 11:25 получил первый ответ.
Вывод: Лапух тот ещё жук... Не хороший, не плохой - просто жук. Правда, болтливый не в меру )))
...
Рейтинг: 0 / 0
19.05.2019, 17:41
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39815146
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
quickstar...Видимо, у них железные нервы на таких как мы с Вами...
Согласен.
Есть ещё богатыри с железными нервами в Русских селеньях.
Даже такого чудака как я, не особо то сильно журят, бранят и чехвостят по чём зря.
...
Рейтинг: 0 / 0
19.05.2019, 23:19
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39815148
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лапух
Участник
Tarasios...Вывод: Лапух тот ещё жук... Не хороший, не плохой - просто жук. Правда, болтливый не в меру...
Это прям как в песне поётся что ли, типа -
"И не друг и не враг, а так..."
Или вы уже совместные песни и не поёте уже?
Специально ищите только на ваш взгляд негативное, а доброе и хорошее напрочь не замечаете.
В куда же вы катитесь?
Сами то понимаете?
...
Рейтинг: 0 / 0
19.05.2019, 23:26
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39815152
Фотография Tarasios
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tarasios
Участник
ЛапухTarasios...Вывод: Лапух тот ещё жук... Не хороший, не плохой - просто жук. Правда, болтливый не в меру...
Это прям как в песне поётся что ли, типа -
"И не друг и не враг, а так..."
Или вы уже совместные песни и не поёте уже?
Специально ищите только на ваш взгляд негативное, а доброе и хорошее напрочь не замечаете.
В куда же вы катитесь?
Сами то понимаете?

Мда, банальный перевод стрелок, не интересно...
...
Рейтинг: 0 / 0
19.05.2019, 23:46
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39900662
Фотография Rikozenit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rikozenit
Участник
Доброго всем дня! Пытаюсь скопировать и вставить несколько строк внутри одной таблицы с простым условием. Ошибок не выдаёт, но и не работает:
Код: sql
1.
CurrentDb.Execute "INSERT INTO Задачи SELECT * FROM Задачи WHERE (Задачи.[код_протокола]) = " & [Код_протокола] & " "


Подскажите, плиз!
...
Рейтинг: 0 / 0
10.12.2019, 11:00
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39900666
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
Rikozenit
Доброго всем дня! Пытаюсь скопировать и вставить несколько строк внутри одной таблицы с простым условием. Ошибок не выдаёт, но и не работает:
Код: sql
1.
CurrentDb.Execute "INSERT INTO Задачи SELECT * FROM Задачи WHERE (Задачи.[код_протокола]) = " & [Код_протокола] & " "


Подскажите, плиз!

1) ставишь точку прерывания на эту строку.
2) как остановится, выделяешь все что после CurrentDb.Execute и правой кнопкой мыши ADD WATCH. И смотришь - какой именно стринг был отправлен на выполнение.
Например - " & [Код_протокола] & " " вот тут что имелось ввиду?
В программе есть объявленная переменная [Код_протокола] которой ранее было присвоено какое-то значение?:))
...
Рейтинг: 0 / 0
10.12.2019, 11:09
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39900681
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
Rikozenit
Доброго всем дня! Пытаюсь скопировать и вставить несколько строк внутри одной таблицы с простым условием. Ошибок не выдаёт, но и не работает:
Код: sql
1.
2.
CurrentDb.Execute "INSERT INTO Задачи  ?хде список полей? SELECT *?хде список полей? FROM Задачи WHERE (Задачи.[код_протокола]) = " & [Код_протокола] & " "
' если код_протокола число, то можно/нужно так: WHERE ([код_протокола]) = " & [Код_протокола]


Подскажите, плиз!
...
Рейтинг: 0 / 0
10.12.2019, 11:24
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39900694
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
Не нужно промежуточных таблиц. Запрос на выборку "занятия одного ученика до конца года. Это я умею" в конструкторе запросов переделываете на запрос-добавление в ту же таблицу.
Исключаете ключевое поле-счетчик, указываете ID другого ученика, остальные поля наследуются. Выполняете. Если результат устраивает - можете SQL запроса использовать в процедуре с методом CurrentDb.Execute.
Только надо подстраховаться, чтоб не наплодить лишнего.
...
Рейтинг: 0 / 0
10.12.2019, 11:40
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39900736
Фотография Rikozenit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rikozenit
Участник
Serg197311, поставил, посмотрел! Тот стринг, что указан - тот и был отправлен на исполнение. код_протокола (числовое поле) подтягивается =3. (всё как надо)
Код: sql
1.
"INSERT INTO Задачи SELECT *  FROM Задачи WHERE ([код_протокола]) = 3"


Сергей Лалов, спасибо, поправил строку на:
Код: sql
1.
CurrentDb.Execute "INSERT INTO Задачи SELECT *  FROM Задачи WHERE ([код_протокола]) = " & [Код_протокола]


Жаль только, что пока это не помогло( Также, мне нужно скопировать ВСЕ поля, поэтому я поставил *.
...
Рейтинг: 0 / 0
10.12.2019, 12:17
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39900751
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Rikozenit, если есть ключ/уникальные индексы, то не скопирует
...
Рейтинг: 0 / 0
10.12.2019, 12:30
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39900754
Фотография Rikozenit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rikozenit
Участник
Панург, есть ключевые поля( Чтобы скопировал придётся перечислять поля для копирования? Или это не поможет?
...
Рейтинг: 0 / 0
10.12.2019, 12:38
| Ответить | Цитировать | Написать  
Копировать строки таблицы командой VBA
    #39900757
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Rikozenit
придётся перечислять поля для копирования
...
Рейтинг: 0 / 0
10.12.2019, 12:40
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Копировать строки таблицы командой VBA
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39900736&tid=1610336]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 61ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 15ms
total:  168ms
созд. / загр.: 168ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]