Свойство «Свойства» (Properties)

Применение

Свойство Properties для объектов AccessObject, CodeProject и CurrentProject

Возвращает ссылку на коллекцию AccessObjectProperties (Свойства объекта Access) объектов AccessObject, CurrentProject и CodeProject.

выражение.Properties

Выражение Обязательный. Выражение, возвращающее один из указанных выше объектов.

Замечания

Объект коллекции AccessObjectProperties — совокупность всех свойств, связанных с объектом AccessObject, CurrentProject или CodeProject. Можно ссылаться на отдельные элементы коллекции с помощью индекса объекта или строкового выражения, указывающего его название. Первый объект в коллекции имеет значение индекса 0, а общее число объектов на единицу меньше значения свойства Count (Количество) коллекции AccessObjectProperties.

Свойство Properties нельзя использовать для возврата свойств из объекта AccessObject, который является элементом коллекции, доступной из объекта CurrentData (Текущие данные).

Свойство Properties для объекта SmartTag

Возвращает коллекцию SmartTagProperties, представляющую набор свойств для конкретного смарт-тега.

выражение.Properties()

Выражение Обязательный. Выражение, возвращающее объект SmartTag .

Свойство Properties для других объектов из списка "Применение"

Возвращает ссылку на объект коллекции Properties элемента управления.

выражение.Properties

Выражение Обязательный. Выражение, возвращающее один из объектов в списке Применяется к.

Замечания

Объект коллекции Properties — совокупность всех свойств, связанных с элементом управления. Можно ссылаться на отдельные элементы коллекции с помощью индекса объекта или строкового выражения, указывающего его название. Первый объект в коллекции имеет значение индекса 0, а общее число объектов на единицу меньше значения свойства Count (Количество) коллекции Properties.

Пример

В следующей процедуре свойство Properties используется для печати всех свойств, связанных с элементами управления в форме для окна отладки. Для выполнения данного кода поместите кнопку с именем cmdListProperties в форму и вставьте следующий код в раздел Declarations формы. Нажмите кнопку, чтобы напечатать список свойств в окне отладки.

Private Sub cmdListProperties_Click()
    ListControlProps Me
End Sub
Public Sub ListControlProps(ByRef frm As Form)
    Dim ctl As Control
    Dim prp As Property
    On Error GoTo props_err
    For Each ctl In frm.Controls
        Debug.Print ctl.Properties("Name")
        For Each prp In ctl.Properties
            Debug.Print vbTab & prp.Name & _
                " = " & prp.Value
        Next prp
    Next ctl
props_exit:
    Set ctl = Nothing
    Set prp = Nothing
Exit Sub
props_err:
    If Err = 2187 Then
        Debug.Print vbTab & prp.Name & _
            " = Only available at design time."
        Resume Next
    Else
        Debug.Print vbTab & prp.Name & _
            " = Error Occurred: " & Err.Description
        Resume Next
    End If
End Sub