Propriété CommandButton.Properties (Access)

  • Article

Renvoie une référence à l'objet de collection Properties d'un contrôle. En lecture seule.

Syntaxe

expression. Propriétés

Expression Variable qui représente un objet CommandButton .

Remarques

L'objet de collection Properties est la collection de toutes les propriétés relatives à un contrôle. Faites référence à des membres individuels de la collection à l’aide de l’index de l’objet membre ou d’une expression de chaîne qui est le nom de l’objet membre.

Le premier objet membre de la collection a une valeur d’index de 0, et le nombre total d’objets membres dans la collection est la valeur de la propriété Count de la collection Properties moins 1.

Exemple

La procédure suivante utilise la propriété Properties pour imprimer toutes les propriétés associées aux contrôles d'un formulaire dans la fenêtre Débogage. Pour exécuter ce code, placez un bouton de commande nommé cmdListProperties sur un formulaire et collez le code suivant dans la section Déclarations du formulaire. Cliquez sur le bouton de commande pour imprimer la liste de propriétés dans la fenêtre Débogage.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.