Compartilhar via


Propriedade Page.InSelection (Access)

Use a propriedade InSelection para determinar ou especificar se um controle em um formulário no modo design está selecionado. Boolean de leitura/gravação.

Sintaxe

expressão. InSelection

Expressão Uma variável que representa um objeto Page .

Comentários

Quando um controle é selecionado, seus identificadores de dimensionamento ficam visíveis e podem ser redimensionados pelo usuário. Mais de um controle pode estar selecionado ao mesmo tempo.

Exemplo

A função a seguir utiliza a propriedade InSelection para determinar se o controle strControlName de um formulário está selecionado.

Para testar esse código, cole o código de função IsControlSelected na seção Declarações de um módulo de código no banco de dados de exemplo Northwind, abra o formulário Clientes na exibição Design e selecione o controle CompanyName . Insira a linha a seguir na janela Depuração.

? 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.