Открытие большего числа таблиц невозможно - err 3014(Access)

[CoolTeapot]

Имеется Data1, подключенная к запросу базы ACCESS 2000
В процессе работы необходимо применять фильтры, типа "Фильт по выделенному", "Исключить выделенное", реализованные так:

1. меняем свойство

Код: Выделить всё

Me.Data1.Recordset.Filter = "[" & Name_Field & "]" & " <> '" & Value_Field & "'"

или:

Код: Выделить всё

Me.Data1.Recordset.Filter = "[" & Name_Field & "]" & " <> " & Value_Field

в зависимости от типа данных и

2. применяем фильтр

Код: Выделить всё

Set Me.Data1.Recordset = Me.Data1.Recordset.OpenRecordset

В результате после 10-15 таких фильтраций начинаются проблемы:

то в коде:

Код: Выделить всё

    Me.Data1.Recordset.Edit
    Me.Data1.Recordset![X] = returnPnt(0)
    Me.Data1.Recordset![Y] = returnPnt(1)
    Me.Data1.Recordset![Z] = returnPnt(2)
    Me.Data1.Recordset.Update


перестаёт работать метод update, то вылазит ошибка 3014 (Открытие
большего числа таблиц невозможно)

Удаление фильтра (смена на другой источник):

Код: Выделить всё

Me.Data1.RecordSource = "Запрос1"
Me.Data1.Refresh


тоже не фурычит.

У меня подозрения на то, что в памяти зависает копия таблицы при каждой фильтрации.

Может кто знает как это лечится или более рациональный способ фильтрации.[/code]

[CoolTeapot]

Похоже в базах здесь не шарят

[GSerg]

Я бы сказал, что нужно перед сменой фильтра делать Data1.Recordset.Close...

[CoolTeapot]

Я бы сказал, что нужно перед сменой фильтра делать Data1.Recordset.Close...

Если делать так то теряются накопленные фильтры.

Я пошёл другим путём:
накапливаю SQL запросы:
strSQL = "[" & Name_Field & "]" & " <> " & Value_Field
strSQLFull = strSQLFull & " AND " & strSQL
и затем применяю:
Me.Data1.RecordSource = "SELECT * FROM [" & NameCurTable & "] WHERE (" & strSQLFull & ")"
Me.Data1.Refresh

В результате проблем ещё небыло (посмотрим когда база разрастётся).
И undo-redo фильтрации стало проще организовать.

p.s. при этом варианте можно попробовать и close