Proprietà AllowAdditions

Si applica a

È possibile usare la proprietà AllowAdditions per specificare se un utente può aggiungere un record quando usa una maschera. Oggetto Boolean di lettura/scrittura.

espressione.AllowAdditions

espressione Obbligatorio. Espressione che restituisce uno degli oggetti inclusi nell'elenco Si applica a.

Impostazione

La proprietà AllowAdditions usa le impostazioni seguenti.

È possibile impostare la proprietà AllowAdditions usando la finestra delle proprietà della maschera, una macro o il codice di Visual Basic, Applications Edition (VBA).

Osservazioni

Impostare la proprietà AllowAdditions su No per consentire agli utenti di visualizzare o modificare i record esistenti, ma non di aggiungere nuovi record.

Per impedire modifiche ai record esistenti, ovvero configurare una maschera come di sola lettura, impostare le proprietà AllowAdditions, AllowDeletions e AllowEdits su No. È anche possibile configurare i record come di sola lettura impostando la proprietà RecordsetType su Snapshot.

Per aprire una maschera solo per l'immissione di dati, impostare la proprietà DataEntry della maschera su Yes.

Quando la proprietà AllowAdditions è impostata su No, il comando Nuovo record in Record nella scheda Dati non è disponibile.

• AllowEdits - Yes

• AllowDeletions - Yes

• AllowAdditions - Yes

• DataEntry - No

Per impedire all'azione OpenForm di eseguire l'override delle impostazioni delle proprietà esistenti, omettere l'impostazione dell'argomento relativo alla modalità di immissione dati, in modo che Access usi le impostazioni delle proprietà definite dalla maschera.

Esempio

L'esempio seguente esamina la proprietà ControlType per tutti i controlli in una maschera. Per ogni controllo etichetta e per ogni controllo casella di testo la procedura attiva/disattiva la proprietà SpecialEffect per questi controlli. Quando la proprietà SpecialEffect dei controlli etichetta è impostata su Shadowed, la proprietà SpecialEffect dei controlli casella di testo è impostata su Normal e le proprietà AllowAdditions, AllowDeletions, e AllowEdits sono tutte impostate su True, la variabile intCanEdit viene attivata/disattivata per consentire la modifica dei dati sottostanti.

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