Dlookup - og overføring

Har en tekstboks hvor der sker følgende [Drftdageugen1] + [Drftdageforr1]. værdien fra denne, overføres til boksen [Drftdageforr1].

som følge:


Private Sub Form_Current()

Dim rs As DAO.Recordset
If Me.NewRecord Then
Set rs = Me.Recordset.Clone
rs.MoveLast

Me.Drftdageforr1.DefaultValue = rs![Drftdageugen1] + [Drftdageforr1]

rs.Close
End If

End Sub

problemet er at hvis jeg ikke skriver noget i feltet [Drftdageugen1] inden jeg går tilbage til gamle poster, vil beregningen [Drftdageugen1] + [Drftdageforr1] ske flere gange.

jeg ønsker kun at beregningen sker en enkelt gang og videreføres som ovenfor.

kan man evt bruge Dlookup, for at undgå problmer med beregningen? og hvordan?

mvh

Tavlen