Skala77,
если бы все поля, как просто поля, то помогла бы процедура импорта на vba
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Public Function имп()
Dim app As Object
Dim rst As DAO.Recordset
Set app = CreateObject("Word.Application")
app.Documents.Open CurrentProject.Path & "\иванова.doc"
Set rst = CurrentDb.OpenRecordset("select * from Таблица1")
rst.AddNew
For i = 1 To app.ActiveDocument.Fields.Count
rst.Fields(i) = app.ActiveDocument.Fields(i).Result.Text
Next i
rst.Update
rst.Close
Set rst = Nothing
app.ActiveDocument.Close
app.Quit
Set app = Nothing
DoCmd.OpenTable "Таблица1", acViewNormal
End Function
она работает для вашего случая, но не заполняет логические поля и поля со списком
, как их обрабатывать на vba, я , к сожалению, не знаю. Но, наверняка, есть те, кто знает
