Freigeben über

Form.AllowAdditions-Eigenschaft (Access)

  • Artikel

Verwenden Sie die AllowAdditions-Eigenschaft , um anzugeben, ob ein Benutzer einen Datensatz hinzufügen kann, wenn er ein Formular verwendet. Boolescher Wert mit Lese-/Schreibzugriff.

Syntax

Ausdruck. AllowAdditions

expression Eine Variable, die ein Form-Objekt darstellt.

Hinweise

Das Festlegen der AllowAdditions-Eigenschaft auf „Nein“ ermöglicht den Benutzern das Anzeigen oder Bearbeiten bestehender, jedoch nicht das Hinzufügen neuer Datensätze.

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

Wenn Sie ein Formular nur für die Dateneingabe öffnen möchten, legen Sie die DataEntry-Eigenschaft des Formulars auf Ja fest.

Wenn die AllowAdditions-Eigenschaft auf „Nein“ festgelegt ist, ist im Menü Datensätze der Befehl Daten eingeben nicht verfügbar.

Hinweis

Wenn das DataMode-Argument der OpenForm-Aktion verwendet wird, überschreibt Microsoft Access eine Reihe von Formulareigenschafteneinstellungen. Wenn das DataMode-Argument der OpenForm-Aktion auf Bearbeiten festgelegt ist, öffnet Access das Formular mit den folgenden Eigenschafteneinstellungen:

  • AllowEdits – Ja
  • AllowDeletions – Ja
  • AllowAdditions – Ja
  • DataEntry – Nein

Beispiel

Im folgenden Beispiel wird die ControlType-Eigenschaft für alle Steuerelemente eines Formulars ausgewertet. Für jedes Bezeichnungsfeld- und Textfeld-Steuerelement schaltet die Prozedur die jeweilige SpecialEffect-Eigenschaft um. Wenn die SpecialEffect-Eigenschaft der Bezeichnungssteuerelemente auf Shadowed und die SpecialEffect-Eigenschaft der Textfeldsteuerelemente auf Normal festgelegt ist und die Eigenschaften AllowAdditions, AllowDeletions und AllowEdits alle auf True festgelegt sind, wird die Variable umgeschaltet, um die intCanEdit Bearbeitung der zugrunde liegenden Daten zu ermöglichen.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.