Hai,
zum Anzeigen geht's, zum Bearbeiten nicht.
Da die Tabellenstruktur anscheinend ein Geheimnis ist gehe ich davon aus, dass sie so aussieht:
Tabelle Film: FID, Titel, ...
Tabelle Schauspieler: SID, Name, ...
Tabelle Film_Schauspieler: FID, SID
Ferner gehe ich davon aus, dass die Anzeigemaske Film heisst und ein (notfalls unsichtbares) Feld FID mit der Verknüpfung zur Spalte Film.FID existiert.
In der Maske Film erzeugst Du ein Textfeld AlleSchauspieler ohne Datenverknüpfung.
Ferner erzeugst Du, falls nicht schon vorhanden, das Formularereignis Beim Anzeigen und fügst unter Private Sub Form_Current() folgenden, von mir nicht getesteten Code ein:
Code:
dim liste as string
dim sql as string
dim i as integer
dim rs as recordset
i=0
liste=""
sql = "select Name from Schauspieler where sid in "
sql = sql & "(select sid from Film_Schauspieler where fid = '"
sql = sql & me.fid
sql = sql & "')"
Set rs = CurrentDb.OpenRecordset(sql)
Do Until rs.EOF
if i>0 then liste = liste & ", "
liste = liste & rs.name
i=i+1
rs.MoveNext
Loop
me.AlleSchauspieler = liste