Настроить ActiveX в Excel?

Question

[Александр Шилов]

Доброго времени суток, хабрецы, подскажите, пожалуйста. Есть подключение из Excel к Access.
На компьютере, на котором писался VBA код, все работает, на других выдает ошибку

ошибка

код

Sub Получить_данные_о_программе()
    Dim tbl As Recordset
    Dim SQLr As String
    Dim dbs As Database
    Dim lists_count As Long
    
    ActiveSheet.Protect Password:="123698745", UserInterfaceOnly:=True
    
    Sheets("Главная панель").Rows("17:100000").Delete shift:=xlUp
    
    lists_count = Int(Sheets("Главная панель").Range("A1").Text)
    
    Set dbs = DAO.OpenDatabase("\\srv02\_tp\Shilov\BD\db.mdb")
    
    SQLr = "SELECT f_name FROM win32_applications WHERE computer_name = '" & Sheets("Данные").Cells(lists_count + 1, 8).Text & "'"
    
    Set tbl = dbs.OpenRecordset(SQLr)
    
    Sheets("Главная панель").Cells(17, 1).CopyFromRecordset tbl
    tbl.Close
    
    Set tbl = Nothing
    
    dbs.Close
    
    Set dbs = Nothing
End Sub

Answer 1

[Sergey В.]

Предположу что на других ПК стоит 64битная версия MS Office, а на Вашем х86. Библиотеки DAO для х64 вроде как нет.

Answer 2

[idShura]

Библиотека "Microsoft office xx database engine object library" подключена?

Comments

[Александр Шилов]

На компьютере, на котором она работает, не подключена. Но если захочу подключить, то всплывает окно

[idShura]

Александр Шилов, Значит нужная библиотека уже подключена. Попробуй проверить доступность файла бд с компьютера на котором не работает.

[Александр Шилов]

idShura, подключена библиотека «Microsoft DAO 3.6 Object Library». Файл с БД доступен на всех ПК.

[idShura]

Александр Шилов, Проверь чтобы были права на изменение.

[Александр Шилов]

idShura, хорошо, спасибо, завтра буду на работе, проверю

Answer 3

[Александр]

Думаю сам файл \\srv02\_tp\Shilov\BD\db.mdb не доступен с других компов.

Comments

[Александр Шилов]

Доступен