Ny posts værdi=Forrige posts værdi, but how?

DoCmd.GoToRecord acForm, "Form1", acPrevious, 5
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "Form1", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste

Du skal naturligvis have tilføjet en betingelse der måler, om der er tale om en ny post:

If Me.Newrecord Then
DoCmd.GoToRecord acForm, "Form1", acPrevious, 5
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "Form1", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
End If

Kay...men hvad så hvis jeg vil ændre i nogle af de værdier, jeg har i den forrige post, som f.eks. lægge 1 til et ID, men beholde de andre værdier?

Skal jeg forstå det på den måde, at det nye ID skal være tabellens max værdi i dette felt + 1?

Ja, f.eks, nu er der flere felter der skal ændres, men det er bare et tænkt eksempel :)

if Me.Newrecord Then
DoCmd.GoToRecord acForm, "Form1", acPrevious, 5
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "Form1", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
End If
Me.ID =DMax("FELTNAVN", "TABELNAVN"]+1

Hmm, kan det ikke gøres noget enklere? Jeg prøvede at bakse med noget lig Recordset("ID")=Recordset.Move(-5)("ID")+1, hvilket ikke virkede naturligvis, men det er noget i den stil jeg tænker på, det må da kunne gøres med noget færre linjer :)

OK - Når du finder en løsning med færre kodelinier, så vær så venlig at paste koden ind her, så vi andre kan lære lidt af det :o)

Hvis jeg havde en løsning, spurgte jeg jo heller ikke her, vel? ;) Men jeg ved af erfaring, at de fleste ting kan løses med 1 eller 2 linjer, i det her tilfælde er det bare for længe siden, jeg har bakset med VBA :)

Jeg skrev NÅR du finder en løsning

Jamen, jeg har ikke en løsning, derfor skriver jeg jo her og spørger om andre har en løsning ;) Men det er vel tilladt ikke at godtage hvad som helst, hvis det skaber mere rod end godt er, efter min mening ;)

Har du afprøvet koden?
Hvordan kan du sige, at koden skaber mere rod end godt er?

Nej - Du behøver ikke at godtage den første løsning. Ligesom jeg heller ikke behøver at deltage mere.

Jeg har ikke udtalt mig om kodens virkning, udelukkende om antallet af linjer ;)

En anden mulighed er at bruge RecordsetClone:

If Me.NewRecord Then
  Me.RecordsetClone.MoveLast
  Me.RecordsetClone.Move(-5)
  Me.feltnavn1 = Me.RecordsetClone.Fields("feltnavn1")
  Me.feltnavn2 = Me.RecordsetClone.Fields("feltnavn2")
End If