Propriedade NavigationControl.ControlType (Access)

Use a propriedade ControlType no Visual Basic para determinar o tipo de controle em um formulário ou relatório. Byte de leitura/gravação.

Sintaxe

expressão. Controltype

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

Comentários

A configuração da propriedade ControlType é uma constante intrínseca que especifica o tipo de controle. Para obter uma lista completa de controles criados pelos métodos CreateControl e CreateReportControl , consulte a enumeração AcControlType .

[!OBSERVAçãO] A propriedade ControlType só pode ser definida usando o Visual Basic no modo de Design do formulário ou no modo Design do relatório, mas ela pode ser lida em todos os modos.

A propriedade ControlType é útil não somente para verificação para um tipo de controle específico no código, mas também para alterar o tipo de controle para outro tipo. Por exemplo, você pode alterar uma caixa de texto para uma caixa de combinação, definindo a propriedade ControlType da caixa de texto como acComboBox enquanto estiver no modo Design do formulário.

Use a propriedade ControlType para alterar características de controles semelhantes em um formulário de acordo com determinadas condições. Por exemplo, se você não desejar que os usuários editem dados existentes em caixas de texto, você pode definir a propriedade SpecialEffect para todas as caixas de texto como plano e propriedade do formulário PermitirEdições como não. (a propriedade SpecialEffect não afeta se os dados podem ser editados; ela é usada aqui para fornecer uma indicação visual que mudou o comportamento do controle).

A propriedade ControlType também é usada para especificar o tipo de controle a ser criado quando você estiver usando o método CreateControl.

Exemplo

O exemplo a seguir examina a propriedade ControlType para todos os controles em um formulário. Para cada controle de caixa de texto do rótulo e do, o procedimento alterna a propriedade SpecialEffect para esses controles.

Quando a propriedade SpecialEffect do controle de rótulo é definida como Sombreada e a propriedade SpecialEffect do controle da caixa de texto é definida como Normal, e as propriedades AllowAdditions, AllowDeletions e AllowEdits são definidas como True, a intCanEdit variável é alternada para permitir a edição dos dados subjacentes.

Sub ToggleControl(frm As Form) 
 Dim ctl As Control 
 Dim intI As Integer, intCanEdit As Integer 
 Const conTransparent = 0 
 Const conWhite = 16777215 
 For Each ctl in frm.Controls 
 With ctl 
 Select Case .ControlType 
 Case acLabel 
 If .SpecialEffect = acEffectShadow Then 
 .SpecialEffect = acEffectNormal 
 .BorderStyle = conTransparent 
 intCanEdit = True 
 Else 
 .SpecialEffect = acEffectShadow 
 intCanEdit = False 
 End If 
 Case acTextBox 
 If .SpecialEffect = acEffectNormal Then 
 .SpecialEffect = acEffectSunken 
 .BackColor = conWhite 
 Else 
 .SpecialEffect = acEffectNormal 
 .BackColor = frm.Detail.BackColor 
 End If 
 End Select 
 End With 
 Next ctl 
 If intCanEdit = IFalse Then 
 With frm 
 .AllowAdditions = False 
 .AllowDeletions = False 
 .AllowEdits = False 
 End With 
 Else 
 With frm 
 .AllowAdditions = True 
 .AllowDeletions = True 
 .AllowEdits = True 
 End With 
 End If 
End Sub

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.