Kørsel på indtastede poster

Jeg skal have udført følgende "kørsel" på de eksisterende poster i en database. Hvordan gør jeg lettets dette ?

Sådan ser det pt ud når man opretter posten!

Private Sub Releasedatoener_AfterUpdate()
Me.levaavan = DateAdd("d", -10, Me.Releasedatoener)
Me.coverstoc = DateAdd("d", -24, Me.Releasedatoener)
Me.labeltoc = DateAdd("d", -30, Me.Releasedatoener)
Me.menumattoc = DateAdd("d", -40, Me.Releasedatoener)
Me.deadline = DateAdd("d", -50, Me.Releasedatoener)
End Sub