** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Cuadros de texto en formulario
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCuadros de texto en formulario

 Responder Responder
Autor
Mensaje
JUGOCA Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 03/Diciembre/2015
Localización: Cartagena
Estado: Sin conexión
Puntos: 46
Enlace directo a este mensaje Tema: Cuadros de texto en formulario
    Enviado: 13/Junio/2019 a las 10:21
Tengo un formulario sólo con 15 cuadros de texto independientes y quisiera que al pulsar en cualquiera de ellos me ejecutara una acción, pero sin tener que ponerle a cada uno lo de Docmd... No sé, algo como For each control... pero tampoco sé en que evento lo tendría que poner.
Estoy totalmente en blanco.
Muchas gracias
Gracias a todos
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 13/Junio/2019 a las 10:37
Te creas una función llamada CmdClic (por ejemplo) y en cada uno de los cuadros de texto que quieras que se ejecute se la asignas en el evento click:

             =CmdClic()


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: 14720
Enlace directo a este mensaje Enviado: 13/Junio/2019 a las 10:58
Si lo quieres hacer por código, yo utilizaría el evento Load del formulario dónde asignaria la función. 

Me!uncuadrodetexto.OnClick = "=CmdClic()"
Me!otrocuadrodetexto.OnClick = "=CmdClic()"

A partir de aqui entran pequeñas tácticas para acortar el código: un array con los nombres de los controles, llamar a todos los controles igual excepto un numero final que los identifique...

Un saludo
Xavi, un minyó de Terrassa

Mi web
Arriba
JuanaM Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 13/Junio/2019
Localización: San Javier
Estado: Sin conexión
Puntos: 9
Enlace directo a este mensaje Enviado: 13/Junio/2019 a las 13:45
Muchas gracias, me pongo manos a la obra y ya os diré,Smile
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable