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
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 = Text1contraseña = Text2Do 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.Hidefrminicio.ShowExit 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.ShowText1 = ""
Text2 = ""
Else
End
End If
End Sub
Valora esta pregunta
0
