คุณสมบัติ 'อนุญาตให้แก้ไข' (AllowEdits)

นำไปใช้กับ

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

นิพจน์.AllowEdits

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

การตั้งค่า

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

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

ข้อสังเกต

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

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

การเปลี่ยนค่าเขตข้อมูลโดยทางโปรแกรมจะทําให้ระเบียนปัจจุบันสามารถแก้ไขได้ โดยไม่คํานึงถึงการตั้งค่าคุณสมบัติ AllowEdits ถ้าคุณต้องการป้องกันไม่ให้ผู้ใช้ทําการเปลี่ยนแปลงระเบียน (AllowEdits is No) ที่คุณต้องการแก้ไขทางโปรแกรม ให้บันทึกระเบียนหลังจากการเปลี่ยนแปลงทางโปรแกรมใดๆ การตั้งค่าคุณสมบัติ AllowEdits จะได้รับการยอมรับอีกครั้งหลังจากการเปลี่ยนแปลงที่ยังไม่ได้บันทึกในระเบียนปัจจุบันถูกบันทึก

• AllowEdits — ใช่

• AllowDeletions — ใช่

• AllowAdditions — ใช่

• DataEntry — ไม่ใช่

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

ตัวอย่าง

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