Kopiere post og ændre feltindhold

Jeg er ved at lave et lille regnskabsprogram med en kassekladde.

I den forbindelse ønsker jeg at kopiere en post til næste post, og derefter ændre indholdet i 2 af felterne i den nye post, nemlig "Kontonummer" og "Beløb"

Jeg har fundet nedenstående kode i en tidligere besvarelse på Eksperten, og den fungerer perfekt, således at posten kopieres ved klik på en kommandoknap.

Dim rs As DAO.Recordset
    Dim Ctrl As Control
    Dim varDataID As Long
   
    varDataID = Me!DataID
    Me.AllowAdditions = True
    DoCmd.GoToRecord , , acNewRec
    Set rs = Me.RecordsetClone
     
    rs.FindFirst "DataID = " & varDataID
    For Each Ctrl In Me
      If Ctrl.Tag = "Kopier" Then
          Ctrl = rs(Ctrl.ControlSource)
      End If
    Next
    DoCmd.RunCommand acCmdSaveRecord
    Me.AllowAdditions = False

Men hvordan får jeg ændret feltindholdet i "Kontonummer" og "Beløb" i den nye post. Kontonummeret skal altid være et bestemt tal (9000).
Beløbet skal svare til beløbet i den kopierede post, bare med omvendt fortegn (det er vist noget med at gange tallet med -1, så skulle fortegnet vende).

Håber der er en (eller flere) der kan hjælpe mig.