VPF::Связь двух таблиц средствами VBA

Shuriman

Дата 12.4.2005, 12:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 18.11.2004
Где: пЫтер

Репутация: нет
Всего: нет

народ обясните ламеру, как организовать связь один ко многим вновь созданной таблицы с уже существующей средствами VBA.
новая таблица - IDпользователя&"выборка"
уже существующая - "общие продажи"

в обеих таблицах поля называются одинаково - "tovar"

делаю так:

Код


Private Sub Кнопка0_Click()
Dim dbsПользователи As Database
Dim tbl As TableDef
Dim tb2 As TableDef
Dim fiel As Field
Dim ind As Index
Dim rel As Relation

'создание таблицы
    Set dbsEnergy = CurrentDb()
    Set tbl = dbsEnergy.CreateTableDef(1 & "выборка")
    Set fiel = tbl.CreateField("num", dbInteger)
    tbl.Fields.Append fiel
    Set fiel = tbl.CreateField("tovar", dbInteger)
    tbl.Fields.Append fiel
    Set fiel = tbl.CreateField("shr", dbBoolean)
    tbl.Fields.Append fiel
    dbsEnergy.TableDefs.Append tbl
    Set ind = tbl.CreateIndex("PrimaryKey")
    ind.Fields.Append ind.CreateField("tovar")
    ind.Primary = True
    tbl.Indexes.Append ind
  
'создание отношения   
    Set rel = dbsEnergy.CreateRelation("tbl_tbl2", _
            tbl.name, "общие продажи", _
            dbRelationUpdateCascade)
     tbl.Fields.Append tbl.CreateField("tovar")
     tbl.Fields!tovar.ForeignName = "tovar"
     dbsEnergy.Relations.Append rel
   


 Call MsgBox("таблица создана, отношение установлено")
End Sub

выдает ошибку

Цитата

Ошибочный тип данных поля

чего я не так делаю? поправьте, плз. никак сообразить не могу.

тип данных у обоих полей - Числовой - Целое

Это сообщение отредактировал(а) Shuriman - 12.4.2005, 12:24

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »