..... ID_Profil = 1 ....
             Select Case kat
                    Case 1: rueck = DatenEintragen(sart, "a", ID_Profil)
                            rRelUebProf.AddNew
                            'rRelUebProf!ID_ProzentProfil = 
                            ' rRelUebProf.RecordCount
                            rRelUebProf!ID_Uebergabestelle = 0
                            rRelUebProf!Kategorie = "a"
                            rRelUebProf!Jahr = Me.Jahr
                            rRelUebProf!art = sart
                            rRelUebProf.Update
                            ID_Profil = ID_Profil + 1
                            'DoCmd.RunSQL "insert into tRelUebProf (" & _
                              "ID_Uebergabestelle, Kategorie, Jahr, Art) values" & _
                              "(0,a, Year(rZusammenhang!Tag)," & sart & ");"
                    Case 2: rueck = DatenEintragen(sart, "b", ID_Profil)
                            rRelUebProf.AddNew
                            'rRelUebProf!ID_ProzentProfil = 
                            ' rRelUebProf.RecordCount
                            rRelUebProf!ID_Uebergabestelle = 0
                            rRelUebProf!Kategorie = "b"
                            rRelUebProf!Jahr = Me.Jahr
                            rRelUebProf!art = sart
                            rRelUebProf.Update
                            ID_Profil = ID_Profil + 1 ......

 Die von ihnen vorgenommenen Änderungen an der Tabelle konnten nicht _
   vorgenommen werden, da der Index, Primärschlüssel oder die Beziehung _
   mehrfach vorkommender Werte enthalten würde. Ändern sie die Daten in den _
   Feldern, die gleiche Daten enthalten, entfernen Sie den Index, oder _
   definieren Sie den Index neu, damit doppelte Einträge möglich sind, und _
   versuchen Sie es erneut.