Morozniy » 29.11.2004 (Пн) 15:21 
			
			Суть такая:
Пользователь на форме выбирает, какие записи и какие столбцы исходной акцессовской таблицы ему нужны,
после етого должна создаваться програмно таблица  "выборкаХХ" с выбранными пользователем полями и програмно заполнятся выбранными пользователем записями (записи копируются из исходной таблицы).
Heads- Строковый массив выбираных пользователем полей, например: "S1", "Firma", "Asset", "Voltage"
Znachenie- строковый массив
Dim db As Database
Dim VybTable As TableDef, TableField As Field
Dim Rset1 As Recordset
'создаем таблицу:
Set db = CurrentDb
 Set VybTable = db.CreateTableDef("Vybor")
For i = 0 To UBound(Heads, 1)
            Heads-выбранныe пользователем поля
    Set TableField = VybTable.CreateField(Heads(i), dbText)
    VybTable.Fields.Append TableField
    VybTable.Fields.Refresh
Next i
db.TableDefs.Append CurrTable
db.TableDefs.Refresh
заполняем таблицу:
Set Rset1 = db.OpenRecordset("Vybor")
for k=0 to 10 
  for i=0 to UBound(Heads, 1)
    Rset1.AddNew
    Rset1!S1 = Znachenie(k,i)
       'заменить S1 на соответствуюсчую переменную <Heads(i)> из массива полей исходной таблицы 
   Rset1.Update
  next i
next k