Rivkin DmitryКогда я там бывал - разница с Москвой была 2 часа (Израиль с Москвой впереди на 1 час), но судя по 6 июля с тех пор они значительно нас обогнали :)))
Мы такие, к концу рабочего дня еще не то можем.
А вообще то я по делу.
Где-то туплю
Вот что у меня получилось
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("оплата", dbOpenDynaset)
SummaP = 10000
With rs
Do While Not .EOF
.Edit
If SummaP >= !Dolg Then
!Opl = !Dolg
Else
If SummaP < !Dolg Then
!Opl = SummaP
End If
End If
SummaP = SummaP - !Opl
If SummaP = 0 Then
Exit Do
End If
.Update
.MoveNext
Loop
If SummaP > 0 Then
MsgBox "лишних денег " & SummaP
End If
End With
End Sub
не срабатывает второе условие
SummaP < !Dolg ,Т.е. Когда сумма перестает быть больше или равна долгу,
молча не добавляет остаток.
Ставлю точку останова на это место
SummaP = SummaP - !Opl
Значения все правильные
