标题: 请问版主： 用什么方法可以限制密码只能输入三次。[求助] [打印本页] 作者: 奇怪先生 时间: 2002-10-30 19:48 标题: 请问版主： 用什么方法可以限制密码只能输入三次。[求助] Dim pw As String
pw = InputBox("请输入密码，验证你的登录身份！")
If pw <> "8888" Then
DoCmd.SetWarnings True
DoCmd.Quit
End If
End sub
请问版主：用什么方法可以在输入密码的时候显示＊号，而不是8888
用什么方法可以限制密码只能输入三次。作者: zhengjialon 时间: 2002-10-30 20:54
最好是另外做一个窗体，其上的文本框用“PASSWORD”做输入掩码，在INPUTBOX上好像不行。作者: access2sql 时间: 2002-10-30 23:42
Dim pw As String
dim i as long
dim pwdOK as boolean
pwdok = false
do until i > 3
pw = InputBox("请输入密码，验证你的登录身份！")
If pw = "8888" Then
pwkok =true
i=5
End If
i=i+1
loop
if pwkok=false then
docmd.setwarnings false
docmd.quit
end if 作者: sunny_kong 时间: 2002-10-31 00:41
dim i as intege
dim str as string
i=3
Do While i>0
str=InputBox("请输入密码，验证你的身份！")
if str<>"8888" then
if i=1 then
msgbox("三次输入密码错误，请稍候再试")
DoCmd.SetWarnings True
DoCmd.Quit
end sub
end if
msgbox("密码错误请重新输入")
i--
else
exit do
end if
loop 作者: sunny_kong 时间: 2002-10-31 00:43
要想输入符，显示的是＊号，那只好用editmask组件了作者: WTM1 时间: 2002-10-31 17:07