¿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

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?

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

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?