Есть ли необходимость устанавливать для объектов ничего в функциях VBA

Сбор мусора редко бывает совершенным. Даже в .NET есть моменты, когда вам настоятельно рекомендуется запрашивать систему для сбора мусора раньше.

По этой причине я явно и закрываю и устанавливаю в записи Nothing, когда я с ними закончил.

Самая последняя строка раздела справки для Recordset.Close" в справке Microsoft DAO и в Справочнике разработчиков Access:

"Альтернативой методу Close является для установки значения переменной объекта в Nothing (установите dbsTemp = Nothing).

http://msdn.microsoft.com/en-us/library/bb243098.aspx

С учетом этого в этой статье из базы знаний Microsoft, озаглавленной "Как предотвратить раздувание базы данных после использования объектов доступа к данным (DAO)", говорит вам, что вы должны явно закрыть, если вы не хотите, чтобы ваши базы данных раздувались. Вы заметите, что статья немного расплывчата в деталях; раздел "Причина" неясен, почти до такой степени, что он является тарабарщиной.

http://support.microsoft.com/kb/289562

СИМПТОМЫ: база данных Microsoft Access начал раздуваться (или быстро расти размер) после внедрения Data Access Объекты (DAO), чтобы открыть набор записей.

ПРИЧИНА: Если вы не каждый раз, когда вы цикл через код набора записей, DAO может перекомпилировать, используя больше памяти и увеличивая размер базы данных.

ДОПОЛНИТЕЛЬНАЯ ИНФОРМАЦИЯ: Когда вы создаете Объект Recordset (или QueryDef) в код, явно закрыть объект, когда вы закончили. Microsoft Access автоматически закрывает Recordset и Объекты QueryDef в большинстве обстоятельства. Однако, если вы явно закрыть объект в вашем кода, вы можете избежать случайных случаях, когда объект остается открыто.

Наконец, позвольте мне добавить, что я работаю с базами данных Access в течение 15 лет, и я почти всегда позволяю моим локально объявленным переменным набора записей выйти из области действия без явного использования метода Close. Я не проводил никаких испытаний, но это, похоже, не имеет значения.

Когда вы используете ASP classic (скрипты на стороне сервера), импортировать все объекты нечего, когда вы с ними работаете, потому что они не выходят за пределы области действия до тех пор, пока [виртуальный] сервер не будет закрыт.

По этой причине все примеры сценариев MS VB всегда показывали закрытые объекты и ничего не задавали. Чтобы фрагменты script можно было использовать в таких средах, как ASP classic, где объекты не выходили за рамки.

Редки случаи, когда вы хотите кодировать длительные процессы, в которых объекты не выходят за пределы области видимости, и вы обнаруживаете, что у вас закончилась физическая память, если вы явно не освобождаете объекты.

Если вы обнаружите, что кодирование ASP classic или запуск процессов в глобальной области по какой-либо другой причине, то да, вы должны явно освобождать объекты.

Предполагается, что ссылки очищаются, когда переменная выходит за рамки. Предположительно, это улучшилось с более поздними версиями программного обеспечения, но оно в свое время не было надежным. Я считаю, что остается хорошей практикой явно устанавливать переменные в "Nothing".

Обычно я всегда ставил это в конце моих процедур или вызывал его с помощью "CloseRecordSet", если я использую модули уровня:

Private Sub Rawr()
On Error GoTo ErrorHandler

    'Procedural Code Here.

    ExitPoint:
        'Closes and Destroys RecordSet Objects.
        If Not Recset Is Nothing Then
            If Recset.State = 1 Then
                Recset.Close
                Conn.Close
            End If
            Set Recset = Nothing
            Set Conn = Nothing
        End If
        Exit Sub

    ErrorHandler:
        'Error Handling / Reporting Here.
        Resume ExitPoint
End Sub

Таким образом, процедура заканчивается (обычно или из-за ошибки), объекты очищаются и ресурсы свободны.

Выполнение этого способа вполне безопасно, поскольку вы можете просто пощекотать его, и он будет делать только то, что необходимо для закрытия или уничтожения объекта набора записей/соединения, если он уже закрыт (из-за ошибка времени выполнения или просто закрытие его на ранней стадии, как это должно быть, просто убедитесь, что).

На самом деле это не так много хлопот и всегда лучше очищать свои объекты, когда вы закончите с ними, чтобы освободить ресурсы сразу, независимо от того, что происходит в программе.

Попробуйте это

If Not IsEmpty(vMyVariant) Then
    Erase vMyVariant
    vMyVariant = Empty
End If