Egenskaben TilladTilføjelser

Gælder for

Du kan bruge egenskaben TilladRedigeringer til at angive, om en bruger kan tilføje en post, når der bruges en formular. Læs/skriv boolesk.

udtryk.TilladTilføjelser

udtryk Påkrævet. Et udtryk, der returnerer et af objekterne på listen Gælder for.

Indstilling

Egenskaben TilladTilføjelser anvender følgende indstillinger.

Du kan indstille egenskaben TilladTilføjelser ved hjælp af formularens egenskabsark, en makro eller VBA-kode (Visual Basic for Applications).

Bemærkninger

Angiv egenskaben TilladTilføjelser til Nej for at give brugere tilladelse til at få vist eller redigere eksisterende poster, men ikke tilføje nye poster.

Hvis du vil forhindre ændringer i eksisterende poster (gøre en formular skrivebeskyttet), skal du angive egenskaberne TilladTilføjelser, TilladSletninger og TilladRedigeringer til Nej. Du kan også gøre poster skrivebeskyttede ved at angive egenskaben Postsættype til Snapshot.

Hvis du vil åbne en formular kun til dataindtastning, kan du angive formularens Dataindtastning-egenskab til Ja.

Når egenskaben TilladTilføjelser er angivet til Nej, er kommandoen Ny post under Poster på fanen Data ikke tilgængelig.

• TilladRedigeringer – Ja

• TilladSletninger – Ja

• TilladTilføjelser – Ja

• Dataindtastning – Nej

Hvis du vil forhindre handlingen ÅbnFormular i at tilsidesætte nogen af de eksisterende egenskabsindstillinger, skal du udelade indstillingen for argumentet Datatilstand, så Access anvender de egenskabsindstillinger, der defineres af formularen.

Eksempel

Følgende eksempel undersøger egenskaben Kontrolelementtype for alle kontrolelementer i en formular. For hvert navne- og tekstfeltkontrolelement slå proceduren egenskaben Reliefvirkning til eller fra for disse kontrolelementer. Når egenskaben Reliefvirkning for navnekontrolelementet er angivet til Skyggevirkning, og egenskaben Reliefvirkning for tekstfeltkontrolelementet er angivet til Normal, og egenskaberne TilladTilføjelser, TilladSletninger og TilladRedigeringer er angivet til Sand, skiftes variablen intCanEdit for at tillade redigering af de underliggende 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