Propriedade AllowAdditions

Aplicável a

Você pode usar a propriedade AllowAdditions para especificar se um usuário pode adicionar um registro usando um formulário. Booliano de leitura/gravação.

expressão.AllowAdditions

expressão Obrigatória. Uma expressão que retorna um dos objetos na lista Aplica-se a.

Configuração

A propriedade AllowAdditions usa as configurações a seguir.

Você pode definir a propriedade AllowAdditions, usando o folha de propriedades do formulário, um macro ou o código do Visual Basic for Applications (VBA).

Comentários

Configure a propriedade AllowAdditions como Não para permitir que os usuários exibam ou editem registros existentes, mas não adicionem novos registros.

Se você quiser impedir alterações nos registros existentes (tornar um formulário somente leitura), configure as propriedades AllowAdditions, AllowDeletions e AllowEdits como Não. Você também pode tornar os registros somente leitura, definindo a propriedade AllowEdits como Instantâneo.

Se você quiser abrir um formulário somente para a entrada de dados, defina a propriedade DataEntry como Sim.

Quando a propriedade AllowAdditions estiver definida como Não, o comando Novo Registro em Registros na guia Dados não ficará disponível.

• AllowEdits — Sim

• AllowDeletions — Sim

• AllowAdditions — Sim

• DataEntry — Não

Para impedir que a ação OpenForm substitua qualquer uma dessas configurações de propriedade existentes, omita a configuração do argumento Modo de dados para que o Access use as configurações da propriedade definidas pelo formulário.

Exemplo

O exemplo a seguir examina a propriedade ControlType para todos os controles em um formulário. Para cada controle de caixa de texto e rótulo, o procedimento alterna a propriedade SpecialEffect desses controles. Quando a propriedade SpecialEffect dos controles de rótulo estiver definida como Sombreado, a propriedade SpecialEffect dos controles de caixa de texto estiver definida como Normal e as propriedades AllowAdditions, AllowDeletions e AllowEdits estiverem todas definidas como Verdadeiro, a variável intCanEdit alternará 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