Kopier fra forrige post til denne

Hej spg
Du kan oprette en kommandoknap med guiden slået til, på listen kan du vælge posthandlinger, og derefter vælge dubliker post. Det skulle gøre tricket omend det måske kan virke lidt primitivt :o)

Hvis du kan nøjes med et felt ad gangen kan du bare trykke ctrl+' i de enkelte felter.

aandersen>Posterne er oprettet, så det er ikke den sidste post i sættet der skal skrives til...
jkrons>det er 3 felter, som skal kopieres til efterfølgende post (i postkildens forespørgsel)

Udfører kopiering, flyt til ny og indsæt i een arbejdsgang:
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "Form1", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste

Gå x antal poster tilbage, kopier og indsæt som ny:

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

Hvis du har felterne A1,A2 og A3 og en KNAP kan du bruge følgende
VBA-kode:

Dim B1 As Variant
Dim B2 As Variant
Dim B3 As Variant

Private Sub A1_AfterUpdate()
            B1 = [A1]
End Sub

Private Sub A2_AfterUpdate()
            B2 = [A2]
End Sub

Private Sub A3_AfterUpdate()
            B3 = [A3]
End Sub

Private Sub KNAP_Click()
            [A1] = B1
            [A2] = B2
            [A3] = B3
End Sub

mugs>jeg tror jeg kan bruge din ide, men følgende som er det, jeg ønsker at gøre, virker ikke:

DoCmd.GoToRecord acForm, "traeningsplanmedarb", acPrevious
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "traeningsplanmedarb", acNext
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste

Nu skriver du ikke hvilke fejlsymptomer du får. Sker der bare ikke spor eller får du en fejlmeddelelse? Men prøv denne, og se iøvrigt min sidste kode med "x antal poster":

DoCmd.GoToRecord acForm, "traeningsplanmedarb", acPrevious,1
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "traeningsplanmedarb", acNext
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste

15:08:00>Der sker det samme som med mit eget forslag; ingenting... Men focus ender på knappen posten før.

!~(

Jeg ved ikke hvad der kan være galt. I min lille testdb fungerer min kode perfekt.

Men bemærk denne linie:

DoCmd.GoToRecord acForm, "traeningsplanmedarb", acNext

Hvis du står i den sidste post, så går du 1 post tilbage, vælger den og kopierer, derefter går du en post frem så du nu står i den sidste post igen vælger denne og indsætter. Var det ikke meningen du skulle indsætte en ny post? I så fald skal linien se således ud:

DoCmd.GoToRecord acForm, "traeningsplanmedarb", acNewRec

Jeg tænker lige.....................................................................................

Jeg kan ikke få noget til at virke og jeg er blevet sat på anden opgave, jeg må derfor vende tilbage til dette problem på et andet tidspunkt. Jeg ved ikke om jeg har fået svaret, som jeg kan bruge, så derfor fordeler jeg point efter jeres besvær.

Tak for hjælpen!~)