Visual Basic - AYUDA error de compilacion se esperaba expresion

Life is soft - evento anual de software empresarial
   
Vista:

AYUDA error de compilacion se esperaba expresion

Publicado por fernando (1 intervención) el 04/05/2016 20:19:51
hola necesito ayuda el sig codigo es de un boton para entrar
es para iniciar sesion pongo el usuario y la contraseña bien y marca
error de compilacion se esperaba expresion

el codigo subrayado aparece en color rojo


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
37
Private Sub Command1_Click()
Dim usuario As String
Dim contraseña As String
Dim mensaje As String
 
Registro.Data1.Refresh
 
usuario = Text1
contraseña = Text2
 
Do Until Registro.Data1.Recordset.EOF
If Registro.Data1.Recordset.Fields("usuario").Value = usuario And
Registro.Data1.Recordset.Fields("contraseña").Value = contraseña Then
MsgBox "Hola " & usuario & ", ¿Cómo has estado?", vbOKOnly, "Bienvenido al Programa"
 
Iniciodesesion.Hide
frminicio.Show
Exit Sub
 
Else
Registro.Data1.Recordset.MoveNext
End If
 
Loop
 
mensaje = MsgBox("No te Conozco " & usuario & ", Intenta de Nuevo", vbOKOnly, "Atención, Usuario No Autorizado!!!")
 
If (mensaje = 1) Then
Iniciodesesion.Show
Text1 = ""
Text2 = ""
 
Else
End
End If
 
End Sub

IMG_20160504_131153
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 xve

AYUDA error de compilacion se esperaba expresion

Publicado por xve (178 intervenciones) el 05/05/2016 08:19:40
Hola Fernando, puede ser que estes enviando un objeto en vez del contenido del textbox??

prueba a modificar estas lineas:
1
2
usuario = Text1
contraseña = Text2

por:
1
2
usuario = Text1.text
contraseña = Text2.text

Coméntanos, ok?
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

AYUDA error de compilacion se esperaba expresion

Publicado por Juan Gilberto (277 intervenciones) el 06/05/2016 00:19:01
Le falta el guion bajo para declarar continuacion de linea despues del AND
(ver codigo ya corregido)
1
2
3
4
5
6
7
8
9
If Registro.Data1.Recordset.Fields("usuario").Value = usuario And _
   Registro.Data1.Recordset.Fields("contraseña").Value = contraseña Then
    MsgBox "Hola " & usuario & ", ¿Cómo has estado?", vbOKOnly, "Bienvenido al Programa"
    Iniciodesesion.Hide
    frminicio.Show
    Exit Sub
 Else
    Registro.Data1.Recordset.MoveNext
End If
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