Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Ошибка пр...

Тема: Ошибка при открытии файла Access

15.06.2007 21:02:58

Dmitriy1

21 сообщения

Тема: Ошибка при открытии файла Access

Помогите!!!
Писал программу создание ссылки на библиотечную базу данных код следующий

(Взял из справки Access)
'
'Function ReferenceFromFile(strFileName As String) As Boolean
' Dim ref As Reference
'
' On Error GoTo Error_ReferenceFromFile
' Set ref = References.AddFromFile(strFileName)
' ReferenceFromFile = True
'
'Exit_ReferenceFromFile:
' Exit Function
'
'Error_ReferenceFromFile:
' MsgBox Err & ": " & Err.Description
' ReferenceFromFile = False
' Resume Exit_ReferenceFromFile
'End Function

'Sub CreateCalendarReference()
' If ReferenceFromFile("C:\WINDOWS\Рабочий стол\Связь\АРМОфОВР.mdb") = True Then
' MsgBox "Reference set successfully."
' Else
' MsgBox "Reference not set successfully."
' End If
'End Sub
'
Теперь при открытии любой базы данных имеющейся на PC появляется ошибка:
«Не удается найти файл ‘C:\WINDOWS\Рабочий стол\Связь\АРМОфОВР.mdb’ (или один из его компонентов). Проверьте правильность указания имени файла и пути, а также наличия всех необходимых библиотек.»

P.S. Ошибки в базе данных
Автор: Дмитрий от 28.08.2002 10:24:29 Источник ...

15.06.2007 21:02:58

Gordey

1 сообщения

RE: Ошибка при открытии файла Access

Это можно устранить либо программно

Sub REMOVECalendarReference()
If RemoveReference("АРМОфОВР") = True Then
MsgBox "Reference REMOVE successfully."
Else
MsgBox "Reference not REMOVE successfully."
End If
End Sub

Function RemoveReference(strFileName As String) As Boolean

Dim ref As Reference

On Error GoTo Error_RemoveReference
Set ref = References(strFileName)
' Remove
References.Remove ref
RemoveReference = True

Exit_RemoveReference:
Exit Function

Error_RemoveReference:
MsgBox Err & ": " & Err.Description
RemoveReference = False
Resume Exit_RemoveReference
End Function
Либо в ручную.
Открыть модуль в дизайне. В меню Tools/References
снять чекбокс для указанной ссылки.

P.S. Ошибки в базе данных
Автор: Gordey от 02.09.2002 18:18:22 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Ошибка пр...

Поиск

Список форумов

Начало | Forums