校验密码限制出错次数

时　间:2007-11-24 16:14:13
作　者:咱家是猫   ID：85  城市：广州
摘　要:输入密码出错5次,退出校验.
正　文:

Option Compare Database
Private PswErr As Integer

Private Sub Command4_Click()

    If IsNull(Me.密码) Then
        Me.密码.SetFocus
    ElseIf Me.密码 <> "这里取你设置的密码值" Then
        PswErr = PswErr + 1
        If PswErr = 5 Then
            MsgBox "密码连续出错，现中止校验！"
            DoCmd.Close acForm, Me.Name
            Exit Sub
        End If
        Beep
        MsgBox "密码输入有误，请检查！"
        Me.密码.SetFocus
    Else
        MsgBox "密码校验通过."
        '通过后的代码略
    End If

End Sub