Office中国论坛/Access中国论坛

标题: 关于数据库中"启动"窗口的问题! [打印本页]

作者: wlyok 时间: 2004-2-13 22:59
标题: 关于数据库中"启动"窗口的问题!
做了一个数据库,包含了一个登陆窗体!

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

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

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

一个Access菜鸟

作者: 徐阿鹏 时间: 2004-2-13 23:00
可以用代码取消shift 功能阿！

作者: wlyok 时间: 2004-2-13 23:09
应该如何做呢? 详细点写好吗?如果代码有现成的,请不吝公开

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

作者: 徐阿鹏 时间: 2004-2-13 23:12
禁止用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 时间: 2004-2-13 23:22
如果要是建立一个新的启动窗体,在属性中的加载里调用这个函数,另外对此函数做一下修改是否就可以达到我的目的了吗?

谢谢!

作者: wlyok 时间: 2004-2-13 23:24
是否加了这个函数后

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

作者: 徐阿鹏 时间: 2004-2-13 23:27
对，但是你要先开关开一下，例如这个字单击是开的，那个字单击是关闭的
然后就一直是你想要的状态了

作者: wlyok 时间: 2004-2-14 00:35
谢谢大虾

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)