Möchte man alle Relationen (Tabellenverknüpfungen) einer Datenbank löschen, sollte man meinen, dass nachfolgender Code funktioniert: Dim i As Long With oDB.Relations For i = 0 To .Count - 1 .Delete oDB.Relations(i).Name Next i End With Dem ist aber nicht so: es wird hier immer nur ein Teil der vorhandenen Relationen gelöscht. Nachfolgender Code hingegen arbeitet korrekt. With oDB.Relations While .Count > 0 .Delete oDB.Relations(0).Name Wend End With |