Run code multiple times VBA

Question

I am using this to copy the current record and add new (simler records) to the table.

DoCmd.RunCommand acCmdSelectRecord

DoCmd.RunCommand acCmdCopy

DoCmd.RunCommand acCmdRecordsGoToNew

DoCmd.RunCommand acCmdSelectRecord

DoCmd.RunCommand acCmdPaste

I then have a code that alters certain fields.

Is it possible to run this multiple times.

For example if I have a text box and add 3 or 6 or 16 the code would run 3 or 6  o 16 times.

Thanks you

Answer 1

As long as you don't copy anything else to the clipboard, the record will remain on the clipboard, so you might try something like this:

    Dim i As Long

    Dim n As Long

    DoCmd.RunCommand acCmdSelectRecord

    DoCmd.RunCommand acCmdCopy

    n = Val(Me.txtNumber)

    For i = 1 To n

        DoCmd.RunCommand acCmdRecordsGoToNew

        DoCmd.RunCommand acCmdSelectRecord

        DoCmd.RunCommand acCmdPaste

        ...

        ...

    Next i