AllowEdits-Eigenschaft (BearbeitungenZulassen)

Gilt für:

Mit der BearbeitungenZulassen-Eigenschaft können Sie angeben, ob ein Benutzer bei Verwendung eines Formulars gespeicherte Datensätze bearbeiten kann. Boolescher Wert mit Lese-/Schreibzugriff.

Ausdruck.BearbeitungenZulassen

Ausdruck Erforderlich. Ein Ausdruck, der eines der Objekte in der Liste "Gilt für" zurückgibt.

Einstellung

Die BearbeitungenZulassen-Eigenschaft verwendet die folgenden Einstellungen.

Sie können die BearbeitungenZulassen-Eigenschaft mithilfe des Eigenschaftenblatts eines Formulars, eines Makros oder von VBA-Code (Visual Basic for Applications) festlegen.

Hinweise

Mit der BearbeitungenZulassen-Eigenschaft können Sie verhindern, dass Änderungen an den in einem Formular angezeigten Daten vorgenommen werden. Wenn Sie Änderungen an Daten in einem bestimmten Steuerelement verhindern möchten, verwenden Sie die Eigenschaft Aktiviert oder Gesperrt.

Wenn Sie Änderungen an vorhandenen Datensätzen verhindern (ein Formular mit Schreibschutz versehen) möchten, legen Sie die Eigenschaften AnfügenZulassen, LöschenZulassen und BearbeitungenZulassen auf "Nein" fest. Sie können auch Datensätze mit Schreibschutz versehen, indem Sie die RecordsetType-Eigenschaft auf Snapshot festlegen.

Das programmgesteuerte Ändern eines Feldwerts bewirkt, dass der aktuelle Datensatz unabhängig von der Einstellung der AllowEdits-Eigenschaft bearbeitet werden kann. Wenn Sie verhindern möchten, dass der Benutzer Änderungen an einem Datensatz vornimmt (AllowEdits ist Nein), den Sie programmgesteuert bearbeiten müssen, speichern Sie den Datensatz nach allen programmgesteuerten Änderungen. Die Einstellung der AllowEdits-Eigenschaft wird erneut berücksichtigt, nachdem alle nicht gespeicherten Änderungen am aktuellen Datensatz gespeichert wurden.

• AllowEdits — Yes

• AllowDeletions — Yes

• AllowAdditions — Yes

• DataEntry – No

Um zu verhindern, dass die OpenForm-Aktion eine vorhandene Eigenschafteneinstellung überschreibt, verzichten Sie auf die "DataMode"-Argumenteinstellung, damit Access die vom Formular definierten Eigenschafteneinstellungen verwendet.

Beispiel

Im folgenden Beispiel wird die ControlType-Eigenschaft für alle Steuerelemente in einem Formular untersucht. Bei jedem Beschriftungs- und Textfeld-Steuerelement wird bei diesem Verfahren die Spezialeffekt-Eigenschaft für diese Steuerelemente umgeschaltet. Wenn die Spezialeffekt-Eigenschaft der Beschriftungssteuerelemente auf Schattiert, die Spezialeffekt-Eigenschaft der Textfeld-Steuerelemente auf Normal und die Eigenschaften AnfügenZulassen, LöschenZulassen und BearbeitungenZulassen jeweils auf True festgelegt sind, wird die intCanEdit-Variable umgeschaltet, um die Bearbeitung der zugrunde liegenden Daten zuzulassen.

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