Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Section.InSelection, propriété (accès)Section.InSelection Property (Access)

office 365 dev account|Dernière mise à jour: 14/03/2018
|
2 Collaborateurs

Vous pouvez utiliser la propriété InSelection pour déterminer ou spécifier si un contrôle sur un formulaire dans ce mode est sélectionné. En lecture/écriture booléen.You can use the InSelection property to determine or specify whether a control on a form in Design view is selected. Read/write Boolean.

SyntaxeSyntax

expression. InSelectionexpression. InSelection

expression Variable qui représente un objet Section .expression A variable that represents a Section object.

RemarquesRemarks

Lorsque vous sélectionnez un contrôle, ses poignées de redimensionnement apparaissent et l'utilisateur peut le redimensionner. Vous pouvez sélectionner plusieurs contrôles en même temps.When a control is selected, its sizing handles are visible and it can be resized by the user. More than one control can be selected at a time.

ExempleExample

La fonction suivante utilise la propriété InSelection pour déterminer si les strControlName contrôle d’un formulaire est sélectionné.The following function uses the InSelection property to determine whether the strControlName control on a form is selected.

Pour essayer ce code, collez le code de la fonction IsControlSelected dans la section Déclarations d'un module de code de la base de données Northwind, ouvrez le formulaire Customers (Clients) en mode Création et sélectionnez le contrôle CompanyName (Société). Dans la fenêtre de débogage, tapez ensuite la ligne ci-dessous :To test this code, paste the IsControlSelected function code in the Declarations section of a code module in the Northwind sample database, open the Customers form in Design view, and select the CompanyName control. Then enter the following line in the Debug window:

? IsControlSelected (Forms!Customers, "CompanyName") 

Function IsControlSelected(frm As Form, _ 
 strControlName As String) As Boolean 
 Dim intI As Integer, ctl As Control 
 If frm.CurrentView <> 0 Then 
 ' Form is not in Design view. 
 Exit Function 
 Else 
 For intI = 0 To frm.Count - 1 
 Set ctl = frm(intI) 
 If ctl.InSelection = True Then 
 ' Is desired control selected? 
 If UCase(ctl.Name) = UCase(strControlName) Then 
 IsControlSelected = True 
 Exit Function 
 End If 
 Else 
 IsControlSelected = False 
 End If 
 Next intI 
 End If 
End Function

Voir aussiSee also

ConceptsConcepts

Objet de la sectionSection Object

© 2018 Microsoft