Poder incluir el campo de un formulario en varios otros.
Laura
23 de Febrero del 2004
Hola a todos, estoy haciendo una aplicaci贸n en Access, donde tengo un formulario que lo llamo BUSCADOR, y lo abro desde otros formularios, para copiar un campo que necesito de BUSCADOR.
Ejemplo: Desde el formulario ALFA, abro BUSCADOR, y atraves de un boton una vez localizo el campo deseado para copiar, al hacer clic en el boton, se ejecuta este codigo:
Forms!BUSCADOR!COBR=Forms!ALFA!COBR
Docmd. Close
Hasta aqu铆 todo perfecto, pero como hago para que desde otros formularios diferentes a ALFA, pueda hacer lo mismo, ya no me deja..... y hacer tantos formularios BUSCADOR, como otros formularios donde necesite ese campo, es demasiado, porque se me presenta una aplicaci贸n con mas de doscientos formularios..lo cual hace que vaya muy lenta.
Gracias por vuestra ayuda.
Ejemplo: Desde el formulario ALFA, abro BUSCADOR, y atraves de un boton una vez localizo el campo deseado para copiar, al hacer clic en el boton, se ejecuta este codigo:
Forms!BUSCADOR!COBR=Forms!ALFA!COBR
Docmd. Close
Hasta aqu铆 todo perfecto, pero como hago para que desde otros formularios diferentes a ALFA, pueda hacer lo mismo, ya no me deja..... y hacer tantos formularios BUSCADOR, como otros formularios donde necesite ese campo, es demasiado, porque se me presenta una aplicaci贸n con mas de doscientos formularios..lo cual hace que vaya muy lenta.
Gracias por vuestra ayuda.
Baltasar
23 de Febrero del 2004
El problema es que desde el formulario BUSCADOR est谩s haciendo referencia a ALFA, y claro, de eso modo lo haces "exclusivo" para ese ALFA.
La soluci贸n es usar una funcion en BUSCADOR, de la siguiente manera:
en el formulario BUSCADOR pon una funci贸n ma´s o menos como esta:
Public Function busca_cliente() As Long
Buscador.Show 1
busca_cliente = Cod_ing
End Function
entonces para llamar a buscador no uses BUSCADOR.SHOW, sino:
cod_cliente=Buscador.busca_cliente()
qu茅 es lo que estamos haciendo?
al llamar a la funci贸n se ejecuta el c贸digo que hay en ella, el cual hace el show de buscador (con MODAL) y esa misma funci贸n te devuelve, una vez seleccionado el cliente o lo que sea que busques, el c贸digo, y lo devuelve en la misma funci贸n.
para seleccionar el elemento del grid (porque supongo que muestras un grid) s贸lo has de hacer:
Cod_cliente= Val(grid1.TextMatrix(grid1.Row, 0))
Unload Me
Cuando haces UNLOAD ME contin煤a donde lo dej贸 al llamar a BUSCADOR, o sea, justo la l铆nea que sigue al BUSCADOR.SHOW 1
Como puedes comprobar, dentro del formulario BUSCADOR no har谩s ninguna referencia al formulario desde el cual ha sido llamado.
Espero que se entienda bien.
La soluci贸n es usar una funcion en BUSCADOR, de la siguiente manera:
en el formulario BUSCADOR pon una funci贸n ma´s o menos como esta:
Public Function busca_cliente() As Long
Buscador.Show 1
busca_cliente = Cod_ing
End Function
entonces para llamar a buscador no uses BUSCADOR.SHOW, sino:
cod_cliente=Buscador.busca_cliente()
qu茅 es lo que estamos haciendo?
al llamar a la funci贸n se ejecuta el c贸digo que hay en ella, el cual hace el show de buscador (con MODAL) y esa misma funci贸n te devuelve, una vez seleccionado el cliente o lo que sea que busques, el c贸digo, y lo devuelve en la misma funci贸n.
para seleccionar el elemento del grid (porque supongo que muestras un grid) s贸lo has de hacer:
Cod_cliente= Val(grid1.TextMatrix(grid1.Row, 0))
Unload Me
Cuando haces UNLOAD ME contin煤a donde lo dej贸 al llamar a BUSCADOR, o sea, justo la l铆nea que sigue al BUSCADOR.SHOW 1
Como puedes comprobar, dentro del formulario BUSCADOR no har谩s ninguna referencia al formulario desde el cual ha sido llamado.
Espero que se entienda bien.
Baltasar
23 de Febrero del 2004
Perdona, pero donde pone cod_ing deber铆a decir cod_cliente
Ya sabes, las prisas !
Ya sabes, las prisas !