Propriété CheckBox.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).
expression. InSelection
Expression Variable qui représente un objet CheckBox .
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.
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
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.