Imprimir página | Cerrar ventana

Cuadros de texto en formulario

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84553
Fecha de impresión: 18/Abril/2024 a las 20:49


Tema: Cuadros de texto en formulario
Publicado por: JUGOCA
Asunto: Cuadros de texto en formulario
Fecha de publicación: 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



Respuestas:
Publicado por: Mihura
Fecha de publicación: 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.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: xavi
Fecha de publicación: 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

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: JuanaM
Fecha de publicación: 13/Junio/2019 a las 13:45
Muchas gracias, me pongo manos a la obra y ya os diré,Smile



Imprimir página | Cerrar ventana