Voldi
Да это все просто. Это выглядит примерно так :
Data1.Recordset.MoveFirst
Data2.Recordset.MoveFirst
Dim A1 As Single
A1 = Text1
Do Until Data2.Recordset.Fields("time") = A1
Data2.Recordset.MoveNext
Loop
Data2.Recordset.MoveNext
Do Until Data1.Recordset.Fields("novorapid") = 0 Or Data2.Recordset.EOF
Data2.Recordset.Edit
Data2.Recordset.Fields("novorapid1") =
Data1.Recordset.Fields("novorapid") * Text16
Data2.Recordset.Update
Data2.Recordset.MoveNext
Data1.Recordset.MoveNext
Loop
Итак для каждого инсулина
А потом в завершение:
Private Sub Summa()
Data2.Recordset.MoveFirst
Do Until Data2.Recordset.EOF
Data2.Recordset.Edit
Data2.Recordset.Fields("summa") =
Data2.Recordset.Fields("novorapid1") +
Data2.Recordset.Fields("novorapid2") +
Data2.Recordset.Fields("novorapid3") +
Data2.Recordset.Fields("novorapid4") +
Data2.Recordset.Fields("novorapid5") +
Data2.Recordset.Fields("aktrapid1") +
Data2.Recordset.Fields("aktrapid2") +
Data2.Recordset.Fields("aktrapid3") +
Data2.Recordset.Fields("aktrapid4") +
Data2.Recordset.Fields("aktrapid5") +
Data2.Recordset.Fields("protafan1") +
Data2.Recordset.Fields("protafan2") +
Data2.Recordset.Fields("protafan3") +
Data2.Recordset.Fields("lantus1") +
Data2.Recordset.Fields("lantus2") +
Data2.Recordset.Fields("humalog1") +
Data2.Recordset.Fields("humalog2") +
Data2.Recordset.Fields("humalog3") +
Data2.Recordset.Fields("humalog4") +
Data2.Recordset.Fields("humalog5") +
Data2.Recordset.Fields("humulinR1") +
Data2.Recordset.Fields("humulinR2") +
Data2.Recordset.Fields("humulinR3") +
Data2.Recordset.Fields("humulinR4") +
Data2.Recordset.Fields("humulinR5") +
Data2.Recordset.Fields("humulinN1") +
Data2.Recordset.Fields("humulinN2") +
Data2.Recordset.Fields("humulinN3")
Data2.Recordset.Update
Data2.Recordset.MoveNext
Loop
Data2.Refresh
Как видишь все простенько
Кстати, хотел заодно сделать так, чтобы программа устанавливалась где угодно (по желанию пользователя). Это очень просто. Надо всего лишь при открытии формы с помощью оператора With задать путь элементам Data на (App.Path & "\Fizo.mdb") и задать RecordSource путь к нужной таблице БД. И все дела. Но не стал этого делать, чтобы избежать путаницы. Как повелось с самого начала конкретная директория установки, так пусть и будет.