FindFirst strCriteria

[vbart]

Что не так? Почему-то не работает:

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

Dim db As Database, rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("charSet")
rst.MoveLast
rst.MoveFirst

Dim strCriteria As String

   MsgBox rst.RecordCount 'работает
   MsgBox rst(0) 'работает
   strCriteria = "[charID] = 5"
   rst.FindFirst strCriteria
   Msgbox rst(2)
   


Ругается - "Операция не поддерживается для объектов этого типа" на строке rst.FindFirst strCriteria

[alibek]

Так он же тебе русским/английским языком говорит, что операция не поддерживается для объектов этого типа. Открой recordset как Dynamic.

[echo]

Судя по справке это должно работать и для Static и для Dynamic, я попробовал и так и так у меня тоже не работает.

[vbart]

Судя по справке это должно работать и для Static и для Dynamic

Сущая правда

[АндрейБ]

Честно то же сталкнулся с такой проблемой, надо было найти в небольшой таблице одну запись, обсуждать не было времени, поэтому я сделал тупо, сделал запрос с условием!

[АндрейБ]

Попробуй кстати так (без описания переменной):
rst.FindFirst "charID = 5"
Еще проверь правильность имени поля в критерии и соответствия типа данных этого поля (числовой).
Еще проверь количество записей в Рекордсете: RS.Recordcount
И попробуй описать Рекордесет так:
Set rst = db.OpenRecordset("Select * From charSet;")

[АндрейБ]

Не знаю ради интереса описал все как ты сделал, только описал рекордсет как я тебе советовал и критерий без описания переменой и все работает!
Если поле в критерии текстовое, то еще надо значение в одинарные скобки = 'ЖОПА'. Для числовых как ты и описал.
Удачи.