Propriedade TextBox.InSelection (Access)

Utilize a propriedade InSelection para determinar ou especificar se está selecionado um controlo num formulário na vista Estrutura. Boolean de leitura/gravação.

Sintaxe

expressão. Eleições Antecipadas

expressão Uma variável que representa um objeto TextBox .

Comentários

Quando um controlo é selecionado, as respetivas alças de redimensionamento são visíveis e podem ser redimensionadas pelo utilizador. 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 este código, cole o código de função IsControlSelected na secção Declarações de um módulo de código na base de dados de exemplo Northwind, abra o formulário Clientes na vista Estrutura e selecione o controlo NomedaEmpresa . Introduza a seguinte linha na janela 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

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.