Visual Basic - Ayuda error 3704 en el .requery

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda error 3704 en el .requery

Publicado por jerry (1 intervención) el 25/04/2017 03:59:29
Si alguien me pudiera ayudar soy nuevo en esto de la programacion y estoy en la parte del login pero me manda el error 3704 y al depurar me manda al .recovery AYUDA PLEASE les dejo mi codigo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Command1_Click()
If txtusuario.Text = "" Then MsgBox "Ingrese el Nombre de Usuario", vbInformation, "Informacion Inconclusa": txtusuario.SetFocus: Exit Sub
If txtcontraseña.Text = "" Then MsgBox "Ingrese una Contraseña", vbInformation, "Informacion Inconclusa": txtcontraseña.SetFocus: Exit Sub
 
With rsUsuarios
.Requery
 
    .Find "usuario ='" & Trim(txtusuario.Text) & "'"
    If .EOF Then
    MsgBox "El Usuario No Existe!!", vbCritical, "Error de Usuario"
    txtusuario = ""
    txtusuario.SetFocus
    Else
    If !contraseña = Trim(txtcontraseña.Text) Then
    Load frminicio
    frminicio.Show
    frmacceso.Hide
    Unload frmacceso
    Else
        MsgBox "Clave Incorrecta", vbCritical, "Error de Clave"
        txtcontraseña = ""
        txtcontraseña.SetFocus
 
        End If
        End If
 
     End With
 
End Sub
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
Imágen de perfil de Antoni Masana

Ayuda error 3704 en el .requery

Publicado por Antoni Masana (283 intervenciones) el 26/04/2017 03:22:55
Revisando el código no entiendo lo de "me manda al .recover"
¿Donde esta el .recover? Solo veo un .requery que es lo que mas se padece, pero ni idea de donde se produce el error.

Un consejo: No des pistas de donde esta el error en el acceso. En los controles de acceso NUNCA informan de si es correcto o no el usuario, no valides si falta usuario o contraseña, di simplemente "Usuario o Contraseña incorrectos"

He ordenado un poco el codigo para leerlo mejor.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub Command1_Click()
    If txtusuario.Text = "" Then
       MsgBox "Ingrese el Nombre de Usuario", vbInformation, _
              "Informacion Inconclusa"
       txtusuario.SetFocus
       Exit Sub
    end if
 
    If txtcontraseña.Text = "" Then
       MsgBox "Ingrese una Contraseña", vbInformation, _
              "Informacion Inconclusa":
       txtcontraseña.SetFocus
       Exit Sub
    end if
 
    With rsUsuarios
        .Requery
        .Find "usuario ='" & Trim(txtusuario.Text) & "'"
        If .EOF Then
           MsgBox "El Usuario No Existe!!", vbCritical, "Error de Usuario"
           txtusuario = ""
           txtusuario.SetFocus
        Else
           If !contraseña = Trim(txtcontraseña.Text) Then
              Load frminicio
              frminicio.Show
              frmacceso.Hide
              Unload frmacceso
           Else
              MsgBox "Clave Incorrecta", vbCritical, "Error de Clave"
              txtcontraseña = ""
              txtcontraseña.SetFocus
           End If
        End If
    End With
 End Sub

Saludos.
\\//_
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
Revisar política de publicidad