Подскажите причину, почему не откывается рекордсет...

[echo]

ни вот так:

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


Set Rs = db.OpenRecordset(db.TableDefs(td).Name)


Выдаёт ошибку 3265: "Элемент не обнаружен в данном семействе"
ни так:

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


Set Rs = db.OpenRecordset(Worksheets("q").Name)


Выдаёт ошибку 13: Несоответствие типа;

При том, что структура таблицы в Аксесовской базе (Office 97) создана на основе данных с листа "q".

[alibek]

А что есть td? Объект или строковая переменная? И чему оно равно?
В любом случае, проще использовать такое:

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

Set Rs = db.TableDefs(td).OpenRecordset

[echo]

Td это объект
Set td = db.CreateTableDef(Worksheets("q").Select)

[alibek]

Тогда достаточно td.OpenRecordset

[echo]

борода...

[echo]

Блин, а решилось то всё просто.
Вместо

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


     Dim db As Database
     Dim rs As Recordset
     Dim td As TableDef


нужно было

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


     Dim db As DAO.Database
     Dim rs As DAO.Recordset
     Dim td As DAO.TableDef


[alibek]

У тебя видимо еще и ADO подключено. Оставь только DAO и все будет работать и так.

[echo]

alibek

ну вот теперь стало всё совсем понятно. сенки.