Вы можете использовать VBA для изучения коллекции отношений. Я не знаю, определит ли это ваши пропавшие отношения, но это должно быть легко выяснить.
Вставьте этот код в стандартный модуль, запустите его и просмотрите вывод в Immediate Window:
Public Sub InspectRelations()
Dim rel As DAO.Relation
Dim fld As DAO.Field
For Each rel In CurrentDb.Relations
Debug.Print "Relationship Name: " & rel.Name
Debug.Print "Table: " & rel.Table
Debug.Print "ForeignTable: " & rel.ForeignTable
For Each fld In rel.Fields
Debug.Print "Field Name: " & fld.Name
Debug.Print "ForeignName: " & fld.ForeignName
Next fld
Debug.Print String(10, "-")
Next rel
Set fld = Nothing
Set rel = Nothing
End Sub