ник: АлексейЕ
Естьтакое желание ответиь так -
Используйте Currentdb
Но думаю, что я чего-то не понял, так что, на всякий случай вот выдержка из хелпа:
Функцию CodeDb используют в модуле для определения имени объекта Database, описывающего открытую базу данных, в которой выполняется текущая программа. Функция CodeDb обеспечивает доступ к объектам доступа к данным, являющимся частью библиотечной базы данных.
Например, функция CodeDb может быть использована в модуле библиотечной базы данных для создания объекта Database, описывающего библиотечную базу данных. После этого становится возможным открытие и изменение набора записей, выбираемого из таблицы в библиотечной базе данных.
Синтаксис
Set базаДанных = CodeDb
Функция CodeDb использует следующий аргумент.
Аргумент Описание
базаДанных Объектная переменная типа Database.
Дополнительные сведения
Функция CodeDb возвращает объект Database, у которого значением свойства Name является полное (включая путь) имя файла базы данных, из которой была вызвана данная функция. Функция CodeDb используется для работы с объектами доступа к данным в библиотечной базе данных.
При вызове данной функции в библиотечной базе данных текущей остается база данных, из которой была вызвана функция, даже во время выполнения программы модуля библиотечной базы данных. Для ссылки на объекты доступа к данным в библиотечной базе данных необходимо знать имя объекта Database, представляющего библиотечную базу данных.
Предположим, например, что в библиотечной базе данных имеется таблица, содержащая список сообщений об ошибках. Для того чтобы выполнить из программы обработку данных в этой таблице следует с помощью функции CodeDb определить имя объекта Database, содержащего ссылку на библиотечную базу данных, в которой содержится таблица.
Если функция CodeDb вызывается в текущей базе данных, то она возвращает имя текущей базы данных аналогично функции CurrentDb.