ник: час
Private Function Подключиь_Файл(strPuti As String, strFile As String, strTbl As String)
Dim t As TableDef
On Error GoTo Подключиь_Файл_Error
If Nalichie_Tablici(strTbl) = True Then DoCmd.DeleteObject acTable, strTbl
Set t = CurrentDb.CreateTableDef(strTbl)
t.Connect = "Text;DSN=" & "Goods;" & "FMT=Fixed;HDR=NO;IMEX=2;CharacterSet=1251;DATABASE=" & strPuti & ";TABLE=" & strFile
t.SourceTableName = Me!Файл_загрузки '"ИмяФайла"
CurrentDb.TableDefs.Append t
|
Вот присоединяю текстовый файл.
Теперь надо разнести по полям в другую таблицу.