Выбор таблицы при вводе данных в базу

[vadimius]

База данных ACCESS.
Cхема на рисунке.
imghttp://www.programmersforum.ru/attachment.php?attachmentid=89355&s tc=1&d=1504392726/img
Таблицы: Наблюдатели, Птицы, Встречи, Поведение и 4-е таблицы вариантов поведения. Вообщем Наблюдатель встречает объект и по его поведению данные о нем заносятся в одну из четырех таблиц. Через таблицу Поведение - привязаны данные Встреч ко всем 4-м вариантам поведения по принципу многие-ко-многим. Никак не могу решить проблему: при вводе данных для одного варианта поведения - требуется ввод данных и для остальных 3-х. Как в ACCESS-е можно реализовать этот выбор - так чтобы вводить данные только для одной выбранной таблицы?
Ниже код реализующий ввод данных с вариантом поведения - таблица Observations .. при котором вылетает ошибка: .. для обеспечения целостности данных необходимо наличие связанной записи в таблице Migrations. В примере подключены только 2-е из 4-х таблиц.
Некоторые пояснения к коду:
adotb1->Birds - Объекты
adotb2->Watchers - Наблюдатели
adotb3->Meets - Встречи
adotb4->Behaviors - Поведение
adotb5->Observations - ПростоеПоведение
adotb6->Migrations - МиграционноеПоведение
//---------------------кнопка Добавить-----------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
adotb1->Append();
adotb2->Append();
adotb3->Append();
adotb4->Append();
adotb5->Append();
//adotb6->Append();
}
//------------------------кнопкаПрименить---------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TLocateOptions SearchOptions;
if(adotb1->Locate("BName", DBComboBox1->Text, SearchOptions<<loPartialKey<<loCase Insensitive) == true)
{
adotb3->FieldByName("ID_bird")->AsInteger = adotb1->RecNo;
}else
{
adotb1->FindLast();
adotb3->FieldByName("ID_bird")->AsInteger = adotb1->RecNo + 1;
}
if(adotb2->Locate("WName", DBComboBox2->Text, SearchOptions<<loPartialKey<<loCase Insensitive) == true)
{
adotb3->FieldByName("ID_watcher")->AsInteger = adotb2->RecNo;
}else
{
adotb2->FindLast();
adotb3->FieldByName("ID_watcher")->AsInteger = adotb2->RecNo + 1;
}

if(adotb3->Modified == true)
adotb3->Post();
if(adotb5->Modified == true)
adotb5->Post();

adotb3->FindLast();
adotb4->FieldByName("ID_meet")->AsInteger = adotb3->RecNo;
adotb5->FindLast();
adotb4->FieldByName("ID_observation")->AsInteger = adotb5->RecNo;
//adotb4->FieldByName("ID_migration")->AsInteger = 0;
if(adotb4->Modified == true)
adotb4->Post();

[actmart]

ясно

[evg_m]

при котором вылетает ошибка: .. для обеспечения целостности данных необходимо наличие связанной записи в таблице Migrations.

adotb3->FieldByName("ID_watcher")->AsInteger = adotb2->RecNo + 1;

http://www.programmersforum.ru/showp...16&postcount=2