Таблица ссылок через DAO
Поэтому я по сути пытаюсь связать таблицу через DAO из ACCDB, зашифрованного паролем, с БД, в которой я работаю. Предположение того, что я делаю, заключается в том, что данные вроде как «чувствительны к пользователю», поэтому я не хочу разрешить каждому пользователю иметь доступ к этой таблице в моем внешнем интерфейсе (иметь разделенный внешний интерфейс / внутренний интерфейс) только определенным пользователям. Я хотел бы проверить имя пользователя компьютера, а затем разрешить внешнему интерфейсу связываться с данными, если имя пользователя указано правильно:
Select Case Environ("username") 'select case user environment name
Case "jsmith" 'if username is jsmith then
Set db = DAO.OpenDatabase("Audit.accdb", False, False, _
";pwd=adaudit12") 'create connection to my other db
Set tbl = db.TableDefs(14) 'selects the table via index
CurrentDb.TableDefs.Append tbl 'create a link to my current DB with this table (throws ex here)
Case Else
End Select
Это возвращает ошибку времени выполнения «3367» Не удается добавить. Объект с таким именем уже существует в коллекции.
Вот я и подумал сделать это:
For Each tbl In CurrentDb.TableDefs
Msgbox tbl
Next tbl
Но таблица не существует в моей базе данных, так что мне делать?