Function ExportTablesToText()
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim sPATH As String
Dim i As Integer
i = 1
sPATH = CurrentProject.Path & "\"
Set dbs = CurrentDb()
For Each tdf In dbs.TableDefs
If InStr(1, tdf.Name, "Msys") = 0 Then
DoCmd.TransferText acExportDelim, , tdf.Name, sPATH & tdf.Name & ".txt", True
End If
i = i + 1
Next tdf
Set tdf = Nothing
End Function