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