Autoudfyld nye poster

Denne kopierer den aktive post og indsætter den som en ny post. Lad os starte med det soim udgangspunkt:

Private Sub Kommandoknap131_Click()
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "FORMULARENS NAVN", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
End Sub

Det ser rigtig fornuftigt ud, jeg prøver det af i morgen.

Jeg tror faktisk at jeg kan løse resten af problemet med en opdateringsforespørgsel. Du gav mig nemlig lige en ide ;)=

Jeg tror at point er dine, men jeg vil gerne holde den åben et par dage endnu og se om der er kloge hoveder der har et bedre forslag. Det jeg tænker på giver nemlig en lidt langsom responstid.

Er det muligt at kombinere det du skriver med at en dialogboks popper op ved klik, hvori man angiver hvor mange gange paste?

Jeg kan sende dig et par eksempler hvis du lægger din e-mail

Private Sub Kommandoknap135_Click()
Dim a As Integer, b
b = InputBox(Prompt:="Hvor mange gange vil du kopiere?", Title:="Kopier post.", Default:="")
Do Until a = b
a = a + 1
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acForm, "FORMULARENS NAVN", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
Loop

meget gerne

EMAILrolf@veinoe.dkEMAIL

uden EMAIL

Den du har skrevet der ser helt logisk og brugbar ud.

Sendt.

Og:

This is the Postfix program at host pfepc.post.tele.dk.

I'm sorry to have to inform you that the message returned
below could not be delivered to one or more destinations.

For further assistance, please send mail to <postmaster>

If you do so, please include this problem report. You can
delete your own text from the message returned below.

The Postfix program

<EMAILrolf@veinoe.dk>: host mail.web-solutions.dk[212.130.14.203] said: 550
    5.1.1 <EMAILrolf@veinoe.dk> User unknown; rejecting

Sikkert min fejl - Har prøvet igen.

har modtaget dine mails - takker

Jeg havde for mange relationer til at kunne gøre det du foreslog, så jeg løste vha. en tilføjelsesforespørgsel.
Du får point fordi du gav mig ideen ;)