Hallo zusammen,

ich brauche einmal euer geballtes Wissen. Und zwar habe ich eine Datenbank mit den Tabellen Ansprechpartner (folgend Ap) und Protokolle (folgend Pr). Um eine m:n Beziehung herstellen zu können habe ich die Tabelle ApPr mit Verknüpfung zu den anderen beiden Tabellen erstellt. In der Tabelle Ap gibt es eine Mehrfachauswahl um Protokolle auswählen zu können, denen der Ap angehört. Zusätzlich hat der Ap noch ein Auswahlfeld aktiv/inaktiv.

Die Tabelle ApPr soll, nach Änderung eines Ap-Datensatzes, automatisch mit den entsprechenden Verknüpfungen gefüllt werden. Erst hatte ich einen Denkfehler und habe den Code so geschrieben, dass nur ein Protokoll in der Mehrfachauswahl verarbeitet werden konnte - das hat einwandfrei funktioniert. Nach Ändern eines Ansprechpartners wurden die entsprechenden Verknüpfungen für Ap und Pr in ApPr angelegt.
Nach ändern des Codes, um beispielsweise auch zwei Protokolle verarbeiten zu können, habe ich nun das Problem, dass zwar EIN Eintrag in ApPr erstellt wird, allerdings hat dieser Eintrag keine Zuweisung zu Pr sondern nur zu Ap und ein zweiter Eintrag wird auch nicht angelegt.
Um die Schleife testen zu können, habe ich ein Textfeld in die Maske eingefügt, in welches die ausgewählten Protokollnamen aus der Mehrfachauswahl eingetragen werden - was auch funktioniert. An dem Wert der Schleife kann es somit also nicht liegen.

Folgend mein Anfangscode (funktionsfähig):

let ApID := this.Nr;
let PID := first(select Protokolle where 'Gruppen-Nr.' = this.'Gruppen-Nr.').Nr;
let data_ApPr := (select ApPr where Ansprechpartner.Nr = ApID and Protokolle.Nr = PID);
if count(data_ApPr) > 0 then
if this.Status = 2 then
delete (select ApPr where Nr = data_ApPr)
end
else
if this.Status = 1 then
let new_ApPr := (create ApPr);
new_ApPr.(Ansprechpartner := ApID);
new_ApPr.(Protokolle := PID)
end
end

Und mein geänderter Code für die Mehrfachauswahl (fehlerhaft):

let ApID := this.Nr;
for i in chosen(this.'Gruppen-Nr.') do
let PID := first(select Protokolle where 'Gruppen-Nr.' = i).Nr;
let data_ApPr := (select ApPr where Ansprechpartner.Nr = ApID and Protokolle.Nr = PID);
if count(data_ApPr) > 0 then
if this.Status = 2 then
delete (select ApPr where Nr = data_ApPr);
end
else
if this.Status = 1 then
let new_ApPr := (create ApPr);
new_ApPr.(Ansprechpartner := ApID);
new_ApPr.(Protokolle := PID);
end
end
end

Im Voraus vielen Dank für eure Hilfe!

Svenja