shift键的问题

zhengjin　发表于：2012-12-07 19:37:08 　

请教各位老师：我自己按照ACC开发平台设计的程序可以应用了准备分发，可是偶然发现了一个<Access管理工具.mde>可以轻易的废除shift键直接进入窗体界面。请问设置的登陆界面不就没有用了吗？有阻止打开shift键的办法吗？

殷小宝发表于：2012-12-09 23:11:07

禁用shift键：

启用shift键:

Function openAllowBypasskey()

Dim p

On error resume next

Set p = currentDb.CreatProperty(“AllowBypassKey”,DB_Boolean, True)

CurrentDb.Properties.Append P

CurrentDb.Properties(“AlowBypasskey”)=True

End Function

禁用:只要将CurrentDb.Properties(“AlowBypasskey”)=True改为

CurrentDb.Properties(“AlowBypasskey”)=False 即可

zhengjin 发表于：2012-12-10 19:50:12

谢谢殷小宝的解答。你的语句可以控制打开和关闭shift键，这在acc平台上已经应用。我说的是在程序设计好后有没有废除shift键而不是禁用shift键的方法.（这是因为有一个工具<Access管理工具.mde>可以打开已经设置为禁用shift键的程序）。

wyh99999 发表于：2012-12-11 21:15:30

借用老师的例，供你参考：��ش˸��

在水一方发表于：2012-12-11 23:34:14

这个也不行

zhengjin 发表于：2012-12-12 19:39:15

wyh99999谢谢你的热心答复，但是用《Access管理工具.mde》就打开了。我把这个发给你你在试一下

解密工具　

Top

wyh99999 发表于：2012-12-13 20:44:46

解密工具　，在哪？

zhengjin 发表于：2012-12-14 16:36:16

不好意思怎么没有上传成功，在传试试

总记录：7篇页次：1/1 9 1 :

Access交流中心