Propriété Control.Column (Access)

Utilisez la propriété Column pour faire référence à une combinaison de colonne ou de colonne et de ligne spécifique dans une zone de liste déroulante ou une zone de liste à plusieurs colonnes. Variant en lecture seule.

Syntaxe

expression. Colonne (index, ligne)

Expression Variable qui représente un objet Control .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Index	Obligatoire	Entier long	Entier long compris entre 0 et la valeur de la propriété ColumnCount moins 1.
Row	Facultatif	Variant	Entier compris entre 0 et la valeur de la propriété ListCount moins 1.

Remarques

Le paramètre 0 désigne la première colonne, le paramètre 1 la deuxième, et ainsi de suite. De même, le paramètre 0 désigne la première ligne, le paramètre 1 la deuxième, et ainsi de suite. Par exemple, dans une zone de liste composée d'une colonne de codes clients et d'une colonne de noms de clients, vous pouvez faire référence au nom du client dans la seconde colonne et la cinquième ligne comme ci-après :

 Forms!Contacts!Customers.Column(1, 4)

Utilisez la propriété Column pour affecter le contenu d’une zone de liste déroulante ou d’une zone de liste à un autre contrôle, tel qu’une zone de texte. Par exemple, pour définir la propriété ControlSource d’une zone de texte sur la valeur de la deuxième colonne d’une zone de liste, vous pouvez utiliser l’expression suivante.

 =Forms!Customers!CompanyName.Column(1)

Si l'utilisateur ne fait aucune sélection lorsque vous faites référence à une colonne dans une zone de liste modifiable ou une zone de liste, le paramètre de propriété Colonne est Null. Utilisez la fonction IsNull pour déterminer si une sélection a été effectuée, comme dans l’exemple suivant.

 If IsNull(Forms!Customers!Country) 
   Then MsgBox "No selection." 
 End If

Remarque

Pour déterminer le nombre de colonnes figurant dans une zone de liste modifiable ou une zone de liste, vous pouvez inspecter le paramètre de propriété NbreColonnes.

Exemple

L'exemple suivant utilise les propriétés Colonne et NbreColonnes pour imprimer les valeurs d'une sélection dans la zone de liste.

Public Sub Read_ListBox() 
 
 Dim intNumColumns As Integer 
 Dim intI As Integer 
 Dim frmCust As Form 
 
 Set frmCust = Forms!frmCustomers 
 If frmCust!lstCustomerNames.ItemsSelected.Count > 0 Then 
 
 ' Any selection? 
 intNumColumns = frmCust!lstCustomerNames.ColumnCount 
 Debug.Print "The list box contains "; intNumColumns; _ 
 IIf(intNumColumns = 1, " column", " columns"); _ 
 " of data." 
 
 Debug.Print "The current selection contains:" 
 For intI = 0 To intNumColumns - 1 
 ' Print column data. 
 Debug.Print frmCust!lstCustomerNames.Column(intI) 
 Next intI 
 Else 
 Debug.Print "You haven't selected an entry in the " _ 
 & "list box." 
 End If 
 
 Set frmCust = Nothing 
 
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.