kopiering af en post

dim VARa as integer
dim VARb as integer
VARa = inputbox(Prompt:="Antal", Title:="ny værdi", default:="")
VARb = 0
do until VARB = VARa
docmd.runcommand accmdselectrecord
docmd.runcommand accmdcopy
docmd.gotorecord acform, "FORMULARNAVN", acnewrecord
docmd.runcommand accmdselectrecord
docmd.runcommand accmdoaste
VARb = VARb + 1
loop
msgbox "slut"

Og så glemte jeg jo lige det med den primære nøgle, som jeg går ud fra er et autonummer i tabellen. Hvis ID IKKE er med i din formular, kan du kopiere direkte i formularen. Hvis ID er med i formen er du nødt til at fjerne det, jeg ved ikke om egenskaben synlig = Nej er nok, ellers åbn en anden formular og foretag kopieringen her.

Stavefejl i denne linie:

docmd.runcommand accmdoaste

skal være:

docmd.runcommand accmdpaste

>>mugs
Turbo: Hvis der nu er tale om mange kopier, kunne man overveje at nøjes med at udføre accmdcopy én gang og så bare lægge accmdpaste i løkken - eller hvad?

Ja - Denne fungerer også:

Dim VARa As Integer
Dim VARb As Integer
VARa = InputBox(Prompt:="Antal", Title:="ny værdi", Default:="")
VARb = 0
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
Do Until VARb = VARa
DoCmd.GoToRecord acForm, "FORMULARNAVN", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
VARb = VARb + 1
Loop
MsgBox "slut"

Nemlig!  ;o)

Som altid et godt svar fra mugs, tak her fra :o)

selv tak :o)