Einfach 1:1 Beziehung in Access abbilden (Insert Into)

[DelphiManiac]

Hallo,

ich habe ein einfaches (denke ich) Problem.

Folgendes ist mir gegeben:

Eine Tabelle Prüfungen (speichert Infos zu einer Prüfung)
Eine Tabelle Kalibrierung (speichert Kalibrierwerte eine Prüfung)

Eine Prüfung beinhaltet immer auch eine Kalibrierung. (Also eine sauberere 1:1 Beziehung (gut könnte sie auch eine Tab nehmen))

Nun füge ich folgende Daten ein:

Delphi-Quellcode:

 with ADOQuery1 do
  begin
    SQL.Clear;
    // Letzte Prüfnummer holen
    SQL.Text:='SELECT * FROM tblPruefung ORDER by PruefNr';
    Open;
    // Letzten Datensatz auswählen
    Last;
    pNr:= FieldByName('PruefNr').AsInteger;
    // Prüfungsnummer wird eins hoch gezählt
    inc(pNr);
    // Fügt einen Neuen leeren Datensatz am Ende der Datenmenge ein
    Append;
    // Neue Datensatz
    FieldByName('PruefNr').AsInteger:=pNr;
    Daten.PruefNumber:=pNr;
    Daten.KalibrierProtokoll:=Daten.KalibrierProtokoll+IntToStr(pNr);
    FieldByName('PruefDatum').AsString:=DateTimeToStr(Now);
    FieldByName('ProtokollName').AsString:=Daten.PruefDatum+IntToStr(Daten.PruefNumber);
    Daten.KalibrierProtokoll:=Daten.PruefDatum+IntToStr(Daten.PruefNumber);
    Daten.PruefDatum:=FieldByName('PruefDatum').AsString;
     
    Post; // Daten an die Datenbank senden
//    SQL.Add('SELECT @@IDENTITY AS NewID;');
end;

Jetzt willich zu PruefNr (PK aus Tabelle Prüfung) einen Kalbrierdatensatz in die Tabelle Kalibrierung ablegen.

Wie mach ich dass am Besten?

Gruß DelphiManiac