Lo que quiero hacer es que en el txtcontraseña a la tercera vez que uno intenta meter un contraseña que no es.
salga un msgbox indicando "no es la contraseña correcta" y que el form se oculte "Hide"
y tambien quisera saber como poner un contador en un form
Gracias de antemano por sus respuestas
Que Dios les bendiga y no a la GUERRA
VB - Condicion para txt(contraseña)
Moderador: Moderadores
Tienes que declarar una variable en el entorno del formulario como contador, y cada vez que la comprobación no es correcta, incrementarla.
Si el botón que lanza la comprobación tras rellenar la contraseña se llama cmdContraseña, el código sería:
Dim iContadorErrores as Integer
Private Sub cmdContraseña_Click()
If txtcontraseña.Value<>"contraseña" Then
iContadorErrores = iContadorErrores + 1
If iContadorErrores = 3 Then
Msgbox "no es la contraseña correcta", vbExclamatrion
Me.Hide
' Resto del código cuando se llegó a tres errores.
Else
' Contraseña incorrecta, pero sin llegar al tercer intento.
txtcontraseña.Value = ""
End If
Else
' Código a ejecutar en caso de contraseña Correcta
iContadorErrores = 0
End If
End Sub
Saludos.
Si el botón que lanza la comprobación tras rellenar la contraseña se llama cmdContraseña, el código sería:
Dim iContadorErrores as Integer
Private Sub cmdContraseña_Click()
If txtcontraseña.Value<>"contraseña" Then
iContadorErrores = iContadorErrores + 1
If iContadorErrores = 3 Then
Msgbox "no es la contraseña correcta", vbExclamatrion
Me.Hide
' Resto del código cuando se llegó a tres errores.
Else
' Contraseña incorrecta, pero sin llegar al tercer intento.
txtcontraseña.Value = ""
End If
Else
' Código a ejecutar en caso de contraseña Correcta
iContadorErrores = 0
End If
End Sub
Saludos.
Equipo ABCdatos.
http://www.abcdatos.com/
http://www.abcdatos.com/
Gracias
Gracias
ABCdatos escribió:Tienes que declarar una variable en el entorno del formulario como contador, y cada vez que la comprobación no es correcta, incrementarla.
Si el botón que lanza la comprobación tras rellenar la contraseña se llama cmdContraseña, el código sería:
Dim iContadorErrores as Integer
Private Sub cmdContraseña_Click()
If txtcontraseña.Value<>"contraseña" Then
iContadorErrores = iContadorErrores + 1
If iContadorErrores = 3 Then
Msgbox "no es la contraseña correcta", vbExclamatrion
Me.Hide
' Resto del código cuando se llegó a tres errores.
Else
' Contraseña incorrecta, pero sin llegar al tercer intento.
txtcontraseña.Value = ""
End If
Else
' Código a ejecutar en caso de contraseña Correcta
iContadorErrores = 0
End If
End Sub
Saludos.