tblcreation with 600 values? A001 - A600?

[Guest]

good day all,

I am trying to create a table with simple values of A001-A600 how can I do
this without having to type all the vales in the table?

Thanks,

Brook

 

[Albert D.Kallal]

Hum, some code would work..

Sub MakeSomedata()

Dim i As Integer
Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("tblData")

For i = 1 To 600
rst.AddNew
rst(0) = "A" & i
rst.Update
Next i
rst.Close
End Sub


The above code assumes you want the data in the first file ( the rst(0) ),
and a table called tblData has been already created...

You can type the above into a standard code module...put your cursor in the
routine..and hit f5 to run...

 

[Guest]

Thank you...

That is the portion that I did not understand, I am new to this type of
table/data creation... I will give this a try and let you know by a post..

Brook

 

[Guest]

good day..

Thank you...
that worked I do have one more question...

Can I have it so that the numbers are like the following:

A001
A002
A003
....
A600

Thanks,

Brook

 

[Douglas J Steele]

Change

rst(0) = "A" & i

to

rst(0) = "A" & Format(i, "000")

 

[Guest]

Good Day,

Thank you so much Douglas...

Have a great day..

Brook