Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Переменная Database  [new]
l-evgene
Member

Откуда: Москва
Сообщений: 231
Здравствуйте.
Обнаружил, что одна из баз Access не желает признавать объектную переменную типа Database. Выдает compile error.

А вот в таком виде запускается без проблем:
Public Sub прок()
Dim strСообщение As String
Dim prp As Property
'Dim db As Database
'Set db = CurrentDb
On Error Resume Next
    For Each prp In CurrentDb.Properties
        strСообщение = prp.Name
        strСообщение = strСообщение & ":* " & prp.Value
        Debug.Print strСообщение
    Next prp
End Sub

Access 2016.
Сама база давнишняя, скорее всего преобразована из более старой версии.
У кого-нибудь было такое?

К сообщению приложен файл. Размер - 18Kb
19 авг 19, 14:35    [21952541]     Ответить | Цитировать Сообщить модератору
 Re: Переменная Database  [new]
4d_monster
Member

Откуда: Москва
Сообщений: 1531
l-evgene,

У вас просто не хватает ссылки на библиотеку DAO.
19 авг 19, 14:39    [21952546]     Ответить | Цитировать Сообщить модератору
 Re: Переменная Database  [new]
Akina
Member

Откуда: Зеленоград, Москва, Россия
Сообщений: 19272
Объявите её явно как
Dim db As DAO.Database


Хотя в именно показанном коде отдельная переменная нафиг не нужна, разумнее воспользоваться блоком With.
19 авг 19, 15:04    [21952563]     Ответить | Цитировать Сообщить модератору
 Re: Переменная Database  [new]
l-evgene
Member

Откуда: Москва
Сообщений: 231
Akina, спасибо, получилось
19 авг 19, 17:30    [21952718]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить