Public Function fcBeziehungen()
    Dim DB As DAO.Database
 
    Dim REL As DAO.Relation
 
    Dim newRelK As Relation
    Dim newRelP As Relation
    Dim newRelT As Relation
    Dim newRelA As Relation
    Dim newRelAs As Relation
 
    Set DB = CurrentDb
 
    For Each REL In DB.Relations
        DB.Relations.Delete REL.Name
    Next REL
 
    DoCmd.DeleteObject acTable, "Zusammenführung"
    DB.Execute "Zusammenführung_Abfrage"
 
    Set newRelK = DB.CreateRelation("ZusammenführungKunde", "Zusammenführung", _
      "Kunde")
    Set newRelP = DB.CreateRelation("ZusammenführungProjekt", _
    "Zusammenführung", "Projekt")
    Set newRelM = DB.CreateRelation("ZusammenführungTyp", "Zusammenführung", _
    "Typ")
    Set newRelE = DB.CreateRelation("ZusammenführungArt_Nr", "Zusammenführung", _
    "Art_Nr")
    Set newRelps = DB.CreateRelation("ZusammenführungAusführung", _
    "Zusammenführung", "Ausführung")
 
    Set DB = Nothing
 
End Function