Ich hab' das mall ausprobiert aber an dieser Stelle:
Forms![frm_Kursnotenliste]![frm_KursnotenlisteSub].RecordSource = SQL
sagt er mir:
"Laufzeitfehler 438
Objekt unterstützt diese Eigenschaft oder Methode nicht"
:-(
Hier nochmal der ganze Code:
Private Sub ComboBox_Kurs_AfterUpdate()
Dim SQL As String
'Daten fürs UF
SQL = "SELECT tbl_Schueler.NoteFach1, tbl_Schueler.NoteFach2, tbl_Schueler.NoteFach3, tbl_Schueler.NoteFach4, tbl_Schueler.NoteFach5, tbl_Schueler.NoteFach6, tbl_Schueler.NoteFach7, tbl_Schueler.NoteFach8, tbl_Schueler.NoteFach9, tbl_Schueler.NoteFach10, tbl_Schueler.Lehrgang_Kurs, tbl_kurse.Kuerzel FROM tbl_kurse INNER JOIN tbl_Schueler ON tbl_kurse.Kuerzel = tbl_Schueler.Lehrgang_Kurs WHERE (((tbl_Schueler.Lehrgang_Kurs)=[Formulare]![frm_Kursnotenliste]![Kurs]));"
'[tbl_Schueler].[Nachname] & ", \" & [tbl_Schueler].[Vorname] AS Name,
Forms![frm_Kursnotenliste]![frm_KursnotenlisteSub].RecordSource = SQL
'Aktualisieren , ist aber glaube ich nicht nötig
Forms![frm_Kursnotenliste]![frm_KursnotenlisteSub].Requery
End Sub