COMBO OCULTO
Publicado por chikis (17 intervenciones) el 23/11/2011 17:22:18
HOLA A TODOS,
EN UN FORMULARIO TENGO 1 COMBO (COMBO1) Y UN BOTON. EL COMBO NO ESTA VISIBLE, AL PULSAR EL BOTON ABRE UN FORMULARIO DE LOGIN:
Private Sub CmdB_Login_Click()
TxtB_Usuario.SetFocus
If TxtB_Usuario = "admin" And TxtB_Contrasenia = "directorarea" Then
MsgBox "usuario correcto", vbInformation, "login"
DoCmd.Close
DoCmd.OpenForm "adjuntar"
Else
MsgBox "usuario incorrecto, prueba otra vez", vbCritical, "error"
END IF
END SUB
quiero poner me.combo1.visible = true para que cuando el usuario sea correctro abra de nuevo el formulario anterior y se active o aparezca visible el combo.
la linea de codigo la coloco dentro del 1er IF despues de que abre el formulario pero me marca un error en esa linea.
ayuda porfa.
EN UN FORMULARIO TENGO 1 COMBO (COMBO1) Y UN BOTON. EL COMBO NO ESTA VISIBLE, AL PULSAR EL BOTON ABRE UN FORMULARIO DE LOGIN:
Private Sub CmdB_Login_Click()
TxtB_Usuario.SetFocus
If TxtB_Usuario = "admin" And TxtB_Contrasenia = "directorarea" Then
MsgBox "usuario correcto", vbInformation, "login"
DoCmd.Close
DoCmd.OpenForm "adjuntar"
Else
MsgBox "usuario incorrecto, prueba otra vez", vbCritical, "error"
END IF
END SUB
quiero poner me.combo1.visible = true para que cuando el usuario sea correctro abra de nuevo el formulario anterior y se active o aparezca visible el combo.
la linea de codigo la coloco dentro del 1er IF despues de que abre el formulario pero me marca un error en esa linea.
ayuda porfa.
Valora esta pregunta


0