Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.08.2013, 06:42   #11
И-ван-Ыч
Пользователь
 
Регистрация: 08.08.2013
Сообщений: 19
Сообщение

Цитата:
Сообщение от Myhaylo Посмотреть сообщение
Виноват:

Forms![Форма-2].Undo
Тоже не работает.

Решил проблему посредством дополнительной пустой формы с одним полем со списком [№_договора], которая открывается двойным кликом по полю [№_договора] в [Форма-2]
Код:
Private Sub №_договора_DblClick(Cancel As Integer)
  DoCmd.OpenForm "ФормаВременная"
End Sub
Из неё вызывается [Форма-1] с фильтром по выбранному (введённому) [№_договора]
Код:
Private Sub №_договора_AfterUpdate()
  DoCmd.OpenForm "Форма-1", acFormDS, , "[№_договора]=" & Me![№_договора]
End Sub
И затем в ней по двойному клику на нужной записи вставляются данные в [Форма-2]
Код:
Private Sub Form_DblClick(Cancel As Integer)
 With Forms![Форма-2].Recordset
   .AddNew
   ![№_договора] = Me![№_договора]
   ![Адрес] = Me![Адрес]
   ![Объект] = Me![Объект]
   ![Принадлежность] = Me![Принадлежность]
   .Update
  End With
End Sub
Пока вроде работает.
Cпасибо shanemac51 и Myhaylo за подсказки и помощь!
(Без вас может и не додумался бы до промежуточной формы.)

Последний раз редактировалось И-ван-Ыч; 13.08.2013 в 06:47.
И-ван-Ыч вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вставить данные в отфильтрованную таблицу 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