Creating Multipule records

[Icewolf0927]

Hi



I am pretty sure I wont be able to do what I want to do but I thought I would ask. I have a field that hold the number of transactions. I was wondering is there a way to take that number and create a record for each transaction. If the field has 300 in it then it would need to create 300 rows.



Thanks
Andy

[weekend00]

what do you need to put in the 300 rows?

[Icewolf0927]

There doesn't have to be any special information in there. See the problem is the database I am getting the information from doesn't have all the information. In a perfect world the analyst would enter the SSN in but they aren't doing that all they are doing is enters the number of SSN they added. We don't have an easy way of getting the SSN.

[weekend00]

Following code copy record from table1(you table with transction number) to table2, you need to create table2 before run the code. if your field name is not "numberOfTransaction", please change the code.

Public Sub a()
    Dim i As Long
    CurrentDb.Execute "delete * from table2"
    i = DMax("NumberOfTransaction", "table1")
    For i = i To 1 Step -1
        CurrentDb.Execute "insert into table2 select * from table1 where NumberOfTransaction>=" & i
    Next
End Sub