Мне нужно ежемесячно импортировать таблицы из различных баз данных.После того, как таблицы импортированы, базы данных архивируются и больше не просматриваются.
У меня есть следующий код VBA, который отлично работает, когда БД не защищена паролем:
Private Sub ImportTheData(ByVal dbImport As String)
DoCmd.SetWarnings False 'Turn OFF display alerts
'Import the full activity & comments table from the Import DB to a temporary table
DoCmd.TransferDatabase acImport, "Microsoft Access", dbImport, acTable, "tbl_Activity", "tbl_TempActivity", True
DoCmd.TransferDatabase acImport, "Microsoft Access", dbImport, acTable, "tbl_Comments", "tbl_TempComments", True
'code continues ...
ПоследнийПараметр (storelogin) имеет значение true, но, похоже, невозможно программно установить эти параметры входа (пароль).
Когда я запускаю код, пользователю предлагается ввести пароль (несмотря на SetWarnings= Ложь)Поскольку я импортирую десятки файлов каждый раз, это не жизнеспособное решение.
Есть ли способ программно импортировать таблицы, используя DoCmd.TransferDatabase
, когда файл защищен паролем, и если да, то как?