Need to fill table from array

[msi]

Hi,

I need to fill a pre existing table with data based in an array. Any help appreciated...

Thanks

 

[Pat Hartman]

Create a VBA loop that reads each element of the array. For each element use DAO to add a new record.
Air code:

dim db as DAO.Database
dim td as DAO.TableDef
dim rs as DAO.Recordset
set db = CurrentDB()
Set td = db.TableDefs!tblYourTable
Set rs = td.OpenRecordset

Do Until i > Maxentries
    rs.AddNew
        rs!fld1 = ?
        rs!fld2 = ?
        rs!fld3 = ?
    rs.Update
    i = i + 1
Loop
rs.Close

 

[msi]

Nice one! Many Thanks for your help...