MyTetra Share
Делитесь знаниями!
Прилинковывание таблиц
16.03.2019
23:43
Текстовые метки: access, Link
Раздел: !Закладки - VBA - Access - Link

Я разделил свою базу и прининковываю таблицы вот так

Код:

Set tdfLinked = CurrentDb().CreateTableDef("T_Staff")
tdfLinked.Connect = ";DATABASE=" & Pname
tdfLinked.SourceTableName = "T_Staff"
CurrentDb().TableDefs.Append tdfLinked


Код:

tdfLinked.Connect = ";DATABASE=" & Pname & " ;PWD = '1'"


Явно:

Код:


Dim db As Database

Dim tdf As TableDef

Set db = CurrentDb

Set tdf = db.CreateTableDef("Фирмы")

tdf.Connect = ";DATABASE=C:\Documents and Settings\Андрэич\Рабочий стол\Companies.accdb;PWD=12345"

tdf.SourceTableName = "Фирмы"

db.TableDefs.Append tdf


Через переменные:

Код:

Dim db As Database

Dim tdf As TableDef

Set db = CurrentDb

Set tdf = db.CreateTableDef("Фирмы")

tdf.Connect = ";DATABASE=" & Pname & ";PWD=" & PWDvalue

tdf.SourceTableName = "Фирмы"

db.TableDefs.Append tdf


Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования