Donde poner un contador en Login
Tengo esta instrucción y me gustaría ponerle un numero de intentos, pero no se donde ni como hacerlo, ¿alguien me puede decir como debo hacerlo?
Gracias a todos.
Esta es.
Private Sub cmdAceptar_Click()
Dim vUser As Variant
Dim vPass As Variant
vUser = Me.cboUser.Value
vPass = Me.txtPass.Value
If IsNull(vUser) Then
MsgBox "No ha seleccionado ningún usuario", vbInformation, "AVISO"
Me.cboUser.SetFocus
Exit Sub
End If
If IsNull(vPass) Then
MsgBox "No ha introducido ninguna contraseña", vbInformation, "AVISO"
Me.txtPass.SetFocus
Exit Sub
End If
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("TPass", dbOpenSnapshot)
If rst.RecordCount = 0 Then
MsgBox "No existen usuarios", vbInformation, "AVISO"
GoTo Salida
End If
rst.MoveFirst
Do Until rst.EOF
Dim tUser, tPass As String
tUser = rst.Fields(0).Value
tPass = rst.Fields(1).Value
If tUser = vUser Then
If tPass = vPass Then
'DoCmd.Close acForm, Me.Name
If VarType(IdIVA) <> vbNull Then
DoCmd.OpenForm "IVAEdita", , , "[IdIVA] = " & Me.IdIVA
DoCmd.Close acForm, "IVAConsulta"
DoCmd.Close acForm, "FPass"
End If
Else
MsgBox "La contraseña introducida no es correcta", _
vbInformation, "INCORRECTO"
Me.txtPass.SetFocus
Me.txtPass.Value = Null
GoTo Salida
End If
End If
rst.MoveNext
Loop
Salida:
rst.Close
Set rst = Nothing
End Sub