Перевод штуковин Voldi на нормальный язык и прочее

[Voldi]

Juris
Да, конечно, возможность индивидуальной коррекции профилей это правильно, а место укола это изыски. Посмотрим, что скажет, его величество, пользователь. Про Do Until, Data.Recordset.Edit, MSChart не утруждайся, для меня это пустые звуки, безнадежный случай.

[Juris]

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 путь к нужной таблице БД. И все дела. Но не стал этого делать, чтобы избежать путаницы. Как повелось с самого начала конкретная директория установки, так пусть и будет.

[DeLi]

Эт, говорят, все просто...

Даааа.., уж так просто, так просто.
Издеваетесь, господа

А я вот все хочу спросить - нельзя ли все ж таки приземлить эту задачу? Ну, как там тема называется"по переводу штуковин Voldi на нормальный язык" ?
Все жду терпеливо, когда же можно будет ЭТИМ простым рядовым посетителям пользоваться?
Ну НЕ МОГУ я разобраться, как это Володя так лихо анализирует???
Не понимаю...
А доставать его просьбами, так света белого не взвидит

Юра, если нельзя это вставить в программу
( да может и не надо. Не угонишься же переставлять программу, ты вон то и дело ее модернизируешь )
Может быть, можно просто какую-то махонькую программку сочинить, ОТДЕЛЬНУЮ, чтобы это работало и было все понятно ?????????

[Voldi]

DeLi
Если установишь на своем компе FoxPro 2.X, отправлю тебе свой вариант с объяснениями. Только сообщи, профили каких инсулинов туда заложить.

Juris
Спасибо за разъяснения, но, все равно, ни бум-бум. Я же говорю, безнадежный случай! Не утруждайся!