请问版主： 用什么方法可以限制密码只能输入三次。[求助]

奇怪先生

Dim pw As String
pw = InputBox("请输入密码，验证你的登录身份！")
If pw <> "8888" Then
DoCmd.SetWarnings True
DoCmd.Quit
End If
End sub
请问版主：用什么方法可以在输入密码的时候显示＊号，而不是8888
       用什么方法可以限制密码只能输入三次。

zhengjialon

最好是另外做一个窗体，其上的文本框用“PASSWORD”做输入掩码，在INPUTBOX上好像不行。

access2sql

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

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

要想输入符，显示的是＊号，那只好用editmask组件了

WTM1

sunny_kong 朋友的构造，我同意！

显示*号，利用控件设置掩码！要么就用代码设密码显示为*号！
代码怎么写，我不会！

奇怪先生

谢谢各位了