Yep, it works
Pat, thanks again, your suggestion worked perfectly.
In case it could help someone else down the line, here's my code implementing your idea:
Sub deleteRelations()
Dim db As DAO.Database
Dim i As Integer
Set db = CurrentDb
For i = db.Relations.Count - 1 To 0 Step -1
If...