Propiedad EmptyCell.InSelection (Access)
Utilice la propiedad InSelection para determinar o especificar si está seleccionado un control de un formulario en la vista Diseño. Boolean de lectura y escritura.
Sintaxis
expresión. InSelection
Expresión Variable que representa un objeto EmptyCell .
Comentarios
Cuando se selecciona un control, sus controladores de tamaño son visibles y el usuario puede cambiar su tamaño. Puede haber más de un control seleccionado al mismo tiempo.
Ejemplo:
En la siguiente función se utiliza la propiedad InSelection para determinar si está seleccionado el control strControlName de un formulario.
Para probar este código, pegue el código de función IsControlSelected en la sección Declaraciones de un módulo de código de la base de datos de ejemplo Northwind, abra el formulario Clientes en la vista Diseño y seleccione el control CompanyName . Escriba la siguiente línea en la ventana Depurar.
? 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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.