Access如果设了用户名的密码，为什么还是可以用shift啊

JingLing

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为恢复


是在建一个空的窗体吗？？







经常遇见大家再问设置了屏蔽shift键的程序如何恢复。或某些我有权限别人没有的权限如何控制，介绍一个给自己留后门的方式。很简单的.........带上启动参数！
如：快捷方式启动：
D:\PROGRA~1\MICROS~2\OFFICE\MSACCESS.EXE E:\wzj\acc\test.mdb/cmd "wzj"

窗体启动中
Private Sub FORM_Load()
mshift (False) '屏蔽shift键的函数
If Command = "wzj" Then mshift (True)　'取消屏蔽shift键的函数
End Sub



那么说。如果进去了access按shift好象没有什么意义呢？？？？？？




希望大家解答。

JingLing

有高手可以对这个问题解决吗？？？？？
谢了

zenki

请问如何把小写数转成中文大写？

cbnuisve

yinghua05

这样就不太安全了