Vlastnost AllowAdditions

Platí pro

Vlastnost AllowAdditions můžete použít k určení, jestli uživatel může přidat záznam při použití Formulář. Typ Boolean pro čtení/zápis.

výraz.AllowAdditions

Výraz Povinný argument. Výraz, který vrátí jeden z objektů v seznamu Platí pro.

Nastavení

Vlastnost AllowAdditions používá následující nastavení.

Vlastnost AllowAdditions můžete nastavit pomocí kódu Seznam vlastností formuláře , Makro nebo jazyka VBA (Visual Basic for Applications).

Poznámky

Nastavením vlastnosti AllowAdditions na hodnotu Ne uživatelům povolíte prohlížet a upravovat stávající záznamy, ale ne přidávat nové záznamy.

Pokud chcete zabránit změnám stávajících záznamů (nastavit formulář jen pro čtení), nastavte vlastnosti AllowAdditions, AllowDeletions a AllowEdits na hodnotu Ne. Nastavit záznamy jen pro čtení můžete také tak, že vlastnost RecordsetType nastavíte na hodnotu Snímek.

Pokud chcete formulář otevírat jenom pro zadávání dat, nastavte vlastnost DataEntry daného formuláře na hodnotu Ano.

Pokud je vlastnost AllowAdditions nastavená na hodnotu Ne, není příkaz Nový záznam v části Záznamy na kartě Data dostupný.

• AllowEdits – Ano

• AllowDeletions – Ano

• AllowAdditions – Ano

• DataEntry – Ne

Pokud chcete zabránit tomu, aby akce OpenForm (Otevřít formulář) přepisovala tato stávající nastavení vlastností, vynechejte nastavení argumentu Režim dat, aby Access používal nastavení vlastností definovaná formulářem.

Příklad

V následujícím příkladu se zkontroluje vlastnost ControlType u všech ovládacích prvků ve formuláři. U všech ovládacích prvků popisek a textové pole tato procedura přepne vlastnost SpecialEffect. Pokud je u ovládacích prvků popisek vlastnost SpecialEffect nastavená na hodnotu Stínovaný a u ovládacích prvků textové pole je vlastnost SpecialEffect nastavená na hodnotu Normální a vlastnosti AllowAdditions, AllowDeletions a AllowEdits jsou všechny nastavené na hodnotu True, přepne se proměnná intCanEdit tak, aby se povolily úpravy podkladových dat.

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