Rekvizīts Properties

Attiecas uz

Rekvizīts Properties attiecībā uz objektiem AccessObject, CodeProject un CurrentProject.

Atgriež atsauci uz AccessObject, CurrentProject, vai objekta CodeProject kolekciju AccessObjectProperties.

izteiksme.Properties

expression Obligāti. Izteiksme, kas atgriež kādu no iepriekš minētajiem objektiem.

Piezīmes

Kolekcijas objekts AccessObjectProperties ir visu ar objektu AccessObject, CurrentProject vai CodeProject saistīto rekvizītu kolekcija. Varat skatīt atsevišķus kolekcijas dalībniekus, izmantojot dalībnieka objekta indeksu vai virknes izteiksmi, kas ir dalībnieka objekta nosaukums. Pirmajā kolekcijas dalībnieka objekta indeksa vērtība ir 0, un kopējais kolekcijas dalībnieka objektu skaits ir kolekcijas AccessObjectProperties rekvizīta Count mīnus 1 vērtība.

Nevar izmantot rekvizītu Properties, lai atgrieztu rekvizītus no objekta AccessObject, kas ir tās kolekcijas dalībnieks, kam var piekļūt no objekta CurrentData.

Rekvizīts Properties attiecībā uz objektu SmartTag.

Atgriež kolekciju SmartTagProperties, kas apzīmē konkrēta viedtaga rekvizītu kolekciju.

izteiksme.Properties()

expression Obligāti. Izteiksme, kas atgriež objektu SmartTag .

Rekvizīts Properties, kas attiecas uz visiem pārējiem objektiem sarakstā Attiecas uz.

Atgriež atsauci uz vadīklas kolekcijas objektu Properties.

izteiksme.Properties

expression Obligāti. Izteiksme, kas atgriež vienu no objektiem sarakstā Attiecas uz.

Piezīmes

Kolekcijas objekts Properties ir visu ar vadīklu saistīto rekvizītu kolekcija. Varat skatīt atsevišķus kolekcijas dalībniekus, izmantojot dalībnieka objekta indeksu vai virknes izteiksmi, kas ir dalībnieka objekta nosaukums. Pirmā kolekcijas dalībnieka objekta indeksa vērtība ir 0, un kopējais kolekcijas dalībnieka objektu skaits ir kolekcijas Properties rekvizīta Count mīnus 1 vērtība.

Piemērs

Tālāk aprakstītā procedūra izmanto rekvizītu Properties, lai drukātu visus formā esošos ar vadīklām saistītos rekvizītus atkļūdošanas logā. Lai palaistu šo kodu, novietojiet formā komandpogu cmdListProperties un ielīmējiet tālāk norādīto kodu formas deklarāciju sadaļā. Noklikšķiniet uz komandpogas, lai drukātu rekvizītu sarakstu atkļūdošanas logā.

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