Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 30.05.2010
Сообщений: 34

Перемещение записей между таблицами Access 2003

30.06.2011, 21:41. Показов 1140. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый день помогите разобраться.Не могу понят как перемести записи между таблицами . Чтобы при установке оборудования с таблицы "Оборудование на складе" запись об Этом оборудовании переместился в таблицу " Установленное оборудование".Как Это реализовать
Вложения
Тип файла: rar учет.rar (39.2 Кб, 30 просмотров)
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
30.06.2011, 21:41
Ответы с готовыми решениями:

Перемещение данных между таблицами
Здравствуйте все! Подскажите пожалуйста, как в прилагаемом примере по событию нажатия на кнопку формы переместить записи имеющие статус...

Пара вопросов по отношениям между таблицами (office 2003)
Начали в универе изучать Access, и дали задание, чепуховое, нормализовать до 3-ей формы таблицу, единственное, что задание немного...

Нужно ли устанавливать Access 2003, если в Access 2016 итак возможно разрабатывать БД в формате Access 2003?
Здравствуйте! Подскажите пожалуйста, нужно ли устанавливать Access 2003, если в Access 2016 итак возможно разрабатывать БД в формате...

5
0 / 0 / 0
Регистрация: 30.05.2010
Сообщений: 34
01.07.2011, 08:49  [ТС]
Люди полмогите
0
 Аватар для HOUSE MD
453 / 215 / 5
Регистрация: 16.05.2010
Сообщений: 420
01.07.2011, 13:49
Можно так (ADO):
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub idS_Click()
 
    
Const sQ2 = "DELETE *FROM tblІnspectionsStandard WITH OWNERACCESS OPTION;"
Const sQ1 = "INSERT INTO tblІnspectionsVisitTemporal ( idІnspections )SELECT tblІnspectionsStandard.idІnspections FROM tblІnspectionsStandard GROUP BY tblІnspectionsStandard.idІnspections, tblІnspectionsStandard.idІnspectionsStandardName HAVING (((tblІnspectionsStandard.idІnspectionsStandardName) = fIdS())) WITH OWNERACCESS OPTION;"
 
Dim cn As adodb.Connection
Set cn = CurrentProject.Connection
On Error Resume Next
cn.Execute sQ1 'добавление записей в tblІnspectionsVisitTemporal из tblІnspectionsStandard
cn.Execute sQ2 'удаление записей (всех). Если нужно конкретную - прописывается другая конструкция
Set cn = Nothing
 
End Sub
Этот вариант (с ADO а не c JET) менее глючный, чем с хранимым запросом. Код предложил Евгений.

Вот вариант с запросами:
Visual Basic
1
2
3
4
5
Me!idШаблона = Me![ВзятьШаблон].Column(0)
    DoCmd.OpenQuery "qryReOp"
DoEvents
    DoCmd.OpenQuery "qryDelOp"
DoEvents
Запрос на удаление qryDelOp
SQL
1
2
3
DELETE ШаблоныПервичногоОсмотра.*, ШаблоныПервичногоОсмотра.idБольного
FROM Опис
WHERE (((Опис.idБольного)=[Forms]![Опис]![idБольного]));
Запрос на добавление qryReOp
SQL
1
2
3
4
INSERT INTO Опис ( idБольного, ДоставленВПП, жалобы, AnnamnesisMorbi, ПроводилосьЛечение, ДнейНетрудоспос, БОльнЛистДатаИДней, РодилсяВ, Розвивався, ВДетствеБолелНеБолел, ВоВзросломВОзрПеренес, Операции, БытовыеУСловия, ВредныеПривычки, УсловияРаботыИВредности, tbc, VH, ПереливаниеКрови, ИнъекцииПолучал, Аллергологическийанамнез, Сознание, ВКонтакт, Дерьмо, Телосл, Пытание, ПокровыШкиры, Склеры, Слизистые, Кости, ДвижениеВСуставах, Тоннус, Зев, МандаЛины, Лимфоузлы, Сиськи, ЩИтовидка, Обтеки, Пульс, ПульсНаполнен, ПульсНАпряжен, ПульсФорма, АД, ТОлчок, ГраниПрав, ГраниЛевая, ГраниВерхняя, ТонныРИтмичны, ЧДД, ГрудФорма, ВспомМышцУчаств, ДистанцХрипы, ГраниЛегких, ПеркуторныйЗвук, ГолосовоеДрожание, Дыхание, ДыханиеПобочно, ИСЫК, Живот, ЖивотПриПальпации, ЖивотРаздражениеБрюшины, hepar, Гиперстезия, БолевыеТучки, Селезюнка, ПерЖОПА, Простата, ССАНИЕ1, ПУЧКИ, Обоснование, локалис, диагноз, Врач, VIL, VEN, GSC, Зеньки, ОпенЗеньки, Махи, Time1, Vidp, Invalid, Valid, ССАНИЕ2, ССАНИЕ3, Poza, STUC, SHUM, ATS, ATD, COR, DP, ДыханиеПобочно1, Teibl, Режим, Описание, ОбщееСостояние )
SELECT Forms!Опис!idБольного AS Выражение1, ШаблоныПервичногоОсмотра.ДоставленВПП, ШаблоныПервичногоОсмотра.жалобы, ШаблоныПервичногоОсмотра.AnnamnesisMorbi, ШаблоныПервичногоОсмотра.ПроводилосьЛечение, ШаблоныПервичногоОсмотра.ДнейНетрудоспос, ШаблоныПервичногоОсмотра.БОльнЛистДатаИДней, ШаблоныПервичногоОсмотра.РодилсяВ, ШаблоныПервичногоОсмотра.Розвивався, ШаблоныПервичногоОсмотра.ВДетствеБолелНеБолел, ШаблоныПервичногоОсмотра.ВоВзросломВОзрПеренес, ШаблоныПервичногоОсмотра.Операции, ШаблоныПервичногоОсмотра.БытовыеУСловия, ШаблоныПервичногоОсмотра.ВредныеПривычки, ШаблоныПервичногоОсмотра.УсловияРаботыИВредности, ШаблоныПервичногоОсмотра.tbc, ШаблоныПервичногоОсмотра.VH, ШаблоныПервичногоОсмотра.ПереливаниеКрови, ШаблоныПервичногоОсмотра.ИнъекцииПолучал, ШаблоныПервичногоОсмотра.Аллергологическийанамнез, ШаблоныПервичногоОсмотра.Сознание, ШаблоныПервичногоОсмотра.ВКонтакт, ШаблоныПервичногоОсмотра.Дерьмо, ШаблоныПервичногоОсмотра.Телосл, ШаблоныПервичногоОсмотра.Пытание, ШаблоныПервичногоОсмотра.ПокровыШкиры, ШаблоныПервичногоОсмотра.Склеры, ШаблоныПервичногоОсмотра.Слизистые, ШаблоныПервичногоОсмотра.Кости, ШаблоныПервичногоОсмотра.ДвижениеВСуставах, ШаблоныПервичногоОсмотра.Тоннус, ШаблоныПервичногоОсмотра.Зев, ШаблоныПервичногоОсмотра.МандаЛины, ШаблоныПервичногоОсмотра.Лимфоузлы, ШаблоныПервичногоОсмотра.Сиськи, ШаблоныПервичногоОсмотра.ЩИтовидка, ШаблоныПервичногоОсмотра.Обтеки, ШаблоныПервичногоОсмотра.Пульс, ШаблоныПервичногоОсмотра.ПульсНаполнен, ШаблоныПервичногоОсмотра.ПульсНАпряжен, ШаблоныПервичногоОсмотра.ПульсФорма, ШаблоныПервичногоОсмотра.АД, ШаблоныПервичногоОсмотра.ТОлчок, ШаблоныПервичногоОсмотра.ГраниПрав, ШаблоныПервичногоОсмотра.ГраниЛевая, ШаблоныПервичногоОсмотра.ГраниВерхняя, ШаблоныПервичногоОсмотра.ТонныРИтмичны, ШаблоныПервичногоОсмотра.ЧДД, ШаблоныПервичногоОсмотра.ГрудФорма, ШаблоныПервичногоОсмотра.ВспомМышцУчаств, ШаблоныПервичногоОсмотра.ДистанцХрипы, ШаблоныПервичногоОсмотра.ГраниЛегких, ШаблоныПервичногоОсмотра.ПеркуторныйЗвук, ШаблоныПервичногоОсмотра.ГолосовоеДрожание, ШаблоныПервичногоОсмотра.Дыхание, ШаблоныПервичногоОсмотра.ДыханиеПобочно, ШаблоныПервичногоОсмотра.ИСЫК, ШаблоныПервичногоОсмотра.Живот, ШаблоныПервичногоОсмотра.ЖивотПриПальпации, ШаблоныПервичногоОсмотра.ЖивотРаздражениеБрюшины, ШаблоныПервичногоОсмотра.hepar, ШаблоныПервичногоОсмотра.Гиперстезия, ШаблоныПервичногоОсмотра.БолевыеТучки, ШаблоныПервичногоОсмотра.Селезюнка, ШаблоныПервичногоОсмотра.ПерЖОПА, ШаблоныПервичногоОсмотра.Простата, ШаблоныПервичногоОсмотра.ССАНИЕ1, ШаблоныПервичногоОсмотра.ПУЧКИ, ШаблоныПервичногоОсмотра.Обоснование, ШаблоныПервичногоОсмотра.локалис, ШаблоныПервичногоОсмотра.диагноз, ШаблоныПервичногоОсмотра.Врач, ШаблоныПервичногоОсмотра.VIL, ШаблоныПервичногоОсмотра.VEN, ШаблоныПервичногоОсмотра.GSC, ШаблоныПервичногоОсмотра.Зеньки, ШаблоныПервичногоОсмотра.ОпенЗеньки, ШаблоныПервичногоОсмотра.Махи, ШаблоныПервичногоОсмотра.Time1, ШаблоныПервичногоОсмотра.Vidp, ШаблоныПервичногоОсмотра.Invalid, ШаблоныПервичногоОсмотра.Valid, ШаблоныПервичногоОсмотра.ССАНИЕ2, ШаблоныПервичногоОсмотра.ССАНИЕ3, ШаблоныПервичногоОсмотра.Poza, ШаблоныПервичногоОсмотра.STUC, ШаблоныПервичногоОсмотра.SHUM, ШаблоныПервичногоОсмотра.ATS, ШаблоныПервичногоОсмотра.ATD, ШаблоныПервичногоОсмотра.COR, ШаблоныПервичногоОсмотра.DP, ШаблоныПервичногоОсмотра.ДыханиеПобочно1, ШаблоныПервичногоОсмотра.Teibl, ШаблоныПервичногоОсмотра.Режим, "ПЕРВИННИЙ ОГЛЯД" AS Выражение2, ШаблоныПервичногоОсмотра.ОбщееСостояние
FROM ШаблоныПервичногоОсмотра
WHERE (((ШаблоныПервичногоОсмотра.idШаблона)=[Forms]![Опис]![idШаблона]));
1
0 / 0 / 0
Регистрация: 30.05.2010
Сообщений: 34
01.07.2011, 22:32  [ТС]
А более легкого варианта нету через запросы
0
 Аватар для HOUSE MD
453 / 215 / 5
Регистрация: 16.05.2010
Сообщений: 420
01.07.2011, 22:44
Цитата Сообщение от jonj Посмотреть сообщение
А более легкого варианта нету через запросы
Так я Вам и написал через запросы. Просто нужно написать свои. Я просто "выдернул" часть из своей базы.
0
0 / 0 / 0
Регистрация: 30.05.2010
Сообщений: 34
01.07.2011, 22:55  [ТС]
Помоги переделать на основе моей формы, Просто не все пока понятно в эом деле новичок
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
01.07.2011, 22:55
Помогаю со студенческими работами здесь

Связи между таблицами и добавление записей через форму
Вновь здравствуйте, пользователи форума. Нижайше прошу вас помочь мне в последний раз. Моя проблема заключается в том, что в форме,...

Связи между таблицами access
Тут такая ситуация. Дали курсовую сделать СУБД, если честно никогда этого раньше не делал. Решил сделать про фильмы, вроде делал по...

Связи между таблицами в Access
Помогите расставить связи в базе данных между таблицами. Я как ни пытался, при заполнении выдает ошибку, что не хватает связанной записи в...

Access with VB связи между таблицами
у меня есть БД в аксесе 5 таблиц, связаны между собой, у меня получилось привязать через adodc таблицы с аксеса с датагридом в ВБ, а как...

Построение БД access (связь между таблицами)
Компания занимается страхованием 1. Таблица юр. лица 2. Таблица физ. лица 3. Таблица договора 4. Виды страховок 5. таблица...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru