PermitirAgregar (propiedad)

Se aplica a

Puede usar la propiedad AllowAdditions para especificar si un usuario puede agregar un registro cuando use un formulario. Valor Boolean de lectura y escritura.

expression.AllowAdditions

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

Configuración

En la propiedad AllowAdditions se usan los valores siguientes.

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

Observaciones

Establezca la propiedad AllowAdditions en No para permitir a los usuarios ver o editar registros existentes pero no agregar nuevos registros.

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 crear registros de solo lectura estableciendo la prioridad RecordsetType en Instantánea.

Si quiere abrir un formulario solo para entrada de datos, establezca la propiedad DataEntry en Sí.

Cuando la propiedad AllowAdditions se establece en No, el comando Nuevo registro en Registros en la pestaña Datos no está disponible.

• 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, la propiedad SpecialEffect de los controles de cuadro de texto se establece en Normal y las propiedades AllowAdditions, AllowDeletions y AllowEdits se establecen todas en True, la variable intCanEdit cambia 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