Что дописать что бы не кликать тысячу раз?

2discover
Дата: 06.01.2012 17:58:37
с Рождеством Христовым!!!
Что дописать что бы не кликать тысячу раз? Один клик и до “end of records”

Private Sub Кнопка23_Click()

'запрос который обновляет поле Trk в Ch по критерию
DoCmd.RunSQL "UPDATE Ch SET Ch.rkod = [Forms]![frmUpDt]![txShrNm]" & _
"WHERE (((Ch.kod) Between [Forms]![frmUpDt]![txNfr] And [Forms]![frmUpDt]![txNto]));"

'Чтоб не отрывать курсор автоматом переходим к следующей записи
Form_frmUpDt.Form.Recordset.MoveNext

'Что дописать что бы не кликать тысячу раз? Один клик и до “end of records”

End Sub
ravt
Дата: 06.01.2012 18:00:30
Ну или While do использовать.
Или проверять конец или нет и если нет то вызывать туже процедуру
mds_world
Дата: 06.01.2012 18:15:49
Возможно я ошибаюсь, но кажется, что обновление возможно одним запросом. Без цикла.


Если же все-таки в цикле, то цикл по рекордсету формы. И вместо ссылок на поля формы использовать поля рекордсета.
2discover
Дата: 06.01.2012 18:30:00
mds_world,

Я чайник пробовал вставить код что у меня есть не получается.
Напишите ПОЖАЛУСТО что как конкретно. СПАСИБО
mds_world
Дата: 06.01.2012 19:29:38
dim s
with me.recordsetclone
  .movefirst
  do until .eof
    s="UPDATE Ch SET Ch.rkod = " & .fields("txShrNm") _
    & " where Ch.kod Between " & fields("txNfr") & " And " & .fields("txNto")
    currentdb.execute s
    .movenext
  loop
end with

Не проверял ...
2discover
Дата: 06.01.2012 21:53:58
mds_world,

Private Sub UpDate_Click()
Dim s
With Me.RecordsetClone
.MoveFirst
Do Until .EOF
s = "UPDATE Ch SET Ch.rkod = " & .Fields("txShrNm") _
& " where Ch.kod Between " & Fields("txNfr") & " And " & .Fields("txNto")
CurrentDb.Execute s
.MoveNext
Loop
End With

End Sub

не работает
ё
Дата: 06.01.2012 22:14:45
мы (я и мой хрустальный шар), ставим на то,
что у ТС, поля в источнике и поля-контролы на форме - называются по разному ))
mds_world
Дата: 06.01.2012 22:15:18
Вот прямо так и пишет
не работает


Или еще что-то сообщает?
ТвердолобыйЛамер
Дата: 06.01.2012 23:19:00
mds_world
" & fields("txNfr") & "

А может так? не?
mds_world
" & .fields("txNfr") & "