VB text string = Retrieved records from table within access 1

[lube8]

What is the VB code for retrieving and looping records from an existing table. I have a table with 25 records and I have some VB code already set up to export my data to excel by a string (I have dim'd) I manually enter into my module. I would like the string to retrieve each record in an existing table and loop this procedure so I would have 25 excel files for each string/record that is in my table.

Like I said, right now, this is a manual process where I key the data of each field into my module for my string and run the procedure, but I have to do this 25 seperate times.

 

[TonyJollans]

Hi lube8,

Not entirey sure I understand what you're asking, but to loop through a table in VBA you need a recordset and some basic code like this:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("

TableName

")
While Not rs.EOF

' Your code here
    '   Reference individual fields by name: e.g. rs!

FieldName

rs.MoveNext
Wend
rs.Close
Set rs = Nothing
Set db = Nothing

Enjoy,
Tony

------------------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading FAQ222-2244 before you ask a question.