Egenskapen AllowAdditions

Gäller för

Form-objekt

Du kan använda egenskapen TillåtTillägg för att ange om en användare kan lägga till en post när han eller hon använder ett formulär. Boolesk för läsning/skrivning.

uttryck.TillåtTillägg

Uttryck Krävs. Ett uttryck som returnerar ett av objekten i listan Gäller för.

Inställning

Egenskapen TillåtTillägg har följande inställningar:

Inställning	Visual Basic	Beskrivning
Ja	Sant	(Standard) Användaren kan lägga till nya poster.
Nej	Falskt	Användaren kan inte lägga till nya poster.

Du kan ange egenskapen TillåtTillägg på formulärets egenskapssida, ett makro eller med VBA-kod (Visual Basic for Applications).

Kommentarer

Ange egenskapen TillåtTillägg till Nej för att tillåta användare att visa eller redigera befintliga poster men inte lägga till nya poster.

Om du vill förhindra ändringar av befintliga poster (skrivskydda ett formulär) anger du egenskaperna TillåtTillägg, TillåtBorttagning och TillåtRedigering till Nej. Du kan också skrivskydda poster genom att ange egenskapen Postuppsättningstyp till Ögonblicksbild.

Om du vill öppna ett formulär endast för datainmatning anger du egenskapen Inmatning i formuläret till Ja.

När egenskapen TillåtTillägg är inställd på Nej är kommandot Ny post under Poster på fliken Data inte tillgängligt.

• TillåtRedigering – Ja
• TillåtBorttagning – Ja
• TillåtTillägg – Ja
• Inmatning – Nej

För att förhindra åtgärden ÖppnaFormulär från att åsidosätta någon av de befintliga egenskapsinställningarna, utelämnar du inställningen för argumentet Dataläge så att Access använder egenskapsinställningarna som definierats av formuläret.

Exempel

I följande exempel undersöks egenskapen KontrollTyp för alla kontroller i ett formulär. För varje etikett- och textrutekontroll växlar proceduren egenskapen Utseende för kontrollerna. När egenskapen SpecialEffect för etikettkontrollerna är inställd på Skuggad och egenskapen SpecialEffect för textrutekontrollerna är inställd på Normal och egenskaperna TillåtTillägg, TillåtBorttagning och TillåtRedigering är inställda på Sant, intCanEdit växlas variabeln så att underliggande data kan redigeras.

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