ник: kot_k_k
код работает правильно - это вы от него хотите совсем другое, что не знаю мелафона.net
если хотим чтобы значение rs.Fields(4) = e - менялось - а оно из формы то нужен синхронный переход в форме по ёё записям, а яго из эпсент.
поэтому
Dim rs_ФОРМА As DAO.Recordset
Set rs = db.OpenRecordset(strSql)
set rs_ФОРМА=me.recordsetclone
'rs.MoveLast - на фиг с пляжа
'rs.MoveFirst - и это тоже
Do Until rs.EOF ' начало цикла
If rs_ФОРМА!id_kat_zak = 2 Then ' а на кой придумали оператор Select case
k = Me.Всего_гр
e = a * k
ElseIf c = 3 Then
e = Me.Всего_гр
ElseIf (c = 4 Or 5 Or 10) And (d = 1 And w = 2) Then
e = Me.Всего_взр
ElseIf (c = 4 Or 5 Or 10) And (d = 1 And w = 1) Then
e = Me.Детей
Else
e = 0
End If
rs.Edit ' редактирование
rs.Fields(4) = e ' присваение значению переменной нужной мне расчётной величины
rs.Update
rs_ФОРМА.MoveNext
rs.MoveNext ' а вот тута по логике нужно переходить на поле которое соотвествует ФОРМЕ - не факт что они синхронны
Loop
|