คุณสมบัติ AllowAdditions

นำไปใช้กับ

วัตถุ Form

คุณสามารถใช้คุณสมบัติ AllowAdditions เพื่อระบุว่าผู้ใช้สามารถเพิ่มระเบียนเมื่อใช้ ฟอร์ม ได้หรือไม่ อ่าน/เขียน บูลีน

นิพจน์.AllowAdditions

จำเป็นต้องมี นิพจน์ นิพจน์ที่ส่งกลับวัตถุใดวัตถุหนึ่งในรายการ นำไปใช้กับ

การตั้งค่า

คุณสมบัติ AllowAdditions ใช้การตั้งค่าต่อไปนี้

การตั้งค่า

Visual Basic

คำอธิบาย

ใช่

จริง

(ค่าเริ่มต้น) ผู้ใช้สามารถเพิ่มระเบียนใหม่

ไม่ได้

เท็จ

ผู้ใช้ไม่สามารถเพิ่มระเบียนใหม่


คุณสามารถตั้งค่าคุณสมบัติ AllowAdditions โดยใช้ แผ่นคุณสมบัติแมโคร หรือโค้ด Visual Basic for Applications (VBA) ของฟอร์มได้

ข้อสังเกต

ตั้งค่าคุณสมบัติ AllowAdditions เป็น ไม่ใช่ เพื่ออนุญาตให้ผู้ใช้ดูหรือแก้ไขระเบียนที่มีอยู่แต่ไม่ให้เพิ่มระเบียนใหม่

ถ้าคุณต้องการไม่ให้มีการเปลี่ยนแปลงระเบียนที่มีอยู่แล้ว (ทำให้ฟอร์มเป็นอ่านอย่างเดียว) ให้ตั้งค่าคุณสมบัติ AllowAdditions, AllowDeletions และ AllowEdits เป็น ไม่ใช่ คุณยังสามารถสร้างระเบียนแบบอ่านอย่างเดียวโดยการตั้งค่าคุณสมบัติ RecordsetType เป็น สแนปช็อต

ถ้าคุณต้องการเปิดฟอร์มสำหรับรายการข้อมูลเท่านั้น ให้ตั้งค่าคุณสมบัติ DataEntry เป็น ใช่

เมื่อคุณสมบัติ AllowAdditions ถูกตั้งค่าเป็น ไม่ใช่ คำสั่ง ระเบียนใหม่ ภายใต้ ระเบียน บนแท็บ ข้อมูล จะไม่พร้อมใช้งาน

หมายเหตุ: เมื่ออาร์กิวเมนต์โหมดข้อมูลของการดำเนินการ OpenForm ถูกใช้ Microsoft Office Access 2007 จะแทนที่การตั้งค่าคุณสมบัติส่วนหนึ่งของฟอร์ม ถ้าอาร์กิวเมนต์โหมดข้อมูลของการดำเนินการ OpenForm ถูกตั้งค่าเพื่อ แก้ไข Access จะเปิดฟอร์มที่มีการตั้งค่าคุณสมบัติต่อไปนี้:

  • AllowEdits — ใช่

  • AllowDeletions — ใช่

  • AllowAdditions — ใช่

  • DataEntry — ไม่ใช่

เมื่อต้องการป้องกันการดำเนินการ OpenForm ไม่ให้แทนที่การตั้งค่าคุณสมบัติที่มีอยู่เหล่านี้ ให้ละเว้นอาร์กิวเมนต์โหมดข้อมูลเพื่อให้ Access ใช้การตั้งค่าคุณสมบัติที่กำหนดโดยฟอร์ม

ตัวอย่าง

ตัวอย่างต่อไปนี้ตรวจสอบคุณสมบัติ ControlType สำหรับตัวควบคุมทั้งหมดบนฟอร์ม สำหรับควบคุมป้ายชื่อและตัวควบคุมกล่องข้อความแต่ละตัว กระบวนงานจะเปิดใช้คุณสมบัติ SpecialEffect สำหรับตัวควบคุมเหล่านั้น เมื่อคุณสมบัติ SpecialEffect ของตัวควบคุมป้ายชื่อถูกตั้งค่าเป็น Shadowed และคุณสมบัติ SpecialEffect ของตัวควบคุมกล่องข้อความถูกตั้งค่าเป็น Normal และคุณสมบัติ AllowAdditions, AllowDeletions และ AllowEdits ทั้งหมดถูกตั้งค่าเป็น 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 Insider

ข้อมูลนี้เป็นประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ!

ขอขอบคุณสำหรับคำติชมของคุณ! เราคิดว่าอาจเป็นประโยชน์ที่จะให้คุณได้ติดต่อกับหนึ่งในตัวแทนฝ่ายสนับสนุน Office ของเรา

×