I found some code by Terry Kreft at http://bytes.com/topic/access/answer...references-vba
and modified it to print to the immediate window.
Code:
Sub CheckReference()
'Terry Kreft
'http://bytes.com/topic/access/answers/210488-how-delete-missing-references-vba
Dim refCurr As Access.Reference
Dim intCount As Integer
Dim strRef As String
Dim bIsName As Boolean
For intCount = Access.References.Count To 1 Step -1
bIsName = False
Set refCurr = Access.References(intCount)
Debug.Print intCount & " | " & refCurr.BuiltIn & " | " & refCurr.Name & " | " & refCurr.FullPath
'cannot remove built in references
If Not refCurr.BuiltIn Then
If refCurr.IsBroken Then
Access.References.Remove refCurr
Else
'is this the one I want to delete?
bIsName = InStr(refCurr.FullPath, "FM20")
'could also use
' bIsName = InStr(refCurr.Name, "MSFORMS")
If bIsName Then
Access.References.Remove refCurr
Debug.Print "***** reference to MS Form removed *******"
End If
End If
End If
Next
End Sub
Tested in Win XP, Access 2010