oprette nye poster på baggrund af brugerderfineret antal

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, "Form1", acNewRec
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdPaste
VARb = VARb + 1
Loop
MsgBox "slut"

Det var godt nok hurtigt :-)

Og den sætter jeg så ind i AFTER INSERT eller? endvidere hvis jeg har feltet [felt1] som er der hvor brugeren taster antallet af poster som ønskes indsat hvor kommer det så ind i koden? Er ikke så skarp til det her...

Antallet af poster indtastes her i en inputbox:
VARa = InputBox(Prompt:="Antal", Title:="ny værdi", Default:="")

Koden er afprøvet i en kommandoknap, prøv det inden du går videre og se om den fungerer efter hensigten.

Hej Mugs, jeg har prøvet din kode, men kan ikke helt få det til at virke få en fejl med at den ikke vil kopiere... Det vil dog være at foretrække at proceduren sker automatisk ved indtastning i et felt da denne information alligevel skal lagres... Jeg har lavet en test db som jeg meget gerne vil sende til dig hvid ud har tid til at kigge på det...

mugs snabelting mail.dk

Husk at zippe

Sendt

Returneret.

Kan det være du ikke har vedhæfet din udgave, synes den giver samme fejl som før...

Db afprøvet og fungerer her. Fremsendt igen.

Hej igen, virker perfekt!! har dog lige et spørgsmål... hvordan kan det være, at de poster der indsættes ikke kommer til syne i subformen under fanebladet page2, men er at se når jeg åbner formularen subform, de er jo linket sammen??

Det gør de også! Men som du kan se af min kode, tilføjer jeg kun data til feltet navn, og det har du ikke md i din subform, men du bør kunne se x-antal tomme linier i subform.

Jeg sov vist bare lidt i timen, har tilføjet en Me.Refresh så kører det... point på vej!! takker

Prøv at undlade en refresh. Posterne bør være synlige når du åbner subform, så køres der jo en genforespørgsel af den underlilggende tabel. Blot et gæt.

Tak for point.