ник: час
А есть у кого нибудь функция подключения ссылок на библиотеки.
Например на DAO.
Почему то VB ругается, если писать
Dim ref As Reference, i As Integer
|
А то Анатолий(Киев) написал функцию - я её использую в Access
хотел приложить к VB6 - не вышло...
Public Function CheckReferenceDAO() As Boolean
'-------------------------------------------------------------------------------
CheckReferenceDAO = False
Dim ref As Reference, i As Integer
Const strDAOGUID = "{00025E01-0000-0000-C000-000000000046}"
'Const strExcelReferenceName = "*DAO*"
For Each ref In References
If ref.BuiltIn Then GoTo refNext
If ref.IsBroken Then
References.Remove ref
GoTo refNext
End If
' If ref.Name Like strExcelReferenceName Then
If InStr(1, ref.Name, "DAO", vbTextCompare) > 0 Then
CheckReferenceDAO = True
GoTo CheckReferenceDAO_exit
End If
refNext:
Next ref
On Error Resume Next
For i = 5 To 2 Step -1
References.AddFromGuid strDAOGUID, 1, i
If Err = 0 Then
CheckReferenceDAO = True
GoTo CheckReferenceDAO_exit
End If
Err.Clear
Next i
CheckReferenceDAO_exit:
'Set ref = Nothing
Exit Function
End Function
|