Propriété CustomControl.InSelection (Access)

Utilisez la propriété InSelection pour déterminer ou spécifier si un contrôle sur un formulaire en mode Création est sélectionné. Boolean (en lecture/écriture).

Syntaxe

expression. InSelection

Expression Variable qui représente un objet CustomControl .

Remarques

Lorsqu’un contrôle est sélectionné, ses poignées de dimensionnement sont visibles et peuvent être redimensionnées par l’utilisateur. Vous pouvez sélectionner plusieurs contrôles en même temps.

Exemple

Dans l'exemple suivant, la propriété InSelection permet de déterminer si le contrôle strControlName d'un formulaire est sélectionné.

Pour tester ce code, collez le code de la fonction IsControlSelected dans la section Déclarations d’un module de code de l’exemple de base de données Northwind, ouvrez le formulaire Clients en mode Création, puis sélectionnez le contrôle CompanyName . Entrez la ligne suivante dans la fenêtre Déboguer.

? 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

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.