Propriedade AllowEdits

Aplicável a

Você pode usar o propriedade AllowEdits para especificar se um usuário pode editar registros salvos usando um formulário. Booliano de leitura/gravação.

expressão.AllowEdits

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

Configuração

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

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

Comentários

Você pode usar a propriedade AllowEdits para evitar alterações nos dados existentes por um formulário. Se quiser evitar alterações nos dados em um controle específico, use a propriedade Enabled ou Locked.

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 configurando a propriedade RecordsetType como Instantâneo.

Alterar um valor de campo programaticamente faz o registro atual ser editável, independentemente das configurações da propriedade AllowEdits. Se desejar impedir que os usuários façam alterações em um registro (AllowEdits como No) que você precisa editar programaticamente, salve o registro após alterações programáticas; as configurações da propriedade AllowEdits serão cumpridas novamente depois que as alterações não salvas no registro atual forem salvas.

• 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 e 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 alterna 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