** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Casilla de Verificación
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Casilla de Verificación

 Responder Responder
Autor
Mensaje
Marcos141964 Ver desplegable
Nuevo
Nuevo


Unido: 01/Octubre/2020
Localización: Adeje-Tenerife
Estado: Sin conexión
Puntos: 33
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Marcos141964 Cita  ResponderRespuesta Enlace directo a este mensaje 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
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 11922
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje 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.


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
Marcos141964 Ver desplegable
Nuevo
Nuevo


Unido: 01/Octubre/2020
Localización: Adeje-Tenerife
Estado: Sin conexión
Puntos: 33
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Marcos141964 Cita  ResponderRespuesta Enlace directo a este mensaje 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
Arriba
Marcos141964 Ver desplegable
Nuevo
Nuevo


Unido: 01/Octubre/2020
Localización: Adeje-Tenerife
Estado: Sin conexión
Puntos: 33
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Marcos141964 Cita  ResponderRespuesta Enlace directo a este mensaje 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
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 11922
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje 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, ....
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
Marcos141964 Ver desplegable
Nuevo
Nuevo


Unido: 01/Octubre/2020
Localización: Adeje-Tenerife
Estado: Sin conexión
Puntos: 33
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Marcos141964 Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 06/Octubre/2020 a las 15:32
[/IMG]
Marcos José López de Dios
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 11922
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje 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.


Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
Marcos141964 Ver desplegable
Nuevo
Nuevo


Unido: 01/Octubre/2020
Localización: Adeje-Tenerife
Estado: Sin conexión
Puntos: 33
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Marcos141964 Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 06/Octubre/2020 a las 15:52
ok
Marcos José López de Dios
Arriba
Marcos141964 Ver desplegable
Nuevo
Nuevo


Unido: 01/Octubre/2020
Localización: Adeje-Tenerife
Estado: Sin conexión
Puntos: 33
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Marcos141964 Cita  ResponderRespuesta Enlace directo a este mensaje 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
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 11922
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 06/Octubre/2020 a las 16:14
Wink
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 13240
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita xavi Cita  ResponderRespuesta Enlace directo a este mensaje 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.MarcoUrgencia.Visible = Me.chkurgencia
Me.EtiqTelefonoUrgencia.Visible = Me.chkurgencia
Me.txturgenciateletefono.Visible = Me.chkurgencia
Me.EtiqNombreUrgencia.Visible = Me.chkurgencia
Me.txturgencianombre.Visible = Me.chkurgencia

Un saludo
Xavi, un minyó de Terrassa

Mi web
Arriba
Plinio Montano Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 10/Marzo/2015
Localización: Cuba
Estado: Sin conexión
Puntos: 47
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Plinio Montano Cita  ResponderRespuesta Enlace directo a este mensaje 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
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable