คุณสามารถใช้คุณสมบัติ AllowBypassKey เพื่อระบุว่าแป้น SHIFT จะเปิดใช้งานสําหรับการข้ามคุณสมบัติเริ่มต้นและแมโคร AutoExec หรือไม่ ตัวอย่างเช่น คุณสามารถตั้งค่าคุณสมบัติ AllowBypassKey เป็น False เพื่อป้องกันไม่ให้ผู้ใช้ข้ามคุณสมบัติการเริ่มต้นและแมโคร AutoExec ได้
การตั้งค่า
คุณสมบัติ AllowBypassKey ใช้การตั้งค่าต่อไปนี้
| การตั้งค่า | คำอธิบาย |
|---|---|
| จริง | เปิดใช้งานแป้น SHIFT เพื่ออนุญาตให้ผู้ใช้ข้ามการทำงานของคุณสมบัติการเริ่มต้น และแมโคร AutoExec |
| เท็จ | ปิดใช้งานแป้น SHIFT เพื่อป้องกันผู้ใช้ไม่ให้ข้ามการทำงานของคุณสมบัติการเริ่มต้น และแมโคร AutoExec |
คุณสามารถตั้งค่าคุณสมบัตินี้ได้โดยใช้แมโครหรือโค้ด 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 ถูกตั้งค่าเป็น True เมื่อคุณแก้จุดบกพร่องของแอปพลิเคชัน
การตั้งค่าคุณสมบัติ AllowBypassKey จะไม่มีผลจนกว่าจะเปิดฐานข้อมูลของแอปพลิเคชันในครั้งถัดไป
ตัวอย่าง
ตัวอย่างต่อไปนี้แสดงกระบวนงานที่ชื่อ SetBypassProperty ที่ส่งผ่านชื่อของคุณสมบัติที่จะตั้งค่า ชนิดข้อมูล และการตั้งค่า กระบวนงานวัตถุประสงค์ทั่วไป ChangeProperty จะพยายามตั้งค่าคุณสมบัติ AllowBypassKey และถ้าไม่พบคุณสมบัติ ให้ใช้เมธอด CreateProperty เพื่อผนวกคุณสมบัติกับคอลเลกชัน Properties จําเป็นต้องทําสิ่งนี้เนื่องจากคุณสมบัติ 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