Naar volgende rij/record in een subformulier

[RANGE700]

Ik heb een formulier met subformulier. IN het subformulier staan de artikelregels.
Zodra het veld "Volume" (Afgegeven_volume_tn) gevuld is, moet er een ander veld worden berekend. Als men op de <Tab> toets drukt, is er niks aan de hand. Maar met een muis-klik of "toets naar beneden" komt er geen vaart in.

Ik vond dit:

Eventueel is dit te reduceren tot:

DoCmd.GoToRecord , , acNewRec

Daarom heb ik in het subformulier vanuit dat veld bij de eigenschap "toets naar beneden" de volgende programmacode toegevoegd:

Private Sub Afgegeven_volume_tn_KeyDown(KeyCode As Integer, Shift As Integer)
Dim dblAfgVol As Double
dblAfgVol = Me.Afgegeven_volume_tn * 1000
Me.Afgegeven_Volume_kg = dblAfgVol

[B]DoCmd.GoToRecord , , acNext[/B]
End Sub

Dit werkt echter ook niet. Hoe moet deze code aangepast worden, zodat ik er voor kan zorgen dat ik met pijl omlaag naar het volgende record ga?

 

[OctaFish]

KeyDown is een vrij zinloze plek om GoToRecord op te triggeren, want dan verandert er nooit meer iets aan je uitkomst. Wil je persé de muisactie gebruiken, dan zou ik MouseDown doen. En dan nog: zolang je in hetzelfde veld staat en het veld niet is opgeslagen, verandert er niks aan de uitkomst.