Casilla de Verificación |
Responder |
Autor | |
Marcos141964
Asiduo Unido: 01/Octubre/2020 Localización: Adeje-Tenerife Estado: Sin conexión Puntos: 231 |
Tema: Casilla de Verificación Enviado: 06/Octubre/2020 a las 12:41 |
Hola a todos, espero podáis ayudarme en lo siguiente:
Tengo un Form, el cual al cargarse oculta una serie de cosas. Private Sub Form_Open(Cancel As Integer) &&&&Me.MarcoUrgencia.Visible = False &&&&Me.EtiqTelefonoUrgencia.Visible = False &&&&Me.txturgenciateletefono.Visible = False &&&&Me.EtiqNombreUrgencia.Visible = False &&&&Me.txturgencianombre.Visible = False End Sub Y luego tengo una casilla de verificación, la cual quiero que al marcarla me muestre todo lo oculto. Private Sub chkurgencia_GotFocus() &&&&If Me.chkurgencia = True Then &&&&&&& Me.MarcoUrgencia.Visible = True &&&&&&& Me.EtiqTelefonoUrgencia.Visible = True &&&&&&& Me.txturgenciateletefono.Visible = True &&&&&&& Me.EtiqNombreUrgencia.Visible = True &&&&&&& Me.txturgencianombre.Visible = True &&&&ElseIf chkurgencia = False Then &&&&&&& Me.MarcoUrgencia.Visible = False &&&&&&& Me.EtiqTelefonoUrgencia.Visible = False &&&&&&& Me.txturgenciateletefono.Visible = False &&&&&&& Me.EtiqNombreUrgencia.Visible = False &&&&&&& Me.txturgencianombre.Visible = False &&&&End If End Sub Pero me da error https://ibb.co/PcfJ8nz https://ibb.co/gvh4CB8 https://ibb.co/5sjW633 https://ibb.co/4s8w2Ny Espero podáis ayudarme Gracias |
|
Marcos José López de Dios
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14027 |
Respuesta Enviado: 06/Octubre/2020 a las 15:43 |
Mirado en un Access 2016:
- el tipo de objeto se llama casilla y tiene los eventos que te he dicho antes: clic, doble clic, antes y después de actualizar, etc. Prueba de crearte otra casilla de verificación y comprueba los eventos. |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14027 |
Enviado: 06/Octubre/2020 a las 13:35 |
Hola Marcos,
Para quitar esos molestos &, o bien copias el código directamente de la pantalla de VBA,, o lo pasas por un editor de texto 'plano' (el NotePad por ejemplo) Copiar / Pegar. Sin entrar a mirar mucho de tu error, el cambio lo debes hacer en el evento AfterUpdate del Check. |
|
Marcos141964
Asiduo Unido: 01/Octubre/2020 Localización: Adeje-Tenerife Estado: Sin conexión Puntos: 231 |
Enviado: 06/Octubre/2020 a las 14:24 |
Gracias y perdona por & no sabia que se pondría así la próxima vez lo tendré en cuenta
|
|
Marcos José López de Dios
|
|
Marcos141964
Asiduo Unido: 01/Octubre/2020 Localización: Adeje-Tenerife Estado: Sin conexión Puntos: 231 |
Enviado: 06/Octubre/2020 a las 14:31 |
No me sale ese evento https://subefotos.com/ver/?7ef435e3bda35843a3721359777cd948o.jpg Editado por Marcos141964 - 06/Octubre/2020 a las 14:36 |
|
Marcos José López de Dios
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14027 |
Enviado: 06/Octubre/2020 a las 15:05 |
Me da que eso no es una casilla de verificación ...
Yo tengo Of'2010 dónde el tipo de objeto es casilla de verificación y tiene al hacer clic, doble clic, after update, ....
|
|
Marcos141964
Asiduo Unido: 01/Octubre/2020 Localización: Adeje-Tenerife Estado: Sin conexión Puntos: 231 |
Enviado: 06/Octubre/2020 a las 15:32 |
Marcos José López de Dios
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14027 |
Respuesta Enviado: 06/Octubre/2020 a las 15:43 |
Mirado en un Access 2016:
- el tipo de objeto se llama casilla y tiene los eventos que te he dicho antes: clic, doble clic, antes y después de actualizar, etc. Prueba de crearte otra casilla de verificación y comprueba los eventos. |
|
Marcos141964
Asiduo Unido: 01/Octubre/2020 Localización: Adeje-Tenerife Estado: Sin conexión Puntos: 231 |
Enviado: 06/Octubre/2020 a las 15:52 |
ok
|
|
Marcos José López de Dios
|
|
Marcos141964
Asiduo Unido: 01/Octubre/2020 Localización: Adeje-Tenerife Estado: Sin conexión Puntos: 231 |
Enviado: 06/Octubre/2020 a las 15:56 |
Llevabas razón ya funciona muchísimas gracias por tu ayuda
|
|
Marcos José López de Dios
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14027 |
Enviado: 06/Octubre/2020 a las 16:14 |
|
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14746 |
Enviado: 06/Octubre/2020 a las 17:06 |
Reabro para indicar que, aparte de la utilización del evento adecuado, el código puede ser bastante más corto: nos podemos ahorrar el If y la mitad de las líneas. Si te fijas, cuando chkUrgencia es Verdadero, todos los "Visibles" son Verdadero. Y cuando es False, todos son False. : En ese caso es tan "sencillo" como aplicar la lógica y utilizar el valor de chkUrgencia para asignar el valor de Visible: Me.EtiqTelefonoUrgencia.Visible = Me.chkurgencia Me.txturgenciateletefono.Visible = Me.chkurgencia Me.EtiqNombreUrgencia.Visible = Me.chkurgencia Me.txturgencianombre.Visible = Me.chkurgencia Un saludo
|
|
Plinio Montano
Habitual Unido: 10/Marzo/2015 Localización: Cuba Estado: Sin conexión Puntos: 129 |
Enviado: 06/Octubre/2020 a las 19:53 |
Hola Marcos,
Es muy sencillo, no utilices el evento al recibir foco sino el evento despues de actualizar y le asignas el valor de la casilla a la propiedad visible de cada control que desea mostrar u ocultar. Ej. Me.Marco.Visible = Me.Casilla |
|
pmv
|
|
Marcos141964
Asiduo Unido: 01/Octubre/2020 Localización: Adeje-Tenerife Estado: Sin conexión Puntos: 231 |
Enviado: 15/Noviembre/2020 a las 13:53 |
se puede cerrar el tema
|
|
Marcos José López de Dios
|
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14027 |
Enviado: 15/Noviembre/2020 a las 13:57 |
¿Y la solución empleada es ...?
|
|
Marcos141964
Asiduo Unido: 01/Octubre/2020 Localización: Adeje-Tenerife Estado: Sin conexión Puntos: 231 |
Enviado: 15/Noviembre/2020 a las 18:54 |
La solución me la distes tu Mihura, cree otra casilla de verificación y hay funcionó
|
|
Marcos José López de Dios
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |