在ADP中怎样屏蔽掉Shift键

huanghai

大熊记性真好！
----------------------

AllowBypassKey 属性
请参阅 示例 特性使用 AllowBypassKey 属性可以指定是否允许用 Shift 键来忽略启动属性和 AutoExec 宏。例如，将 AllowBypassKey 属性设为 False 可避免用户忽略启动属性和 AutoExec 宏。

设置
AllowBypassKey 属性使用以下设置：

设置 说明
True 允许用户使用 Shift 忽略启动属性和 AutoExec 宏。
False 禁止用户使用 Shift 忽略启动属性和 AutoExec 宏。


可以使用宏或者 Visual Basic 设置该属性。

若要使用宏或 Visual Basic 设置 AllowBypassKey 属性，必须使用以下方法创建该属性：

在 Microsoft Access 数据库 (.mdb) 中，可以通过使用 CreateProperty 方法添加该属性，并将其追加到 Database 对象的 Properties 集合中。
[B]在 Microsoft Access 项目 (.adp) 中，可以通过使用 Add 方法将该属性添加到 CurrentProject 对象的 AccessObjectProperties 集合中。 [/B]
说明
调试应用程序时,应确保 AllowBypassKey 属性设为 True。

该属性的设置仅在下一次打开应用程序数据库时才会生效。

示例
下面的示例显示了一个名为 SetBypassProperty 的过程，该过程传递要设置的属性的名称、数据类型及所需设置。一般用途过程 ChangeProperty 将尝试设置 AllowBypassKey 属性，如果找不到该属性，则用 CreateProperty 方法将其追加到 Properties 集合中。这是必要的步骤，因为只有在添加之后，该属性才出现在 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

yale

在Access编程应用网（ 爱赛思俱乐部 ）http://www.accxp.com/club/default.cgi答复中有我写的程序，请各位自己去找。

WDLRCZT

这里就有，何必去那里找？

renzhm

呵呵，学写学习，防止源代码泄漏！

susanyjj

我正在发愁呢,这里就找着了,太感谢了!

susanyjj

我刚试用了一下,在.mdb中可以屏蔽掉Shift键,在.adp中好象不可以屏蔽.问题出在哪里呢?怎么办?帮帮忙......

susanyjj

http://www.accxp.com/club/topic.cgi?forum=20&topic=221
这里有更具体的.

(我是只菜菜鸟,不说到具体的份上,我是有会用的.)

luzhiqun

我也要啊，
发给我吧
luzq@163.com

竹笛

http://www.accessoft.com/dispbbs.asp?boardID=16&RootID=111&ID=111