Propriedade PermitirAdições

Aplica-se a

Pode utilizar a propriedade PermitirAdições para especificar se um utilizador pode adicionar um registo ao utilizar um formulário. Booleano de leitura/escrita.

expressão.PermitirAdições

expressão Obrigatório. Uma expressão que devolve um dos objetos na lista Aplica-se A.

Definição

A propriedade PermitirAdições utiliza as seguintes definições.

Pode definir a propriedade PermitirEdições ao utilizar a folha de propriedades de um formulário, uma macro ou um código VBA (Visual Basic for Applications).

Observações

Defina a propriedade PermitirAdições para Não para permitir que os utilizadores vejam ou editem registos existentes, mas não adicionem novos registos.

Se quiser impedir alterações a registos existentes (criar um formulário só de leitura), defina as propriedades PermitirAdições, PermitirEliminações e PermitirEdições para Não. Também pode criar registos só de leitura ao definir a propriedade TipoDoConjuntoDeRegistos para Snapshot.

Se quiser abrir um formulário apenas para a introdução de dados, defina a propriedade IntroduçãoDeDados para Sim.

Quando a propriedade PermitirAdições estiver definida para Não, o comando Novo Registo em Registos no separador Dados não estará disponível.

• PermitirEdições – Sim

• PermitirEliminações – Sim

• PermitirAdições – Sim

• IntroduçãoDeDados – Não

Para impedir que a ação AbrirFormulário substitua alguma das definições de propriedade existentes, omita o argumento Modo de Dados para que o Access utilize as definições de propriedade definidas pelo formulário.

Exemplo

O exemplo seguinte examina a propriedade ControlType de todos os controlos num formulário. Para cada controlo de caixa de texto e etiqueta, o procedimento ativa/desativa a propriedade EfeitoEspecial desses controlos. Quando a propriedade EfeitoEspecial dos controlos de etiqueta está definida como Sombreado, a propriedade EfeitoEspecial do controlo de caixa de texto está definida como Normal e as propriedades PermitirAdições, PermitirEliminações e PermitirEdições estão definidas como Verdadeiro, a variável intCanEdit é ativada 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