ник: ars_bs
этот код не работает с большим числом записей, подскажите как правильно сделать расчет и тем более это все работает медленно а хочется побыстрее
Sub raschet()
' открываем таблицу raschet
Dim rs As New ADODB.Recordset
rs.Open "raschet", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'переходим на первую запись
rs.MoveFirst
'выполняем условия пока недостигнем конца таблицы
Do Until rs.EOF
'условие периода
If rs("period").Value = Forms![forma1]![period]![period] Then
' произведен или нет учет
If rs("uchet").Value = False Then
' выбирам как расчитывать
Select Case rs("kod_vid_rab").Value
Case "1"
rs("itog").Value = rs("cena").Value * rs("chas").Value * rs("kty").Value - rs("vichet").Value
' rs("kol").Value = 0
'rs.Update
Case "2"
rs("itog") = rs("cena").Value * rs("kol").Value - rs("vichet").Value
rs("chas").Value = 0
rs("kty").Value = 0
'rs.Update
End Select
'Call vidrabot
End If
End If
rs.MoveNext
'rs.Update
Loop
'rs.Update
rs.Close
Set rs = Nothing
MsgBox "Расчет окончен"
End Sub