Propriedade Form.AllowAdditions (Access)

  • Artigo

Use a propriedade AllowAdditions para especificar se um usuário pode adicionar um registro ao usar um formulário. Boolean de leitura/gravação.

Sintaxe

expressão. Allowadditions

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

Comentários

Defina a propriedade AllowAdditions como não para permitir que usuários visualizem ou editem registros existentes, mas não adicionem novos registros.

Se você deseja impedir alterações aos registros existentes (tornar um formulário somente leitura), defina as propriedades de PermitirAdições, PermitirExclusões e PermitirEdições como não. Você também pode tornar os registros somente leitura, definindo a propriedade RecordsetType como instantâneo.

Se desejar abrir um formulário para entrada de dados apenas, defina a propriedade DataEntry do formulário como Sim.

Quando a propriedade AllowAdditions está definida como não, o comando de Entrada de dados no menu registros não está disponível.

Observação

Quando o argumento DataMode da ação OpenForm for usado, o Microsoft Access substituirá várias configurações de propriedade de formulário. Se o argumento DataMode da ação OpenForm estiver definido como Editar, o Access abrirá o formulário com as seguintes configurações de propriedade:

  • AllowEdits - Sim
  • AllowDeletions - Sim
  • AllowAdditions - Sim
  • DataEntry - Não

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 dos controles de rótulo é definida como Sombreada e a propriedade SpecialEffect dos controles de 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.