башмак
Дата: 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, но не знаю, как потом оттуда убрать (если потребуется)
Hummer
Дата: 09.06.2004 12:13:58
2 paparome
FSO не нужен, есть встроенные средства Аксеса - currentproject.Path (только путь), currentdb.Name (вернёт путь с именем файла). Access XP.