VBproject - имеется в виду Акцессная программа?

Наверное, так можно:
if Application.VBE.VBProjects(1).BuildFileName <> currentdb.Name then ...

Тады "ой" :(
Нет никто, вот я и "поумничал".

2SG

Насколько я понял, задачу можно свести к написанию програмы, которая бы выводила какой-нибудь msgbox при смене редактируемого проекта (имея в виду не файл adp, а любой файл - текущий или подключенный через references, - с модулями)?

Если да, то я (в рамках access, опять же) знаю 2 способа сменить текущий проект:
- закрыть БД, не закрывая окна access, и открыть другую;
- в окне редактора кода, в разделе Project Explorer, выбрать (или даже просто встать курсором) модуль, принадлежащий другому файлу.

Ни то, не другое из таймера, насколько я понимаю, не узнать. CodeDb.Name возвращает имя файла, в котором находится обработчик таймера, но не редактируемого модуля.

М.б. имеет смысл написать совсем внешнюю программу, висящую резидентом и через что-нибудь опрашивающую акцесс о его состоянии? Только я опять же не знаю, как. Это надо пробежать по всем запущенным программам, посмотреть, кто из них - акцессы, запомнить их состояния и периодически за ними следить. Во как... Я даже не спрашиваю, зачем это нужно... М.б., когда ты это сделаешь, имеет смысл предложить свои услуги фирме Микрософт? И мы тогда всем форумом будем к тебе ходить с конструктивными предложениями :)