Egenskapen AllowAdditions

Gäller för

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

uttryck.TillåtTillägg

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

Inställning

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

Du kan ange egenskapen TillåtTillägg på formulärets egenskapssida, i 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 angetts till 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 Utseende för etikettkontrollerna angetts till Skuggad och egenskapen Utseende för textrutekontrollerna angetts till Normal, och egenskaperna TillåtTillägg, TillåtBorttagning och TillåtRedigering alla angetts till Sant, växlas variabeln intCanEdit till att tillåta redigering i underliggande data.

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