คุณสมบัติ AllowBypassKey

การตั้งค่า

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

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

เมื่อต้องการตั้งค่าคุณสมบัติ AllowBypassKey โดยใช้แมโครหรือโค้ด Visual Basic for Applications (VBA) คุณต้องสร้างคุณสมบัติด้วยวิธีต่อไปนี้:

• ในฐานข้อมูล Microsoft Access (.mdb หรือ .accdb) คุณสามารถเพิ่มคุณสมบัติได้โดยใช้วิธี CreateProperty แล้วทำการผนวกไปยังคอลเลกชัน Properties ของวัตถุ Database

• ใน โครงการ Microsoft Access (.adp) คุณสามารถเพิ่มคุณสมบัติไปยังคอลเลกชันAccessObjectProperties ของวัตถุ CurrentProject โดยใช้เมธอด Add

ข้อสังเกต

คุณควรตรวจสอบให้แน่ใจว่าคุณสมบัติ AllowBypassKey ถูกตั้งค่าเป็น จริง เมื่อคุณแก้ไขจุดบกพร่องของแอปพลิเคชัน

การตั้งค่าคุณสมบัติ AllowBypassKey จะไม่มีผลจนกว่าจะเปิดฐานข้อมูลของแอปพลิเคชันในครั้งถัดไป

ตัวอย่าง

ตัวอย่างต่อไปนี้แสดงกระบวนงานที่ชื่อ SetBypassProperty ที่ส่งผ่านชื่อของคุณสมบัติที่จะตั้งค่า ชนิดข้อมูล และการตั้งค่า กระบวนงานวัตถุประสงค์ทั่วไป ChangeProperty จะพยายามตั้งค่าคุณสมบัติ AllowBypassKey และถ้าไม่พบคุณสมบัติ ให้ใช้เมธอด CreateProperty เพื่อผนวกคุณสมบัติไปยังคอลเลกชัน ที่เหมาะสม จําเป็นต้องทําสิ่งนี้เนื่องจากคุณสมบัติ AllowBypassKey ไม่ปรากฏในคอลเลกชัน Properties จนกว่าจะถูกเพิ่มเข้าไป

Sub SetBypassProperty()
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Function ChangeProperty(strPropName As String, _
    varPropType As Variant, _
    varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function