Hello!
When I run the following code:
Private Sub CmdExportFiles_Click()
Dim dbs As Database, tb As TableDef
Set dbs = CurrentDb
For Each tb In dbs.TableDefs
If Left(tb.Name, 4) <> "MSys" Then
DoCmd.TransferText acExportDelim, , _
tb.Name, "S:\shared\sad\tests\" & tb.Name &...