Public Function RepairReference() As Boolean
On Error GoTo err_RepairReference
Dim rf As Reference, mGuid As String, mMajor As Long, mMinor As Long, i As Byte, flg As Boolean
For i = 1 To Application.References.Count
Set rf = Application.References(i)
If rf.Name <> "Access" And rf.Name <> "VBA" Then
flg = True
mGuid = rf.Guid
mMajor = rf.Major
mMinor = rf.Minor
Application.References.Remove rf
DoEvents
Application.References.AddFromGuid mGuid, mMajor, mMinor
End If
Next
If flg Then Call SysCmd(504, 16483)
exit_RepairReference:
Exit Function
err_RepairReference:
MsgBox Err.Description, vbExclamation, ApplName
Resume exit_RepairReference
End Function |