ACCESS 2003 a kód VBA pro vyvolání funkce – Visual Basic – Fórum – Programujte.com

Zdravím znalce.
Potřeboval bych napsat kód pro zkomfortnění:mám vytvořenou knihu jízd vozidla a do řádku podformuláře(umístěného na formuláři) zapisuji(mimo jiné) i "Km před jízdou" a "Km po jízdě",
a teď představa volané funkce:když otevřu příslušný form s podform,tak když vstoupím s kurzorem do pole "KM před jízdou"(samozřejmě jen v novém záznamu-nesmí platit pro již uložené záznamy),aby se do tohoto pole naplnila nejvyšší hodnota převzatá z "KM po jízdě"(poslední záznam).
Díky za inspiraci.

po vložení něco ve smyslu

if isnull(forms.(myform).form(mysubform).controls(mycontrol) then
ls_sql="select top 1 km from mytable order by id_tabulky DESC"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open ls_sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rst.RecordCount > 0 Then
ldec_km = rst.field.item("KM")
forms.(myform).form(mysubform).controls(mycontrol)=ldec_km
end if
rts.close
end if

případné chyby odlaď , nezkoušeno

maty díky,
budu se tím prokousávat po částech-jen s češtinou na to asi nestačím.