AllowAdditions 屬性

適用對象

Form 物件

您可以使用 AllowAdditions 屬性來指定使用者是否可以在使用表單時新增記錄。讀/寫布林值

運算式.AllowAdditions

必須要有 expression。傳回「適用對象」清單中其中一個物件的運算式。

設定

AllowAdditions 屬性使用下列設定。

設定

Visual Basic

描述

Yes

True

(預設) 使用者可以新增記錄。

No

False

使用者無法新增記錄。


您可以使用表單的屬性工作表、巨集或 Visual Basic for Applications (VBA) 程式碼來設定 AllowAdditions 屬性。

備註

AllowAdditions 屬性設為No 可允許使用者檢視或編輯現有記錄,但不允許新增記錄。

如果您想要防止對現有記錄進行變更 (讓表單變成唯讀狀態),請將 AllowAdditionsAllowDeletionsAllowEdits 屬性設為 No。您也可以將 RecordsetType 屬性設為 Snapshot,讓記錄變成唯讀狀態。

如果您僅為輸入資料而開啟表單,請將表單的 DataEntry 屬性設為 Yes

AllowAdditions 屬性設為 No 時,則無法使用 [資料] 索引標籤的 [記錄] 底下的 [新增記錄] 命令。

附註: 使用 OpenForm 動作的 Data Mode 引數時,Microsoft Office Access 2007 將會覆寫數個表單屬性設定。如果 OpenForm 動作的 Data Mode 引數設為 Edit,Access 將會開啟具有下列屬性設定的表單:

  • AllowEdits — 是

  • AllowDeletions — 是

  • AllowAdditions — 是

  • DataEntry — 否

若要防止 OpenForm 動作覆寫任何現有的屬性設定,請忽略 Data Mode 引數設定,讓 Access 使用表單定義的屬性設定。

範例

下列範例會在表單上檢查所有控制項的 ControlType 屬性。對於每個標籤和文字方塊控制項,此程序可以切換這些控制項的 SpecialEffect 屬性。當標籤控制項的 SpecialEffect 屬性設為 Shadowed、文字方塊控制項的 SpecialEffect 屬性設為 Normal,且 AllowAdditionsAllowDeletionsAllowEdits 屬性全都設為 True 時,就會切換 intCanEdit 變數,以允許編輯基礎資料。

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
擴展您的技能
探索訓練
優先取得新功能
加入 Office 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與其中一位 Office 支援專員連絡以深入了解您的意見。

×