Сервиспаки на офис и Jet стоят?

2 AlexJS:

нет, я по поводу утечки памяти.

Какова связь между элекстростанцией и CurrentDB ?

Может имеется ввиду, что лучше писать

2 Lenivec :

В в каком воркспэйсе транзакции запускаются?

я тут хохмы ради 100000 раз прогнал CurrentDB().Openrecordset и ни килобайта не утекло. CurrentDb() лучше присвоить переменной, ибо CurrentDB() это просто вызов метода и никакой мистики

1) Транслятор не может "потерять" переменную, речь может идти только об интерпретаторе Р-кода.

2) Мне неизвестны случаи пропажи значения переменных в VBA проекте, в концке концов объекты в VBA - это просто ссылки на IUnknown или IDispatch итерфейс. Либо переменной присвоили Nothing в коде, либо при выполнении случилась неперехваченная ошибка и пользователь вырал вариант "End"

из хелпа к 2003 аксессу

CurrentDb Method
See AlsoApplies ToExampleSpecifics
The CurrentDb method returns an object variable of type Database <mk:@MSITStore:dao360.chm::/html/daobjDatabase.htm> that represents the database currently open in the Microsoft Access window.
expression.CurrentDb
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
Note In Microsoft Access the CurrentDb method establishes a hidden reference to the Microsoft DAO 3.6 Object Library in a Microsoft Access database (.mdb).
In order to manipulate the structure of your database and its data from Visual Basic, you must use Data Access Objects (DAO). The CurrentDb method provides a way to access the current database from Visual Basic code without having to know the name of the database. Once you have a variable that points to the current database, you can also access and manipulate other objects and collections in the DAO hierarchy <mk:@MSITStore:dao360.chm::/html/daconMSJetDatabaseEngine25.htm>.
You can use the CurrentDb method to create multiple object variables that refer to the current database. In the following example, the variables dbsA and dbsB both refer to the current database:
Dim dbsA As Database, dbsB As Database
Set dbsA = CurrentDb
Set dbsB = CurrentDb

Note In previous versions of Microsoft Access, you may have used the syntax DBEngine.Workspaces(0).Databases(0) or DBEngine(0)(0) to return a pointer to the current database. In Microsoft Access 2000, you should use the CurrentDb method instead. The CurrentDb method creates another instance of the current database, while the DBEngine(0)(0) syntax refers to the open copy of the current database. The CurrentDb method enables you to create more than one variable of type Database that refers to the current database. Microsoft Access still supports the DBEngine(0)(0) syntax, but you should consider making this modification to your code in order to avoid possible conflicts in a multiuser database (multiuser (shared) database: A database that permits more than one user to access and modify the same set of data at the same time.).
If you need to work with another database at the same time that the current database is open in the Microsoft Access window, use the OpenDatabase <mk:@MSITStore:dao360.chm::/html/damthOpenDatabase.htm> method of a Workspace <mk:@MSITStore:dao360.chm::/html/daobjWorkspace.htm> object. The OpenDatabase method doesn't actually open the second database in the Microsoft Access window; it simply returns a Database variable representing the second database. The following example returns a pointer to the current database and to a database called Contacts.mdb:
Dim dbsCurrent As Database, dbsContacts As Database
Set dbsCurrent = CurrentDb
Set dbsContacts = DBEngine.Workspaces(0).OpenDatabase("Contacts.mdb")

По поводу инициализации класса.


Класс будет инициализироваться при первом вызове метода
Если проект сбросится - Run->Reset или End - произойдёт новая инициализация