Visual Basic - Validar txt usuario

Life is soft - evento anual de software empresarial
   
Vista:

Validar txt usuario

Publicado por Claudia (2 intervenciones) el 31/12/2009 07:30:41
Hola amigos:

Estoy muy complicada, necesito resolver este código

tengo una caja de texto usuario que me busca en el campo login de la bd, si esta correcta pongo contraseña, pero cuando esta incorrecta o en blanco se me cae al presionar el boton aceptar.


Código

Private Sub Command1_Click()

On Error Resume Next

With rec
If TxtContraseña.Text = !Contraseña Then
ProgressBar1.Visible = True
Label3.Caption = "Cargando configuracion de usuario..."
ProgressBar1.Max = 100
ProgressBar1.Value = 0
P = 0
Do While P < 100
P = P + 1
ProgressBar1.Value = P
X = 0
Do While X < 100000
X = X + 1
Loop
Loop
ProgressBar1.Visible = False
Usuario = !Login

Form3.Hide
Form4.Show 1
Exit Sub
Else
Nc = MsgBox("Contraseña incorrecta!", vbExclamation, "Inicio de sesion.")
datalist1.SetFocus
TxtContraseña.Text = ""

Exit Sub
End If
End With
rec.Close
End Sub


Desde antemano muchas gracias, si gustan pueden contactarme al msn
jass_41@hotmail.com
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Validar txt usuario

Publicado por juan carlos (518 intervenciones) el 04/01/2010 03:01:43
Intentale asi Claudia:

Private Sub Command1_Click()
On Error goto fin

With rec
If TxtContraseña.Text = !Contraseña Then
ProgressBar1.Visible = True
Label3.Caption = "Cargando configuracion de usuario..."
ProgressBar1.Max = 100
ProgressBar1.Value = 0
P = 0
Do While P < 100
P = P + 1
ProgressBar1.Value = P
X = 0
Do While X < 100000
X = X + 1
Loop
Loop
ProgressBar1.Visible = False
Usuario = !Login

Form3.Hide
Form4.Show 1
Exit Sub

Rem si se teclea un pass incorrecto se da el mensaje
Elseif (TxtContraseña.Text <> !Contraseña) Then
MsgBox("Contraseña incorrecta!", vbExclamation, "Inicio de sesion.")
datalist1.SetFocus
TxtContraseña.Text = ""
Exit Sub

Rem si no se pone contraseña dar mensaje
Elseif (TxtContraseña.Text = "") Then
MsgBox("Teclee la contraseña por favor!", vbExclamation, "Inicio de sesion.")
datalist1.SetFocus
exit sub
End If
End With
rec.Close
exit sub
fin:
msgbox "Error del programa",32,"mensaje"
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar