PerimitirEdiciones (propiedad)

Se aplica a
Access para Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Se aplica a

Objeto Form

Puede usar la propiedad AllowEdits para especificar si un usuario puede editar registros guardados al usar un formulario. Valor Booleano de lectura y escritura.

expresión.AllowEdits

expresión Obligatorio. Una expresión que devuelve uno de los objetos de la lista Se aplica a.

Configuración

En la propiedad AllowEdits se usan los valores siguientes.

Opción Visual Basic Descripción
True (Valor predeterminado) El usuario puede modificar los registros guardados.
No False El usuario no puede modificar los registros guardados.

      

Puede establecer la propiedad AllowEdits mediante la hoja de propiedades del formulario, una macro o código de Visual Basic para Aplicaciones (VBA).

Observaciones

Puede usar la propiedad AllowEdits para impedir cambios en los datos existentes mostrados en un formulario. Si quiere evitar cambios en los datos de un control específico, use la propiedad Enabled o Locked.

Si quiere evitar cambios en los registros existentes (hacer que un formulario sea de solo lectura), establezca las propiedades AllowAdditions, AllowDeletions y AllowEdits en No. También puede hacer que los registros sean de solo lectura si establece la propiedad RecordsetType en Snapshot.

Al cambiar un valor de campo mediante programación, el registro actual se vuelve editable, independientemente del valor de la propiedad AllowEdits. Si quiere evitar que el usuario realice cambios en un registro (AllowEdits es No) que necesite editar mediante programación, guarde el registro después de los cambios realizados mediante programación; el valor de la propiedad AllowEdits se aplicará de nuevo cuando se guarden los cambios no guardados en el registro actual.

Nota

Cuando se establece el argumento data mode de la acción OpenForm, Microsoft Office Access 2007 invalidará una serie de opciones de configuración de propiedades de formulario. Si el argumento DataMode de la acción OpenForm se establece en Editar, Access abrirá el formulario con las siguientes opciones de configuración de propiedad:

  • AllowEdits: sí
  • AllowDeletions: sí
  • AllowAdditions: sí
  • DataEntry: no

Para evitar que la acción OpenForm invalide alguno de los valores de propiedad existentes, omita el valor del argumento de modo de datos para que Access use los valores de propiedad definidos por el formulario.

Ejemplo

En el ejemplo siguiente se examina la propiedad ControlType para todos los controles de formulario. Por cada control de cuadro de texto y de etiqueta, el procedimiento alterna la propiedad SpecialEffect de esos controles. Cuando la propiedad SpecialEffect de los controles de etiqueta se establece en Shadowed y la propiedad SpecialEffect de los controles de cuadro de texto se establece en Normal y las propiedades AllowAdditions, AllowDeletions y AllowEdits se establecen en True, la intCanEdit variable se alterna para permitir la edición de los datos subyacentes.

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