Properti Properti

Berlaku untuk

Properti Properti sebagaimana berlaku untuk objek AccessObject, CodeProject, dan CurrentProject.

Mengembalikan referensi ke AccessObject, CurrentProject, atau CodeProject kumpulan AccessObjectProperties objek .

ekspresi.Properti

ekspresi Diperlukan. Suatu ekspresi yang menghasilkan salah satu objek di atas.

Keterangan

Objek kumpulan AccessObjectProperties merupakan kumpulan semua properti yang terkait dengan objek AccessObject, CurrentProject, atau CodeProject. Anda dapat merujuk ke anggota tertentu dari kumpulan menggunakan indeks objek anggota atau ekspresi string yang merupakan nama objek anggota. Objek anggota pertama dalam kumpulan memiliki nilai indeks 0 dan jumlah total objek anggota di kumpulan merupakan nilai dari kumpulan AccessObjectProperties properti Hitung dikurangi 1.

Anda tidak dapat menggunakan properti Properti untuk mengembalikan properti dari objek AccessObject yang merupakan anggota dari kumpulan yang diakses dari objek CurrentData.

Properti Properti sebagaimana berlaku untuk objek SmartTag.

Mengembalikan kumpulan SmartTagProperties yang mewakili kumpulan properti tag pintar tertentu.

ekspresi.Properti()

ekspresi Diperlukan. Ekspresi yang mengembalikan objek SmartTag.

Properti properti sebagaimana berlaku untuk semua objek lain dalam daftar Berlaku Untuk.

Mengembalikan referensi ke objek kumpulan kontrol Properti.

ekspresi.Properti

ekspresi Diperlukan. Ekspresi yang mengembalikan salah satu objek dalam daftar Berlaku Untuk.

Keterangan

Objek kumpulan Properti merupakan kumpulan semua properti yang terkait dengan kontrol. Anda dapat merujuk ke anggota tertentu dari kumpulan menggunakan indeks objek anggota atau ekspresi string yang merupakan nama objek anggota. Objek anggota pertama dalam kumpulan memiliki nilai indeks 0 dan jumlah total objek anggota dalam kumpulan merupakan nilai kumpulan Properti dari properti Hitung kumpulan dikurangi 1.

Contoh

Prosedur berikut ini menggunakan properti Properti untuk mencetak semua properti yang terkait dengan kontrol pada formulir ke jendela Debug. Untuk menjalankan kode ini, letakkan tombol perintah bernama cmdListProperties pada formulir dan tempelkan kode berikut ini ke dalam bagian Deklarasi formulir. Klik tombol perintah untuk mencetak daftar properti di jendela Debug.

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