怎么使用密码打开窗体？错误三次自动退出

小红豆　发表于：2014-07-05 22:21:47 　

如图输入密码 1122 点确认会打开新窗体如果连续密码错误三次则自动退出

我写的代码有问题帮忙修正一下

代码所含的是整个窗体的代码

Option Compare Database

Private Sub Command0_Click()

If Text1.Value <> "1122" Then
MsgBox "密码错误！", vbCritical, "系统提示"
t = t + 1
Else
   If t >= 3 Then
       DoCmd.Quit
   Else
   DoCmd.Close acForm, Me.Name
   DoCmd.OpenForm "各料合计"
   End If
End If
End Sub

Private Sub Command1_Click()

 If MsgBox("是否要退出系统？", vbQuestion + vbOKCancel, "选择") = vbOK Then DoCmd.Close

End Sub

Private Sub Form_Load()
Dim t As Integer
t = 0
End Sub

Top

麥田发表于：2014-07-12 12:09:18

设置登录密码连续输入3次错误后关闭系统[Access软件网]
http://www.accessoft.com/article-show.asp?id=4873

Top

在水一方发表于：2014-07-12 20:53:00

t应该设为公共变量

public t as integer

Top

蟹仔发表于：2014-07-12 23:00:42

或者增加一个标签，内容为“已输错密码一次，输错三次后退出！”，每输错一次就修改一次他的内容，把t的判断改为这个标签的判断即可。

而且我觉得，这个功能有什么用，别人重新打开不就又可以试密码了？

Top

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

Access交流中心

怎么使用密码打开窗体？错误三次自动退出