Applies To ActiveX control, Bound Object Frame control, Chart control, Check Box control, Combo Box control, Command Button control, Image control, Label control, Line control, List Box control, Option Button control, Option Group control, Page, Page Break control, Rectangle control, Subform/Subreport control, Tab control, Text Box control, Toggle Button control, Unbound Object Frame control.
Description
You can use the InSelection property to determine or specify whether a control on a form in Design view is selected.
Setting
The InSelection property uses the following settings.
Setting | Description |
True (–1) | The control is selected. |
False (0) | The control isn't selected. |
See Also Control object.
Example The following function uses the InSelection property to determine whether the strControlName control on a form is selected. 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 Integer
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