Модераторы: Akina
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Добавление записи в подчиненную форму, VBA 
:(
    Опции темы
Гость_Сергей
Дата 22.12.2005, 17:52 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











Не удается добавить в подчиненную форму более одной записи.
Т.е. имеется главная форма (один) и связанная с ней (ко многим) подчиненная форма.
Добавляем в главную форму новую запись :
DoCmd.GoToRecord acForm, "Главная_форма", acNewRec
Вводим данные в главную форму: Forms!Главная_форма![Поле_Главная_форма]="Данные"
Затем - в подчиненную:
Forms!Главная_форма![Подчиненная_форма]!![Поле_Подчиненная_форма]= "Данные1_Для_подчиненной формы"
А вот как ввести в подчинееную форму следущюю запись без изменения главной?
Заранее благодарен.
  Вверх
Papirus
Дата 23.12.2005, 09:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 298
Регистрация: 19.4.2005
Где: Санкт-Петербург

Репутация: 2
Всего: 1



Я б это делал с помощью рекордсетов...Где-то так:

Код

Dim rs1 as DAO.Recordset,  rs2 as DAO.Recordset
Set rs1 = Forms!Главная_форма.Recordset
Set rs2 = Forms!Главная_форма![Подчиненная_форма].Recordset
With rs1
   .Add
   .Fields("Field1") = "Данные1"
   .Fields("Field2") = "Данные2"
   .Fields("Field3") = "Данные3"
   .Update
End With

With rs2
   .Add
   .Fields("Field1") = rs1.Fields("Field1") 
   .Fields("Field2") = "Данные2"
   .Fields("Field3") = "Данные3"
   .Update
End With

PM MAIL ICQ   Вверх
  
Закрытая темаСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Access | Следующая тема »


 




[ Время генерации скрипта: 0.0405 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.