Прилинковывание таблиц

[vlkr]

Доброго дня всем!

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

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

Это все работает.
Но хочется поставить пароль на файл с таблицами и вот здесь возникает проблема.
Я делаю так:

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

Если путь писать в явном виде то все работает, а если переменной то пароль почему-то не присоединяется к строке.

За любую информацию спасибо.

[Myhaylo]

Уберите пробел перед PWD:

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

[vlkr]

Сообщение от Myhaylo

Уберите пробел перед PWD:

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

Спасибо но что-то всеравно не работает. Я перепробовал разные варианты. Может я не там пароль задаю?
Файл-->Зашифровать паролем

[alvk]

........................

[vlkr]

Спасибо! Но у меня 2010.

[Андрэич]

У вас лишние апострофы вокруг 1:

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

[Андрэич]

Вне зависимости от наличия пароля, но если пароль установлен, то будет использован пароль, сохранённый в переменной PWDvalue

tdf.Connect = ";DATABASE=Полный путь к файлу.accdb" & _
            IIf(Len(PWDvalue & "") = 0, "", ";PWD=" & PWDvalue)

[vlkr]

Андрэич спасибо! Заработало!

[Вадичок]

Как это прилинковать таблицу? Можно пример навести?

[Андрэич]

Сообщение от Вадичок

Как это прилинковать таблицу? Можно пример навести?

Прилинковать - это значит присоединить таблицу из другого файла Аксесс, не импортируя (не загружая, не копируя в текущий файл) её :
меню Файл-Внешние данные-Связь с таблицами (как это сделать программно - показано Автором вопроса).
В результате чего к ней можно будет обращаться как к объекту текущего файла