Lenivecкласс у меня определяется как
Public vМойКласс AS New МойКласс
и никаких переинициализаций при этом не возникает

Хм если быт точным, класс у вас определяется как МойКласс.

Public vМойКласс AS New МойКласс - это определение переменной а не класса

обращение к переменной не есть обращение к классу. Речь шла именно об обращениях к классу.

Alexey Sh2 мдя: в VBA классы какие-то болезненные, обращаться к ним иначе как к экзкмплярам никак не получается, ну не нашёл я там статических переменных и методов. Может плохо искал?
Да я не против объявления AS NEW, просто речь шла об обращении именно к классу. При этом (обращении собственно к классу), если класс на держит себя за ссылку (или кто нить еще не держит проинициированную им, не как NEW переменную ), происходит его Initialize, а если держит - не происходит.


МетОда с Pablic xxx As New у меня как то выпала из круга решений, то ли по дурости, то ли из за того, что надо где-то в 3-м месте (кроме класса и вызовов) ее (переменную) объявлять. Я просто делел так в самом классе

В объявлениях:
Private Self As Object
В Class_Initialize :
...
Set Self = Me

В методе Public Sub CloseMe()
...
Set Self = Nothing

при этом обьявлять дополнительную переменную мне не надо, после первого обращения к любому компоненту/методу класса он держит себя за хвост и повторного Initialize не происходит, пока не произойдет CloseMe, или ошибка - в остальном ведет себя как Ваш экземпляр.

Класс я рисовал не для CurrentDB. а для кучки линкованных DB (и Current, заодно), все инициировались напрямую в Initialize (я не закладывался на то, что кто-то снаружи закроет какую-нто ДБ - что, в отсутствии Property Set, кстати сказать и у ленивца нихто не сделает присвоением Nothing, правда метод Close, похоже закроет базу - надо бы и его как-то перекрыть, а не проверять Is Nothing всякий раз), поскольку у меня просто все вызовы написаны как вызовы методов
Set rst =МойКласс.МояБ1.OpenRecordset(...)

Да, и для транзакций он у меня не заточен, ибо воркспейс в нем у меня задается (пусть и (0)), явно.

Alexey Sh МойКласс - это что?
в описанном мною выше - это имя (модуля) класса (т.е. "самого класса"), в котором и описан самоподхват (Set Self = Me) и все прочее. Т.е. "стандартный экземпляр класса", который не умирает пока не вызовете соответствующий метод, или не сбросите программу.

Serge Gavrilov Alexey Shуже писал здесь, нефиг вызывать Application.CurrentDb() больше одного раза.
присвоить глобальной переменной и забыть.

Интересное решение :-)
Но ведь Database может меняться: может добавиться таблица, а ваша глобальная переменная это не заметит.
Ну, Refresh семейств никто не отменял. Надо только делать их выборочно и выигрыш в скорости супротив повсеместного CurrentDB будет на лице

Более того, я и с "темповой" LocaDB так работаю. Пока жив. (где уш тут ашипка праэктирования, когда сама LocaDB может появиться в процессе работы, не говоря о "темповых" таблицах). И при удаленном пополнении базы с данными новыми таблицами (с учетом того, что процедура эта разовая - при модификации структуры) - мне достаточно не забыть сделать Refresh семейств и все.