AllowEdits-Eigenschaft

Access für Microsoft 365 Access 2021 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007 Mehr... Weniger

Gilt für

Formularobjekt

Sie können die AllowEdits- Eigenschaft verwenden, um anzugeben, ob ein Benutzer gespeicherte Datensätze bearbeiten kann, wenn er ein Formular verwendet. Boolean lesen/schreiben.

Ausdruck . Bearbeiten zulassen

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

Einstellung

Die AllowEdits- Eigenschaft verwendet die folgenden Einstellungen.

Einstellung	Visual Basic	Beschreibung
ja	Wahr	(Standard) Der Benutzer kann gespeicherte Datensätze bearbeiten.
Nein	Falsch	Der Benutzer kann gespeicherte Datensätze nicht bearbeiten.

Sie können die AllowEdits -Eigenschaft festlegen, indem Sie das Eigenschaftenblatt des Formulars, ein Makro oder VBA-Code (Visual Basic for Applications) verwenden.

Bemerkungen

Sie können die AllowEdits- Eigenschaft verwenden, um Änderungen an vorhandenen Daten zu verhindern, die von einem Formular angezeigt werden. Wenn Sie Änderungen an Daten in einem bestimmten Steuerelement verhindern möchten, verwenden Sie die Eigenschaft Enabled oder Locked .

Wenn Sie Änderungen an vorhandenen Datensätzen verhindern möchten (ein Formular schreibgeschützt machen), legen Sie die Eigenschaften AllowAdditions , AllowDeletions und AllowEdits auf No fest. Sie können Datensätze auch schreibgeschützt machen, indem Sie die Eigenschaft RecordsetType auf Snapshot setzen.

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

Hinweis: Wenn das Datenmodus-Argument der OpenForm-Aktion festgelegt ist, überschreibt Microsoft Office Access 2007 eine Reihe von Formulareigenschafteneinstellungen. Wenn das Datenmodus-Argument der OpenForm -Aktion auf Edit festgelegt ist, öffnet Access das Formular mit den folgenden Eigenschaftseinstellungen:

• AllowEdits — Ja

• Löschungen zulassen – Ja

• AllowAdditions – Ja

• Dateneingabe – Nein

Um zu verhindern, dass die OpenForm -Aktion eine dieser vorhandenen Eigenschafteneinstellungen überschreibt, lassen Sie die Einstellung des Datenmodus-Arguments weg, damit Access die vom Formular definierten Eigenschafteneinstellungen verwendet.

Beispiel

Im folgenden Beispiel wird die ControlType- Eigenschaft für alle Steuerelemente in einem Formular untersucht. Für jedes Beschriftungs- und Textfeldsteuerelement schaltet die Prozedur die SpecialEffect -Eigenschaft für diese Steuerelemente um. Wenn die SpecialEffect -Eigenschaft der Beschriftungssteuerelemente auf Shadowed und die SpecialEffect -Eigenschaft der Textfeldsteuerelemente auf Normal festgelegt ist und die Eigenschaften Allow Additions , AllowDeletions und AllowEdits alle auf True festgelegt sind, wird die Variable intCanEdit umgeschaltet, um die Bearbeitung des zugrunde liegenden Elements zuzulassen Daten.

 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