Люди, хочу изменить значение в рекордсете формы по отобранным данным. Как это сделать?

FindFirst наверное будет долго и глупо, а вот как-нить recordset where.

УГУ так сейчас и работает, а через рекордсет реально?

Может это в отдельную тему надо, но вот вопрос по Requery. Есть форма, в ней вложенная ленточная. В главной форме Form_Activate() в которой Вложенная.requery. Ставлю галку во вложенной ленточной, потом если переключиться в другое окно, при возвращении он пишет - "Необходимо сохранить тиекущее поле передвыполнением макрокоманды Обновление". C чем это может быть связано?

2 paparome: А действительно! :)

Нужно, вот для чего. В форму идут преобразованные ID, поэтому в рекордсете формы будет легче выделить однородную группу по одному ID. Нсли идти по currentdb.execute, то это будет долго.

Хотелось бы через рекордсет. Это реально? или ничего не остается, кроме как findfirst?

Люди, ну неужели нельзя как-то хитро воспользоваться recordsetclone(where), потом синхронизировать(как?) как-нить эти рекордсеты.

2 GEO
автор
Нсли идти по currentdb.execute, то это будет долго.

Сомневаюсь я что-то...

Каждый ID в таблице контекстно закодирован, поэтому нужно будет писать раскодировку на все записи, после чего уже делать что-либо - это долго (проверено).

Но почему бы не оставить в таком случае в форме скрытое поле с непреобразованным ид? В MDB этого делать даже не надо, просто пишем

В источнике данных формы уже есть раскодированное поле, именно поэтому и был задан вопрос по работе именно с данными формы, а не таблицы.

А что значит "легче выделить группу"?

вообще цель: очистить флаги у строк с определенным ID (Кстати, он не уникален)

Нет определенного ID таблице - он закодирован и его показывать, временно сохраняя где-либо, нельзя!!!

Получится так:
Update tbl1
Set flag = false
where id = [Раскодировка(ваш определенный ID)]

это долго. :)

Private Sub flag_AfterUpdate()
Dim prep As Long, s As Long
If flag Then
prep = [ Код ]
PredCena (prep)
With Me.Recordset
s = ![ Index ]
.FindFirst ("[ Код ]=" & prep & " and [ Флаг ]=true and Index <>" & s)
If Not (.NoMatch) Then
Do
.Edit
![ Флаг ] = False
.Update
.FindNext ("[ Код ]=" & prep & " and [ Флаг ]=true and Index <>" & s)
Loop Until .NoMatch
End If
End With
End If
End Sub

Все работает, но идет какое-то нелепое обновление формы, сразу по нескольким полям, хотя "я их нэ заказывал".

Index нужен только для того, чтобы не стирать флаг там, где мы его ставим(он уникален).
Код - это раскодированный ID в форме (он не уникален)
Флаг - цель всего. :)

1)Возможно, вместо Index как-то использовать Bookmark?
2)точно не знаю, но если проводить все на recordsetclone, наверное все будет быстрее. Как потом синхронизировать изменения флагов?
3)Возможно ли выделить как-то recordset(where) типа pr=[Код]: recordset("select * where [Код]=" & pr) и воспользоваться movenext. (Чтобы уйти от Find)?
4)Если по п.№3 будет отдельный рекордсет, то как потом синхронизировать?

Вот... Спасибо заранее.

Похоже просто идет самопроизвольное обновление все подчиненной формы.

Смотри сюда:

Private Sub flag_AfterUpdate()
Dim prep As Long, s As Long, rec As DAO.Recordset
If flagThen
prep = [Код]
s = Me.Recordset![Index]
Me.RecordsetClone.Filter = "[Код]=" & prep & " and [Флаг]=true and Index<>" & s
Set rec = Me.RecordsetClone.OpenRecordset
While Not rec.EOF
rec.Edit
rec![Флаг] = False
rec.Update
rec.MoveNext
Wend
flag.Requery
End If
End Sub

И у тебя все работает. Чисто и аккуратно.

Спасибо!!!!! Это то, что надо!!! :)

Аай, люди, оказывается Recordsetclone в купе в requery не очень-то чисто и гладко работает.

Как можно синхронизировать изменения me.recordsetclone c me.recordset???