Hola de nuevo... realmente me la vivire aqui!!! ya me gusto el foro jeje ;D
Bueno ya termine el problema del post anterior pero despues de la calma surge otro gran problema... tengo otro programa que es un reloj despertador donde puedes agregar diferencias horarias de otros paises pero... me an pedido que le ponga password con oportunidad de dar la clave erronea 3 veces.. una vez fallando las 3 veces debe cerrarse el programa... este es el codigo que le puse al formulario clave y aun no se como darle la funcion de fallar 3 veces... necesido de su enseñanza... jeje :rolleyes:
ya le intente de varias formas y aun no puedo:
Private Sub Clave_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Clave.Text = "RMR" Then
Unload Me
FrmReloj.Show
Else
MsgBox "Clave Incorrecta...", 16, "Error"
End
End If
End If
End Sub
Ese es el codigo y de verdad gracias ;D con ustedes aprendo mas que es lo que me hace falta... ;)
SOLUCION:
Gracias a todos por su aporte:
dim control as Integer
Private Sub Clave_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Clave.Text = "RMR" Then
Unload Me
FrmReloj.Show
Else
MsgBox "Contraseña incorrecta",vbcritical,"Acceso Denegado"
control=control+1
if control=3 then
End
end if
End If
End If
End Sub
Hazlo con un For que se repita tres veces: si el usuario escribe la clave correcta le das que descargue el formulario de login, cargue el otro, y un Exit for, de lo contrario, después del Next puedes añadir algo como:
MsgBox "Lo siento, clave incorrecta!"
End
Hilsener.
que onda men tengo mucho que no ando por esta zona VB.
bueno solo pon una variable que es lo mas facil que se me ocurre
dim control as Integer
Private Sub Clave_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Clave.Text = "RMR" Then
Unload Me
FrmReloj.Show
Else
MsgBox "Contraseña incorrecta",vbcritical,"Acceso Denegado"
control=control+1
if control=3 then
End
end if
End If
End If
End Sub
Nota: siempre es bueno que acomodes tu codigo es algo que yo no hago pero creeme que es recomendable para la gente que vea tu code sera mas facil de entenderlo
Si tienes razon Rex mi maestra siempre me regaña por no acomodar el codigo jajajaja gracias por la ayuda... necro una pregunta me podrias explicar en codigo masomenos como pondrias eso de la clave con el for para masomenos razonarlo ? muchas gracias a los dos ;)
bueno acabo de modificar el post no me funciono REX checando el codigo ya le habia intentado asi y no funciona aun ando checando eso....
ohhh gracias ya vi cual era el problema..... al declarar la variable control la puse abajo del private sub... muchas gracias ya me funciona!!! :o