связь с mde (потери глобальных переменных)

башмак
Дата: 09.06.2004 09:02:25
Приветствую вас, коллеги!
По следам обсуждения потерь глобальных переменных пытаюсь организовать связь с mde файлом, содержащим модуль, в коем описаны глобальные переменные. Для этого взял в helpе функцию, передаю ей строку с именем базы (без пути). Эту mde-шку поместил в один с основной базой каталог.
Сообщает, что не может найти файл
access 2000, windows 98, mdb
функция
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
вызов: ReferenceFromFile("bibl.mde")
Можно, конечно, руками прописать в references, но не знаю, как потом оттуда убрать (если потребуется)
paparome
Дата: 09.06.2004 09:12:10
автор
Set ref = References.AddFromFile(strFileName)


Боюсь, что без указания пути он пытается найти файл либо в Моих документах, либо в папке с Аксом

попробуй так

...
Dim fso As New FileSystemObject
Dim me_path as String
   me_path = fso.GetParentFolderName(CurrentDb.Name)
   ...
   Set ref = References.AddFromFile(me_path & "\" & strFileName)
...

И не забудь подключить ссылку на Microsoft Scripting Runtime
маяк
Дата: 09.06.2004 12:07:20
paparome
Боюсь, что без указания пути он пытается найти файл либо в Моих документах, либо в папке с Аксом
Чтобы удостовериться, можно сделать FILES.
Hummer
Дата: 09.06.2004 12:13:58
2 paparome
FSO не нужен, есть встроенные средства Аксеса - currentproject.Path (только путь), currentdb.Name (вернёт путь с именем файла). Access XP.
башмак
Дата: 09.06.2004 14:22:04
Currentproject.path работает и в acc2000
спасибо
paparome
Дата: 09.06.2004 14:29:55
Hummer
2 paparome
FSO не нужен, есть встроенные средства Аксеса - currentproject.Path (только путь), currentdb.Name (вернёт путь с именем файла). Access XP.


Да - погорячился :)
Толко пример этот я на аксе97 проверял, а там с CurrentProject туфляк (пардон)