ник: Romiras
РЕзультаты поисков блин ну не работал вчера ни форум, ни сам портал, вот что нашол порывшись у нас к этому времени:
Public Sub subRef()
ÎÁÍÎÂËÅÍÈÅ ÑÑÛËÎÊ
Dim sMy As String
Dim ref
On Error Resume Next
For Each ref In References
If ref.BuiltIn = False Then
sMy = ref.FullPath
References.Remove ref
References.AddFromFile (sMy)
End If
Next ref
End Sub
а это подсмотрел у Сергея Гаврилова, в его вьювере офлайн содержимого форума
Public Function ValidateReferences(strRefName As String) As Boolean
On Error GoTo Err_ValidateReferences
Dim ref As Access.Reference
For Each ref In Access.References
If ref.Name = strRefName Then
ValidateReferences = Not ref.IsBroken
If Dir(ref.FullPath) = "" Then
Application.References.Remove ref
ValidateReferences = False
End If
End If
Next ref
Exit_ValidateReferences:
Exit Function
Err_ValidateReferences:
MsgBox Err.Number & " " & Err.Description
Resume Exit_ValidateReferences
End Function
пока еще не проверял
к сожелению мыло автора сообщения
http://hiprog.com/forum/forum.asp?action=show&id=2&messid=86541&fullview=0
не работает и это путь отрублен
будем искать дальше