The best way to append to many tables?

[nowanda]

Hello all!

I've got 1000 records in an Excel spreadsheet which I need to append into 6 different tables.

I have been able to create 6 queries to update each separate table - what is an efficient way to do the updates?

Although this below might work - there's probably another better way... isn't there?

Private Sub Get_HSBJ_info()
Dim dbsCurrent As Database
Set dbsCurrent = CurrentDb
DoCmd.OpenQuery ("IMPORT_LOGIC_table1")
DoCmd.OpenQuery ("IMPORT_LOGIC_table2")
DoCmd.OpenQuery ("IMPORT_LOGIC_table3")
DoCmd.OpenQuery ("IMPORT_LOGIC_table4")
DoCmd.OpenQuery ("IMPORT_LOGIC_table5")
DoCmd.OpenQuery ("IMPORT_LOGIC_table6")
End Sub

Nowanda

 

[Russell Hauf]

What you have looks good. I might add

DoCmd.SetWarnings False

at the beginning of your code, and

DoCmd.SetWarnings True

at the end so that it doesn't prompt you for all 6 tables.

HTH,

Russell

 

[nowanda]

Thanks!

Glad to know I'm on track!

Nowanda