¿Cuál es el error?
cegarcia
28 de Abril del 2006
Dim Mivar
Private Sub aceptar_Click()
If(usuario.text="consultor") && (contraseña.text="consulta) Then
sistema.visible=True
Else
Mivar = MsgBox("Compruebe que su nombre de usuario y contraseña estén bien escritos,16,"Error)
End If
End Sub
/*Creo que es lógico lo que quiero obtener, si me envÃan el código correcto o me dicen cuál es el error que estoy cometiendo, estaré muy agradecido.
Mil Gracias de Antemano
Private Sub aceptar_Click()
If(usuario.text="consultor") && (contraseña.text="consulta) Then
sistema.visible=True
Else
Mivar = MsgBox("Compruebe que su nombre de usuario y contraseña estén bien escritos,16,"Error)
End If
End Sub
/*Creo que es lógico lo que quiero obtener, si me envÃan el código correcto o me dicen cuál es el error que estoy cometiendo, estaré muy agradecido.
Mil Gracias de Antemano
Luis Alberto Morales
28 de Abril del 2006
Te falta una comilla en la condicion
cegarcia
28 de Abril del 2006
Ya lo corregÃ, pero sigue dándome problemas, cuando lo ejecuto me sombrea un &
Qué hago?
Qué hago?
Luis Alberto Morales
28 de Abril del 2006
Quitale las slach
Carlos
28 de Abril del 2006
En vez del & ponle and, asi quedarÃa: (ademas te corregi el el msgbox el 16 por el nombre del boton
If usuario.Text = "consultor" And contraseña.Text = "consulta" Then
sistema.Visible = True
Else
Mivar = MsgBox("Compruebe que su nombre de usuario y contraseña estén bien escritos", vbCritical, "Error")
End If
If usuario.Text = "consultor" And contraseña.Text = "consulta" Then
sistema.Visible = True
Else
Mivar = MsgBox("Compruebe que su nombre de usuario y contraseña estén bien escritos", vbCritical, "Error")
End If
cegarcia
28 de Abril del 2006
Gracias Carlos ahora sà funciona. Muchas Gracias...
Carlos
28 de Abril del 2006
Oyes pero en la condicion If solamente requieres de una and (&) no dos, como tu los tienes
cegarcia
28 de Abril del 2006
Para Carlos: Me sigue dando el error. ¿Qué hago?