Примечание
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Область применения: Access 2013 | Access 2016
Свойства Object предоставляют общие сведения об объектах, содержащихся в области навигации.
Примечание.
Свойства Object доступны для всех объектов в базе данных Microsoft Access и только для форм, макросов, модулей и отчетов в проекте Access (ADP).
Setting
Вы можете просмотреть свойства Объекта и задать свойства Description или Attributes следующими способами:
Щелкните объект в окне База данных. На вкладке Работа с базами данных в группе Показать и скрыть щелкните Лист свойств.
Щелкните правой кнопкой мыши объект в окне База данных и выберите пункт Свойства в контекстном меню.
Вы также можете указать или определить свойства объекта в базе данных Access с помощью Visual Basic . Свойства объекта проекта Access (ADP) недоступны в Visual Basic.
Примечание.
Можно только ввести или изменить свойства Description и Attributes . Другие свойства объекта задаются Microsoft Access и доступны только для чтения.
Замечания
Объекты, для которых можно отобразить свойства в окне Базы данных, — это таблицы, запросы, формы, отчеты, макросы и модули. Каждый класс объектов в базе данных представлен отдельным объектом DAO Document в коллекции контейнеров DAO. Например, коллекция Containers содержит объект Document , представляющий все формы в базе данных.
В окне База данных доступны следующие свойства объекта .
Свойство | Описание |
---|---|
Name | Это имя объекта и содержит параметр из свойства Name объекта. |
Тип | Это тип объекта. Типы объектов Microsoft Access: Form, Macro, Module, Query, Report и Table. |
Description | Это описание объекта и совпадает с параметром свойства Description объекта. Можно также задать свойство Description объекта на странице свойств объекта. |
Created | Это дата создания объекта. Для таблиц и запросов это свойство совпадает со свойством DateCreated . |
Modified | Это дата последнего изменения объекта. Для таблиц и запросов это свойство совпадает со свойством LastUpdated . |
Owner | Это владелец объекта . Дополнительные сведения см. в разделе Свойство Owner . |
Атрибуты | Это свойство указывает, является ли объект скрытым или видимым и можно ли реплицировать объект в реплике базы данных. Если задать для атрибута Hidden значение True (установив флажок Скрытый ), объект не будет отображаться в окне База данных. Чтобы отобразить скрытые объекты в области навигации, нажмите кнопку Microsoft Office и выберите Пункт Параметры доступа. Выберите категорию Текущая база данных , а затем выберите Параметры навигации. Щелкните Показать скрытые объекты и нажмите кнопку ОК. Значки скрытых объектов будут затемнены в окне базы данных. Затем можно отключить атрибут Hidden, сделав объекты видимыми в окне База данных. |
Пример
В следующем примере используется подпрограмма PrintObjectProperties для вывода значений свойств объекта Object в окно Отладка. Для подпрограммы в качестве аргументов требуется тип объекта и имя объекта.
Dim strObjectType As String
Dim strObjectName As String
Dim strMsg As String
strMsg = "Enter object type (e.g., Forms, Scripts, " _
& "Modules, Reports, Tables)."
' Get object type.
strObjectType = InputBox(strMsg)
strMsg = "Enter the name of a form, macro, module, " _
& "query, report, or table."
' Get object name from user.
strObjectName = InputBox(strMsg)
' Pass object type and object name to
' PrintObjectProperties subroutine.
PrintObjectProperties strObjectType, strObjectName
Sub PrintObjectProperties(strObjectType As String, strObjectName _
As String)
Dim dbs As Database, ctr As Container, doc As Document
Dim intI As Integer
Dim strTabChar As String
Dim prp As DAO.Property
Set dbs = CurrentDb
strTabChar = vbTab
' Set Container object variable.
Set ctr = dbs.Containers(strObjectType)
' Set Document object variable.
Set doc = ctr.Documents(strObjectName)
doc.Properties.Refresh
' Print the object name to Debug window.
Debug.Print doc.Name
' Print each Object property to Debug window.
For Each prp in doc.Properties
Debug.Print strTabChar & prp.Name & " = " & prp.Value
Next
End Sub
См. также
- Форум для разработчиков Access
- Помощь при работе с Access на support.office.com
- Помощь при работе с Access на answers.microsoft.com
- Форумы Access на UtterAccess
- Справочный центр (FMS) для разработки и VBA программирования для Access
- Публикации по Access на StackOverflow
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.