Vlastnost AllowEdits

Platí pro
Access pro Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Platí pro

Objekt Form

Vlastnost AllowEdits můžete použít k určení, zda uživatel může upravovat uložené záznamy při použití formuláře. Typ Boolean pro čtení/zápis.

výraz.AllowEdits

Výraz Požadované. Výraz, který vrátí jeden z objektů v seznamu Platí pro.

Nastavení

Vlastnost AllowEdits (Povolit úpravy) používá následující nastavení.

Nastavení Visual Basic Popis
Ano True (Výchozí) Uživatel může upravit uložené záznamy.
Ne False Uživatel nemůže upravit uložené záznamy.

      

Vlastnost AllowEdits můžete nastavit pomocí seznamu vlastností formuláře, makra nebo kódu jazyka VBA (jazyk Visual Basic for Application).

Poznámky

Pomocí vlastnosti AllowEdits (Povolit úpravy) můžete zabránit tomu, aby formulář zobrazil změny ve stávajících datech. Pokud chcete zabránit změnám dat v konkrétním ovládacím prvku, použijte vlastnost Enabled (Zpřístupnit) nebo Locked (Uzamknout).

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

Změna hodnoty pole programově způsobí, že aktuální záznam bude možné upravovat bez ohledu na nastavení vlastnosti AllowEdits . Pokud chcete uživateli zabránit v provádění změn záznamu (AllowEdits is No), který potřebujete upravit programově, uložte záznam po jakýchkoli programových změnách. Nastavení vlastnosti AllowEdits bude po uložení všech neuložených změn aktuálního záznamu znovu respektováno.

Poznámka

Pokud je nastaven argument Režim dat akce Otevřít formulář, Aplikace systém Microsoft Office Access 2007 přepíše několik nastavení vlastností formuláře. Pokud je argument Režim dat v akci OpenForm (Otevřít formulář) nastavený na Edit (Úpravy), Access otevře formulář s tímto nastavením vlastností:

  • 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 vlastnost SpecialEffect ovládacích prvků popisku nastavená na Stínované a vlastnost SpecialEffect ovládacích prvků textového pole je nastavená na Normální a vlastnosti AllowAdditions, AllowDeletions a AllowEdits jsou nastavené na Hodnotu True, proměnná se přepíná tak, intCanEdit aby umožňovala ú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