关于数据库中"启动"窗口的问题!

wlyok

做了一个数据库,包含了一个登陆窗体!

再工具菜单中的"启动"命令,对话框中,将所有的复选框都取消选择后,效果已经领我满意

但,打开数据库时按住"Shift键",打开以后,取消自动启动窗体功能!数据库中的所有内容都已经报露出来!登陆窗体已经没有存在的意义了!

请问各位高手,如何解决这样的问题.

                                              一个Access菜鸟

徐阿鹏

可以用代码取消shift 功能阿！

wlyok

应该如何做呢?  详细点写好吗?如果代码有现成的,请不吝公开

这样做以后是否还有其他方法可以打开数据库呢?

徐阿鹏

禁止用shift键
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

调用方法：
建一个窗体，在某一按钮的单击事件中写如下代码：
ChangeProperty "AllowBypassKey", 1, False　'false为禁止SHIFT键，TRUE为恢复


例如：你可以用一个字，最不起眼的地方来控制开关

wlyok

如果要是建立一个新的启动窗体,在属性中的加载里调用这个函数,另外对此函数做一下修改是否就可以达到我的目的了吗?

谢谢!

wlyok

是否加了这个函数后

在打开数据库的时候  即使按住"shift键",也不会报露数据库的项目和菜单操作了?

徐阿鹏

对，但是你要先开关开一下，例如这个字单击是开的，那个字单击是关闭的
然后就一直是你想要的状态了

wlyok

谢谢大虾