Export Data

[Bell1991]

Is it possible to export all tables out at once instead of going one by one?

 

[Remou]

Hi
Something like this?

For Each tbl In CurrentDb.TableDefs
If Left(tbl.Name, 4) <> "MSys" Then
    Debug.Print tbl.Name
    DoCmd.TransferText acExportDelim, , tbl.Name, "zzz" & tbl.Name & ".csv"
End If
Next