Отключение References

Андрей А. Иванов
Дата: 03.06.2004 11:08:11
Подскажите пожалуйста, как в момент запуска проекта отключить все References со статусом MISSING ?
ищ
Дата: 03.06.2004 11:38:53
application.references.isbroken
Rivkin Dmitry
Дата: 03.06.2004 11:46:38
И получи ошибки компиляции!!!
ищ
Дата: 03.06.2004 11:53:31
application.references.remove ref
Rivkin Dmitry
Дата: 03.06.2004 12:02:58
Я может быть вопрос не понял, но откуда появляются MISSING ?
Известная проблема при переносе акцесовских программ на другие компы.
Надо не удалять, а ремонтировать!
Вот примерный код для этого:

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
Андрей А. Иванов
Дата: 03.06.2004 13:26:40
Ситуация такая: В основном проекте подключаю набор модулей, которые находятся в текущей папке проекта. Состав набора для каждого пользователя свой, соответственно в папке свой набор файлов. При запуске основного модуля подключаются все модули находящиеся в текущей папке, но модули подключенные ранее (на этапе тестирования, например) могут отсутствовать в текущей папке. В Refereces'ах появляются MISSIG'и при этом перестает работать все, программа останавливается на первой же встреченной функции.
АлексейК
Дата: 03.06.2004 13:30:43
2 Rivkin Dmitry
автор
If rf.Name <> "Access" And rf.Name <> "VBA" Then


у референсов есть свойство builtin
Senin Viktor
Дата: 03.06.2004 13:31:32
Для mde ничего не подойдет из выше перечисленного не подойдет.

как вариант - использовать позднее связывание, есно, отказавшись от References
Андрей А. Иванов
Дата: 03.06.2004 13:39:02
Проект adp. Мне нужно не связать а отвязать все отсутствующие (см.выше) проекты, однако, этого я сделать не могу так как перестают работать даже элементарные функции типа str() и т.д., я думал может есть опция где-нибудь, которая позволяет работать хотя бы с теми модулями. которые найдены...
Senin Viktor
Дата: 03.06.2004 13:41:20
Мне нужно не связать а отвязать

это ты ответил на мой фразу использовать позднее связывание?