Проблема с поиском FindFirst. Помогите, plz.

@grosh · Регистрация: 09.12.2009

Студворк — интернет-сервис помощи студентам

Помогите не работает поиск. 'Подсунули' 'чужой код' (писал не я), сказали раньше работало, а теперь нет. Выдает ошибку в строке 'rst.FindFirst strCriteria'(Run-time error '3251'
'!!!Операция не поддерживается для объектов этого типа)
Заранее спасибо, может можно заменить строку поиска, SQL запросом?

Public Function ФормРасх(КодПрих, НомерПрих) As Boolean
Dim dbs As Database, rst As DAO.Recordset, rstОбщРасх As DAO.Recordset
Dim КолТовара, КодЗаказа
Dim strCriteria As String

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset('ПунктыЗаказа')
Set rstОбщРасх = dbs.OpenRecordset('ОбщРасх')

Do Until rstОбщРасх.EOF
If rstОбщРасх![РазнПр] > 0 Then
strCriteria = '[КодЗаказа]='' & Trim(Str(КодПрих)) & ''' & ' AND [КодТовара]='' & Trim(Str(rstОбщРасх![КодТовара])) & '''
rst.FindFirst strCriteria
Do Until rst.NoMatch
КолТовара = rst![Количество]
If КолТовара - rstОбщРасх![РазнПр] > 0 Then КолТовара = rstОбщРасх![РазнПр]

rstОбщРасх.Edit
rstОбщРасх![РазнПр] = rstОбщРасх![РазнПр] - КолТовара
rstОбщРасх.Update
rst.AddNew
rst!КодЗаказа = КодЗаказа
rst!ТипСтруктуры = 3
rst!КодТовара = rstОбщРасх![КодТовара]
rst!Название = rstОбщРасх![ОписаниеТовара]
rst!Количество = КолТовара
rst!Стоимость = rstОбщРасх![Цена1]
rst!КатОплаты = 1
rst.Update
rst.FindNext strCriteria 'здесь та же ошибка
Loop
End If
rstОбщРасх.MoveNext
Loop

Помогите!!

... пожалуйста...

@BorisL · 09.12.2009, 15:31

Пока помочь не могу, но хочу уточнить:
Раньше работало на А97 (другое)
Перестало работать при переходе на А2000, SQL-сервер, (другое)
при переходе на Win2000 (другое)

Чем лучше будет описана ситуация, тем быстрее найдется ответ ;-))

09.12.2009, 15:37

Set rst = dbs.OpenRecordset('ПунктыЗаказа')
Set rstОбщРасх = dbs.OpenRecordset('ОбщРасх')

Замени на:

Set rst = dbs.OpenRecordset('ПунктыЗаказа', dbOpenDynaset)
Set rstОбщРасх = dbs.OpenRecordset('ОбщРасх', dbOpenDynaset)

@grosh · 09.12.2009, 19:20 **[ТС]**

to IgorM
Спасибо, завтра попробую..., но по-моему я так писал(подсмотрел здесь в форуме), ошибка та же...

to BorisL
Да 'раньше' работало в 'связке' Вин98+Access2000, перестало работать под ВинХР, 2000+ Access2000. Хотя есть машина вин98+Аксес2000, так тоже не работает...

(

Продолжаю внимательно выслушивать ЛЮБЫЕ полезные советы...
Всем еще раз спасибо

@psvf · 10.12.2009, 04:12

По умолчанию XP устанавливает ADO, а в ADO у объекта Recordset есть только функция - Find
проверь библиотеки, похоже у тебя в References присутствует строка: 'Microsoft ActiveX Data Objects 2.1 Library' - установи вместо нее (или дополнительно) библиотеку DAO ('Microsoft DAO 3.6 Objects Library')..

@grosh · 10.12.2009, 09:32 **[ТС]**

Set rst = dbs.OpenRecordset('ПунктыЗаказа', dbOpenDynaset)- не помогло, но строку я так оставлю, т.к. проблема видимо не в этом.

to psvf
Да действительно у меня были включены обе эти библиотеки, я ADO отключил...

И в чем тут дело....

@BorisL · 10.12.2009, 10:11

Проверьте в отладчике - ошибка возникает при первом обращении или при последующих. Имею подозрение, что после добавления записей нужно делать Rst.Requery

@grosh · 10.12.2009, 19:15 **[ТС]**

Всем БОЛЬШОЕ СПАСИБО за участие и ПОМОЩЬ.

IgorM - посказка верная. Спасибо (еще раз

).
psvf - отключил ADO. помогло. Спасибо.
BorisL - ошибка возникала при первом обращении, замечание учту. Спасибо за советы.

Если что, то знаю где...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@grosh 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 10

	Проблема с поиском FindFirst. Помогите, plz. 09.12.2009, 12:57. Показов 4117. Ответов 7 Метки нет (Все метки) Помогите не работает поиск. 'Подсунули' 'чужой код' (писал не я), сказали раньше работало, а теперь нет. Выдает ошибку в строке 'rst.FindFirst strCriteria'(Run-time error '3251' '!!!Операция не поддерживается для объектов этого типа) Заранее спасибо, может можно заменить строку поиска, SQL запросом? Public Function ФормРасх(КодПрих, НомерПрих) As Boolean Dim dbs As Database, rst As DAO.Recordset, rstОбщРасх As DAO.Recordset Dim КолТовара, КодЗаказа Dim strCriteria As String Set dbs = CurrentDb Set rst = dbs.OpenRecordset('ПунктыЗаказа') Set rstОбщРасх = dbs.OpenRecordset('ОбщРасх') Do Until rstОбщРасх.EOF If rstОбщРасх![РазнПр] > 0 Then strCriteria = '[КодЗаказа]='' & Trim(Str(КодПрих)) & ''' & ' AND [КодТовара]='' & Trim(Str(rstОбщРасх![КодТовара])) & ''' rst.FindFirst strCriteria Do Until rst.NoMatch КолТовара = rst![Количество] If КолТовара - rstОбщРасх![РазнПр] > 0 Then КолТовара = rstОбщРасх![РазнПр] rstОбщРасх.Edit rstОбщРасх![РазнПр] = rstОбщРасх![РазнПр] - КолТовара rstОбщРасх.Update rst.AddNew rst!КодЗаказа = КодЗаказа rst!ТипСтруктуры = 3 rst!КодТовара = rstОбщРасх![КодТовара] rst!Название = rstОбщРасх![ОписаниеТовара] rst!Количество = КолТовара rst!Стоимость = rstОбщРасх![Цена1] rst!КатОплаты = 1 rst.Update rst.FindNext strCriteria 'здесь та же ошибка Loop End If rstОбщРасх.MoveNext Loop Помогите!! ... пожалуйста... 0

@BorisL 5 / 5 / 0 Регистрация: 19.03.2009 Сообщений: 743
	09.12.2009, 15:31
	Пока помочь не могу, но хочу уточнить: Раньше работало на А97 (другое) Перестало работать при переходе на А2000, SQL-сервер, (другое) при переходе на Win2000 (другое) Чем лучше будет описана ситуация, тем быстрее найдется ответ ;-)) 0

IgorM
	09.12.2009, 15:37
	Set rst = dbs.OpenRecordset('ПунктыЗаказа') Set rstОбщРасх = dbs.OpenRecordset('ОбщРасх') Замени на: Set rst = dbs.OpenRecordset('ПунктыЗаказа', dbOpenDynaset) Set rstОбщРасх = dbs.OpenRecordset('ОбщРасх', dbOpenDynaset)

@grosh 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 10
	09.12.2009, 19:20 [ТС]
	to IgorM Спасибо, завтра попробую..., но по-моему я так писал(подсмотрел здесь в форуме), ошибка та же... to BorisL Да 'раньше' работало в 'связке' Вин98+Access2000, перестало работать под ВинХР, 2000+ Access2000. Хотя есть машина вин98+Аксес2000, так тоже не работает... ( Продолжаю внимательно выслушивать ЛЮБЫЕ полезные советы... Всем еще раз спасибо 0

@psvf 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 3
	10.12.2009, 04:12
	По умолчанию XP устанавливает ADO, а в ADO у объекта Recordset есть только функция - Find проверь библиотеки, похоже у тебя в References присутствует строка: 'Microsoft ActiveX Data Objects 2.1 Library' - установи вместо нее (или дополнительно) библиотеку DAO ('Microsoft DAO 3.6 Objects Library').. 0

@grosh 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 10
	10.12.2009, 09:32 [ТС]
	Set rst = dbs.OpenRecordset('ПунктыЗаказа', dbOpenDynaset)- не помогло, но строку я так оставлю, т.к. проблема видимо не в этом. to psvf Да действительно у меня были включены обе эти библиотеки, я ADO отключил... И в чем тут дело.... 0

@BorisL 5 / 5 / 0 Регистрация: 19.03.2009 Сообщений: 743
	10.12.2009, 10:11
	Проверьте в отладчике - ошибка возникает при первом обращении или при последующих. Имею подозрение, что после добавления записей нужно делать Rst.Requery 0

@grosh 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 10
	10.12.2009, 19:15 [ТС]
	Всем БОЛЬШОЕ СПАСИБО за участие и ПОМОЩЬ. IgorM - посказка верная. Спасибо (еще раз ). psvf - отключил ADO. помогло. Спасибо. BorisL - ошибка возникала при первом обращении, замечание учту. Спасибо за советы. Если что, то знаю где... 0