Как программно удалять Relations или как это проигнорировать?

'если все записи в таблице удалены - удаляем таблицу целиком
Q_rec = DCount("[Events]![event_id]", "Events", "[Events]![a]=False")
If Q_rec = 0 Then
DoCmd.SetWarnings False
DoCmd.SelectObject acTable, "Events", True
DoCmd.DeleteObject acTable, "Events"
End If

Sub delrelall(nametbl)
'nametbl - имя таблицы у которой надо удалить связи
    Dim db As DAO.Database, r As Relation
    Set db = CurrentDb
    For Each r In db.Relations
        Debug.Print r.Name, r.Table           'На всякий случай распечатываем имена релейшенов
        If r.Name Like "*" & nametbl & "*" Then 
            db.Relations.Delete r.Name        'удаляем релейшен, если имя таблицы найдено в имени констрейнта
        End If
    Next
End Sub

Sub delrelall(nametbl)
    Dim db As DAO.Database, r As Relation
    Set db = CurrentDb
    On Error Resume Next
    For Each r In db.Relations
        Debug.Print r.Name, r.Table, r.ForeignTable
        If nametbl = r.Table Or nametbl = r.ForeignTable Then
            db.Relations.Delete r.Name
        End If
    Next
End Sub

delrelall "ИмяТаблицыСвязиКоторойНадоУдалить"