ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Переменная Database
4 сообщений из 4, страница 1 из 1
Переменная Database
    #39851131
l-evgene
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
l-evgene
Гость
Здравствуйте.
Обнаружил, что одна из баз Access не желает признавать объектную переменную типа Database. Выдает compile error.

А вот в таком виде запускается без проблем:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
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.
Сама база давнишняя, скорее всего преобразована из более старой версии.
У кого-нибудь было такое?
...
Рейтинг: 0 / 0
19.08.2019, 14:35
| Ответить | Цитировать | Написать  
Переменная Database
    #39851136
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
4d_monster
Участник
l-evgene,

У вас просто не хватает ссылки на библиотеку DAO.
...
Рейтинг: 0 / 0
19.08.2019, 14:39
| Ответить | Цитировать | Написать  
Переменная Database
    #39851148
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Объявите её явно как
Код: vbnet
1.
Dim db As DAO.Database



Хотя в именно показанном коде отдельная переменная нафиг не нужна, разумнее воспользоваться блоком With.
...
Рейтинг: 0 / 0
19.08.2019, 15:04
| Ответить | Цитировать | Написать  
Переменная Database
    #39851234
l-evgene
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
l-evgene
Гость
Akina, спасибо, получилось
...
Рейтинг: 0 / 0
19.08.2019, 17:30
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Переменная Database
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]