Как по введенному значению выбрать данные и вставить их в новую таблицу

[И-ван-Ыч]

Доброго времени суток всем!

Есть 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

Помогите решить проблему.

[shanemac51]

не поняла сути задания

[И-ван-Ыч]

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

не поняла сути задания

Просто есть база, данные в которой могут изменяться (удаляться, добавляться) [Таблица-1] и соответствующая форма [Форма-1]

В [Форма-2] набирается [№_договора], затем автоматически после обновления

Private Sub №_договора_AfterUpdate()
DoCmd.RunCommand acCmdSaveRecord
  DoCmd.OpenForm "Форма-1", acFormDS, , "[№_договора]=" & Me![№_договора]
End Sub

(выводится [Форма-1] с выводом всех записей по договору, в [Форма-1] выбирается одна нужная запись и добавляется в [Форма-2] ( [Таблица-2] ).
Затем в [Форма-2] будут ещё заноситься (вручную и автоматически) данные по записям (просто кучу полей я не стал в пробную базу добавлять)
То есть [Таблица-2] является архивом проделанной работы.
([Таблица-1] и связанная с ней таблица не могут служить архивом, так как данные в [Таблица-1] могут удаляться).

Формы лучше табличные, с ними значительно удобнее работать.

Кстати, в Вашем примере, в [Форма-2] ( [Таблица-1] ) добавляются все записи по договору, а не одна желаемая.

Немного изменил код [Форма-1]

Private Sub Form_DblClick(Cancel As Integer)
 With Forms![Форма-2].Recordset
  If Not .EOF Then
   .Edit
   ![№_договора] = Me![№_договора]
   ![Адрес] = Me![Адрес]
   ![Объект] = Me![Объект]
   ![Принадлежность] = Me![Принадлежность]
   .Update
  End If
 End With
End Sub

но всё-равно неправильно работает

[shanemac51]

ПО крайней мере

Private Sub Form_DblClick(Cancel As Integer)
 With Forms![Форма-2].Recordset
  'If Not .EOF Then
  '.edit
  .addnew
   ![№_договора] = Me![№_договора]
   ![Адрес] = Me![Адрес]
   ![Объект] = Me![Объект]
   ![Принадлежность] = Me![Принадлежность]
   .Update
  'End If
 End With
End Sub

[И-ван-Ыч]

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

ПО крайней мере

Private Sub Form_DblClick(Cancel As Integer)
 With Forms![Форма-2].Recordset
  'If Not .EOF Then
  '.edit
  .addnew
   ![№_договора] = Me![№_договора]
   ![Адрес] = Me![Адрес]
   ![Объект] = Me![Объект]
   ![Принадлежность] = Me![Принадлежность]
   .Update
  'End If
 End With
End Sub

Верно, но лишь только отчасти. Добавляет-то тоже неправильно. Уже пробовал и addnew, получается ерунда такая:

Здесь добавил 2 раза записи по договору 41. Получается, создает две строки: одна только с [№_договора], вторая - с нужными данными.

edit же работает так:

добавляет пустую строку с [№_договора] и вставляет все нужные данные в предыдущую последнюю запись. Причём, если второй раз попытаться добавить запись, то появится вторая строка, содержащая только [№_договора], и изменится опять-таки та же бывшая последняя запись. Правда, если хаотично побегать курсором по полям, то иногда опять один первый раз срабатывает нормально.

(Бьюсь уж пятый день, ничего не могу придумать и найти.)

[shanemac51]

число 41 вы должны сообщать в свободном поле в заголовке формы, а не в области данных

[Myhaylo]

Если записей в Таблица-1 не более десятка тысяч, то можно так...

[Myhaylo]

Понимаетели, когда Вы выбрали "41", то на "Форма-2" Вы уже создали новую (но ещё не сохранённую в базе!) запись, поэтому .AddNew создаёт Вам новую запись и оставляет незаполненной текущую.
Чтобы воспользоваться .Edit Вам нужно сначала сохранить создаваемую запись (почти не заполненную данными), а затем каким-то образом найти её в базе данных и только тогда производить её редактирование...
Поэтому, Вам сначала нужно удалить создаваемую запись, а уже только потом выполнять копирование:

Private Sub Form_DblClick(Cancel As Integer)
 With Forms![Форма-2].Recordset
   .Undo  'удалить создаваемую запись
   .addnew
   ![№_договора] = Me![№_договора]
   ![Адрес] = Me![Адрес]
   ![Объект] = Me![Объект]
   ![Принадлежность] = Me![Принадлежность]
   .Update
 End With
End Sub

[И-ван-Ыч]

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

Понимаетели, когда Вы выбрали "41", то на "Форма-2" Вы уже создали новую (но ещё не сохранённую в базе!) запись, поэтому .AddNew создаёт Вам новую запись и оставляет незаполненной текущую.
Чтобы воспользоваться .Edit Вам нужно сначала сохранить создаваемую запись (почти не заполненную данными), а затем каким-то образом найти её в базе данных и только тогда производить её редактирование...
Поэтому, Вам сначала нужно удалить создаваемую запись, а уже только потом выполнять копирование:

Private Sub Form_DblClick(Cancel As Integer)
 With Forms![Форма-2].Recordset
   .Undo  'удалить создаваемую запись
   .addnew
   ![№_договора] = Me![№_договора]
   ![Адрес] = Me![Адрес]
   ![Объект] = Me![Объект]
   ![Принадлежность] = Me![Принадлежность]
   .Update
 End With
End Sub

Это я понимаю, да только вот Access по разному воспринимает эту строку при AddNew и Edit. А вот при добавленном Undo Access выдает сообщение "Run time error 438: Object doesn't support this property or metod". Не поддерживает, м-да.

И попробую посмотреть, что Вы подсказали в примере.

Думаю попробовать решить проблему с помощью промежуточной формы, куда вводится [№_договора], но это уже будет как-то некрасиво. На эту мысль навела такая подсказка:

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

число 41 вы должны сообщать в свободном поле в заголовке формы, а не в области данных

В любом случае, всем спасибо!

[Myhaylo]

Виноват:

Forms![Форма-2].Undo