Van toepassing op
Access voor Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Van toepassing op

Formulierobject

U kunt de eigenschap AllowEdits gebruiken om op te geven of een gebruiker een opgeslagen record kan bewerken met behulp van een formulier. Boolean lezen/schrijven.

expressie.AllowEdits

expressie Vereist. Een expressie die een van de objecten in de lijst Van toepassing op retourneert.

Instelling

De eigenschap AllowEdits gebruikt de volgende instellingen.

Instelling

Visual Basic

Beschrijving

Ja

True

(Standaard) De gebruiker kan opgeslagen records bewerken.

Nee

False

De gebruiker kan opgeslagen records niet bewerken.

U kunt de eigenschap AllowEdits instellen met het eigenschappenvenster van het formulier, een macro of VBA-code (Visual Basic for Applications).

Opmerkingen

U kunt de eigenschap AllowEdits gebruiken om wijzigingen te voorkomen in bestaande gegevens die door een formulier worden weergegeven. Gebruik de eigenschap Enabled of Locked als u wijzigingen in gegevens in een specifiek besturingselement wilt voorkomen.

Als u wijzigingen in bestaande records wilt voorkomen (een formulier alleen-lezen maken), stelt u de eigenschappen AllowAdditions, AllowDeletions en AllowEdits in op Nee. U kunt ook records alleen-lezen maken door de eigenschap RecordsetType in te stellen op Snapshot.

Als u een veldwaarde programmatisch wijzigt, kan de huidige record worden bewerkt, ongeacht de instelling van de eigenschap AllowEdits . Als u wilt voorkomen dat de gebruiker wijzigingen aanbrengt in een record (AllowEdits is Nee) die u programmatisch moet bewerken, slaat u de record op na programmatische wijzigingen; de eigenschap AllowEdits wordt opnieuw uitgevoerd nadat niet-opgeslagen wijzigingen in de huidige record zijn opgeslagen.

Opmerking: Als het argument Data Mode van de actie OpenForm wordt gebruikt, zal Microsoft Office Access 2007 een aantal instellingen van formuliereigenschappen vervangen. Als het argument Data Mode van de actie OpenForm is ingesteld op Bewerken, zal in Access het formulier worden geopend met de volgende eigenschapsinstellingen:

  • AllowEdits — Ja

  • AllowDeletions — Ja

  • AllowAdditions — Ja

  • DataEntry — Nee

Om te voorkomen dat de actie OpenForm een van deze bestaande eigenschapsinstellingen vervangt laat u de instelling van het argument Data Mode leeg, zodat de eigenschapsinstellingen die in het formulier zijn aangegeven worden gebruikt.

Voorbeeld

Het volgende voorbeeld onderzoekt de eigenschap ControlType voor alle besturingselementen in een formulier. Voor elk label- en tekstvakbesturingselement, wordt door de procedure de eigenschap SpecialEffect voor die besturingselementen in- of uitgeschakeld. Wanneer de eigenschap SpecialEffect van het labelbesturingselement is ingesteld op Shadowed en de eigenschap SpecialEffect van het tekstvakbesturingselement is ingesteld op Normal en de eigenschappen AllowAdditions, AllowDeletions en AllowEdits allemaal zijn ingesteld op True, wordt de variabele intCanEdit ingeschakeld zodat de onderliggende gegevens kunnen worden bewerkt.

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 IfEnd Sub

Meer hulp nodig?

Meer opties?

Verken abonnementsvoordelen, blader door trainingscursussen, leer hoe u uw apparaat kunt beveiligen en meer.