AllowEdits-Eigenschaft (BearbeitungenZulassen)

Betrifft

Form-Objekt

Verwenden Sie die AllowEdits-Eigenschaft, um anzugeben, ob ein Benutzer beim Verwenden eines Formular gespeicherte Datensätze bearbeiten kann. Wert vom Typ Boolean mit Lese-/Schreibzugriff.

Ausdruck.AllowEdits

Ausdruck Erforderlich. Ein Ausdruck, der eines der Objekte aus der Liste Betrifft zurückgibt.

Einstellung

Mit der AllowEdits-Eigenschaft werden die folgenden Einstellungen verwendet.

Einstellung

Visual Basic

Beschreibung

Ja

True

(Standard) Der Benutzer kann gespeicherte Datensätze bearbeiten.

Nein

False

Der Benutzer kann keine gespeicherten Datensätze bearbeiten.


Sie können die AllowEdits-Eigenschaft mithilfe des Eigenschaftenblatt des Formulars, eines Makro oder mit Visual Basic for Applications (VBA)-Code festlegen.

Hinweise

Mit der AllowEdits-Eigenschaft können Sie verhindern, dass Änderungen an vorhandenen Daten in einem Formular angezeigt werden. Wenn Sie nicht möchten, dass Daten in einem bestimmten Steuerelement geändert werden, verwenden Sie die Eigenschaft Enabled oder Locked.

Wenn Sie Änderungen an vorhandenen Datensätzen verhindern (den Schreibschutz für ein Formular aktivieren) möchten, legen Sie die Eigenschaften AllowAdditions, AllowDeletions und AllowEdits auf Nein fest. Sie können den Schreibschutz für Datensätze auch aktivieren, indem Sie die RecordsetType-Eigenschaft auf Snapshot festlegen.

Wird ein Feldwert programmgesteuert geändert, kann der aktuelle Datensatz unabhängig von der AllowEdits-Eigenschafteneinstelllung bearbeitet werden. Wenn Sie verhindern möchten, dass ein Benutzer Datensätze ändert (AllowEdits ist auf Nein festgelegt), die Sie programmgesteuert bearbeiten müssen, speichern Sie den Datensatz nach jeder programmgesteuerten Änderung. Die AllowEdits-Eigenschaft wird nach jeder nicht gespeicherten Änderung am aktuellen Datensatz wieder angewendet.

Hinweis : Wenn das Argument Datenmodus der ÖffnenFormular-Aktion verwendet wird, werden einige Eigenschafteneinstellungen von Microsoft Office Access 2007 außer Kraft gesetzt. Ist das Datenmodus-Argument der ÖffnenFormular-Aktion auf Bearbeiten festgelegt, wird das Formular von Access mit den folgenden Eigenschafteneinstellungen geöffnet:

  • AllowEdits (BearbeitungenZulassen) – Ja

  • AllowDeletions (LöschenZulassen) – Ja

  • AllowAdditions (AnfügenZulassen) – Ja

  • DataEntry (DatenEingeben) – No

Wenn Sie verhindern möchten, dass diese vorhandenen Eigenschafteneinstellungen von der ÖffnenFormular-Aktion außer Kraft gesetzt werden, legen Sie das Argument Datenmodus nicht fest. Es werden dann die vom Formular definierten Eigenschafteneinstellungen von Access verwendet.

Beispiel

Im folgenden Beispiel wird die ControlType-Eigenschaft für alle Steuerelemente eines Formulars veranschaulicht. Bei jedem Bezeichnungsfeld- und Textfeld-Steuerelement schaltet die Prozedur die SpecialEffect-Eigenschaft für diese Steuerelemente um. Wenn die SpecialEffect-Eigenschaft des Bezeichnungsfeld-Steuerelements auf Shadowed und die SpecialEffect-Eigenschaft des Textfeld-Steuerelements auf Normal festgelegt sind und die Eigenschaften AllowAdditions, AllowDeletions und AllowEdits jeweils auf True festgelegt sind, wird die Variable intCanEdit umgeschaltet, sodass die Bearbeitung der zugrunde liegenden Daten möglich ist.

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
Teilen Facebook Facebook Twitter Twitter E-Mail E-Mail

War diese Information hilfreich?

Sehr gut. Noch anderes Feedback?

Was können wir verbessern?

Vielen Dank für Ihr Feedback!

×