|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.08.2013, 07:09 | #1 |
Пользователь
Регистрация: 08.08.2013
Сообщений: 19
|
Как по введенному значению выбрать данные и вставить их в новую таблицу
Доброго времени суток всем!
Есть 2 таблицы. Одна таблица [Таблица-1] содержит данные (порядка 5 тыс. записей), например: [№_договора], [Адрес] , [Объект], [Принадлежность] 1, Магазин, Мира 31, ЖЭК Жилищник 2, Жилой дом, Интернационалистов 19, ЖЭК Жилищник 2, Парикмахерская Интернационалистов 19, ЖЭК Жилищник 3, Жилой дом, 79 гв.дивизии 26, Жилремсервис 41, Жилой дом, 79 гв.дивизии 13, Жилремсервис 41, Ломбард, 79 гв.дивизии 13, Иванов 41, Магазин, 79 гв.дивизии 13, Петров 5, Баня, Герцена 27, ООО Баня 132, Цех 1, Кирова 58, Сибмотор 132, Цех 2 , Кирова 58, Сибмотор 2425, Жилой дом, Лазарева 3Б, Наш дом Во второй пустой таблице [Таблица-2] есть такие же поля [№_договора], [Адрес] , [Объект] Работа с таблицей в форме [Форма-2] с такими же полями. Как можно сделать так, чтобы при введении [№_договора] в форму [Форма-2], выводилась по фильтру введенного [№_договора] форма [Форма-1] с данными из [Таблица-1], затем в этой форме [Форма-1] можно было выбрать нужную одну запись и вставить её в [Таблица-2]? Например в поле[№_договора] формы [Форма-2] набрал 41 (или выбрал из выпадающего списка), после обновления появилась [Форма-1] в ней вывелись все записи договора 41, и там надо выбрать желаемую запись и "Энтером" или двойным кликом мыши вставить её в [Таблица-2]? Проблему вывода формы я с помощью добрых людей решил, а вот как вставить нужные данные из [Форма-1] в [Форма-2] не знаю, не получается. Вот такой код не работает: Private Sub Form_DblClick(Cancel As Integer) With Forms!Форма-2.Recordset .Edit ![№_договора] = Me![№_договора] ![Адрес] = Me![Адрес] ![Объект] = Me![Объект] ![Принадлежность] = Me![Принадлежность] .Update End With End Sub Помогите решить проблему. |
08.08.2013, 09:47 | #2 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
не поняла сути задания
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
08.08.2013, 12:37 | #3 |
Пользователь
Регистрация: 08.08.2013
Сообщений: 19
|
Просто есть база, данные в которой могут изменяться (удаляться, добавляться) [Таблица-1] и соответствующая форма [Форма-1]
В [Форма-2] набирается [№_договора], затем автоматически после обновления Код:
Затем в [Форма-2] будут ещё заноситься (вручную и автоматически) данные по записям (просто кучу полей я не стал в пробную базу добавлять) То есть [Таблица-2] является архивом проделанной работы. ([Таблица-1] и связанная с ней таблица не могут служить архивом, так как данные в [Таблица-1] могут удаляться). Формы лучше табличные, с ними значительно удобнее работать. Кстати, в Вашем примере, в [Форма-2] ( [Таблица-1] ) добавляются все записи по договору, а не одна желаемая. Немного изменил код [Форма-1] Код:
Последний раз редактировалось И-ван-Ыч; 08.08.2013 в 12:42. |
08.08.2013, 13:30 | #4 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
ПО крайней мере
Код:
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
09.08.2013, 05:29 | #5 | |
Пользователь
Регистрация: 08.08.2013
Сообщений: 19
|
Цитата:
Здесь добавил 2 раза записи по договору 41. Получается, создает две строки: одна только с [№_договора], вторая - с нужными данными. edit же работает так: добавляет пустую строку с [№_договора] и вставляет все нужные данные в предыдущую последнюю запись. Причём, если второй раз попытаться добавить запись, то появится вторая строка, содержащая только [№_договора], и изменится опять-таки та же бывшая последняя запись. Правда, если хаотично побегать курсором по полям, то иногда опять один первый раз срабатывает нормально. (Бьюсь уж пятый день, ничего не могу придумать и найти.) |
|
09.08.2013, 08:14 | #6 |
Участник клуба
Регистрация: 12.08.2010
Сообщений: 1,079
|
число 41 вы должны сообщать в свободном поле в заголовке формы, а не в области данных
Имя-Галина== почта shanemac51@yandex.ru скайп shanemac51 c 8-15мск будни
Сфера интересов--word-excel-access-распознавание |
09.08.2013, 10:15 | #7 |
Форумчанин
Регистрация: 19.07.2012
Сообщений: 520
|
Если записей в Таблица-1 не более десятка тысяч, то можно так...
Окупант, руки прочь от Украины!!! Слава Героям!
|
09.08.2013, 10:30 | #8 |
Форумчанин
Регистрация: 19.07.2012
Сообщений: 520
|
Понимаетели, когда Вы выбрали "41", то на "Форма-2" Вы уже создали новую (но ещё не сохранённую в базе!) запись, поэтому .AddNew создаёт Вам новую запись и оставляет незаполненной текущую.
Чтобы воспользоваться .Edit Вам нужно сначала сохранить создаваемую запись (почти не заполненную данными), а затем каким-то образом найти её в базе данных и только тогда производить её редактирование... Поэтому, Вам сначала нужно удалить создаваемую запись, а уже только потом выполнять копирование: Код:
Окупант, руки прочь от Украины!!! Слава Героям!
|
09.08.2013, 11:46 | #9 | |
Пользователь
Регистрация: 08.08.2013
Сообщений: 19
|
Цитата:
И попробую посмотреть, что Вы подсказали в примере. Думаю попробовать решить проблему с помощью промежуточной формы, куда вводится [№_договора], но это уже будет как-то некрасиво. На эту мысль навела такая подсказка: В любом случае, всем спасибо! Последний раз редактировалось И-ван-Ыч; 09.08.2013 в 11:51. |
|
12.08.2013, 09:21 | #10 |
Форумчанин
Регистрация: 19.07.2012
Сообщений: 520
|
Виноват:
Forms![Форма-2].Undo
Окупант, руки прочь от Украины!!! Слава Героям!
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вставить данные в отфильтрованную таблицу | Rocky3 | Microsoft Office Excel | 5 | 29.08.2011 16:58 |
Вставить данные в таблицу | Nato4ka.B | Microsoft Office Excel | 5 | 19.08.2011 11:54 |
Как вставить в таблицу Excel данные из текстового файла | Диагностик | Microsoft Office Excel | 8 | 13.12.2009 13:50 |
Как в таблицу в ячейку вставить данные даты MonthCalendar1 | mnbvcxz11 | БД в Delphi | 2 | 11.08.2009 23:59 |
Sql-запрос по значению, введенному в Edit | setrik777 | БД в Delphi | 5 | 27.05.2009 15:26 |