@grosh

Помогите не работает поиск. 'Подсунули' 'чужой код' (писал не я), сказали раньше работало, а теперь нет. Выдает ошибку в строке '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

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

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

0

IgorM

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

Замени на:

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

@grosh

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

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

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

0

@psvf

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

0

@grosh

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

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

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

0

@BorisL

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

0

@grosh

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

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

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

0