มีท่านหนึ่งได้สอบถามคำถามข้างล่างไว้ที่
http://pantip.inet.co.th/tech/software/topic/SA661216.html
"ป้องกันการกดแป้น Shift ใน Access เราจะทำการป้องกันไม่ให้ ผู้ใช้เข้ามาในฐานข้อมูลที่เราสร้าง จาก Access โดยการกด Shift อย่างไร
หรือ จะตั้งค่า Allow BypassKey อย่างไร ช่วยด้วยครับ
(ไม่ต้องการตั้งค่า password จากโปรแกรมที่มีอยู่) ขอบคุณครับ

จากคุณ : job [9 เม.ย. 2544 - 20:59:33] "

คำตอบคือ ให้ศึกษาจาก Help ของ Access โดยค้นคำว่า
AllowBypassKey แล้วศึกษาจากตัวอย่างที่ให้มา

หรือถ้าไม่อยากอ่าน ก็ให้ทำการคัดลอกโค้ดข้างล่างไปใช้ได้เลย

Sub SetStartupProperties()
ChangeProperty "AllowBypassKey", dbBoolean, True

End Sub

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Database, prp As Property
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

โดยจะต้องมีการเรียกใช้ StartUp ใน Tools ด้วย *** Edited by Supap Chaiya *** 7/21/2003 1:28:44 PM