Abrir un formulario donde muestre un sub formulario a elección

tengo un Formulario Coloco_informe con subfomulario Ajustar_informe

Desde un formulario c necesito que según que botón abra me cambie le objeto origen del subformulario Ajustar_informe

Por ejemplo si abro desde Ventas que el subformulario Ajustar_informe tenga objet origen ventas

Si abro Gastos que el subformulario Ajustar_informe tenga objet origen Gastos

1 Respuesta

Respuesta
2

Puedes hacerlo de varias formas, la más sencilla ésta:

En el botón de tu formulario Ventas:

DoCmd.OpenForm "Coloco_informe"
Forms("Coloco_informe").Ajustar_informe.SourceObject = "Ventas"

En el botón de tu formulario Gastos:

DoCmd.OpenForm "Coloco_informe"
Forms("Coloco_informe").Ajustar_informe.SourceObject = "Gastos"

Y así con todos

Tanto "Ventas" como "Gastos" deben ser formularios. Si fueran tablas, el código seria, para el primero:

DoCmd.OpenForm "Coloco_informe"
Forms("Coloco_informe").Ajustar_informe.SourceObject = "Tabla.Ventas"

Y en caso de consultas:

DoCmd.OpenForm "Coloco_informe"
Forms("Coloco_informe").Ajustar_informe.SourceObject = "Consulta.Ventas"

Ajustar_Informe es el nombre del objeto que contiene los subformularios, es decir, el "rectángulo" donde se van a mostrar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como agregar más hojas a un libro de excel

Dante puede apoyar con la siguiente macro, tengo un archivo de excel en el cual tengo un formato donde hay una macro que cuando se activa un check box muestra ciertas filas y cuando se desactiva las oculta, así mismo bloquea ciertas celdas y también...
1 respuesta

¿Importar datos desde varios libros de Excel ADO?

A tod@s! Desde un botón con su evento aparece un desplegable y elijo los libros que quiero importar la info. Incluso puedo elegir varios a la vez (esto lo tengo hecho) En cada libro seleccionado tendrá una tabla en una hoja llamada "DATA". La tabla...
1 respuesta

¿Macro al escribir carácter en un rango de Excel?

A tod@s! Tengo una hoja llamada Acción y lo que quiero es que en cualquier celda de la columna C, cada vez que escriba un carácter ejecute una acción o macro. ¿Cómo puedo hacerlo?
1 respuesta

Agregar y ocultas celdas con botón

Tengo varios archivos Excel donde manejo información por semanas, pero cada semana tengo que ocultar la semana que ya pasó y agregar una semana nueva, son 45 pestañas! Es un lio hacer una por una. Quisiera saber si hay una manera de que con un botón...
1 respuesta

¿Código VBA en Excel para filtrar en un textbox sin tener en cuenta acentos, mayúsculas o minúsculas?

Estoy utilizando el siguiente código en una hoja de excel para buscar y filtrar lo que escribo en dos Texbox: Private Sub TextBox1_Change() ActiveSheet.Unprotect ALERTA = "*" & TextBox1.Value & "*" Range("D3").AutoFilter Field:=4, Criteria1:=ALERTA...
1 respuesta

Depurar datos con macro de acuerdo a un color

¿Alguien podría ayudarme a depurar una hoja de Excel? Necesito conservar solo los datos con fuente de color rojo, eliminar los que tienen fuente de color negro, así como eliminar filas y columnas vacías. Además, quiero ordenar la información como se...
1 respuesta

Una macro no se ejecuta desde otra macro, pero sí si la ejecuto manualmente, ¿Por qué?

En una hoja tengo un botón que ejecuta el siguiente código: Sub preguntar_scroll() Dim respuesta respuesta = MsgBox("¿Quieres extender la pantalla actual?", vbYesNo + vbQuestion, "Extender pantalla") If respuesta = vbYes Then Sheets("visor").Activate...
1 respuesta

Mover contenido de una celda hacia arriba y abajo

Mover el contenido de una celda de una tabla con un botón hacia arriba y hacia abajo. En una hoja de excel. Y poder colocarlo donde uno desee.
1 respuesta

Valor de una celda de Excel

Tengo tres hojas de calculo, una seria el real otra el presupuesto y otra que seria a que tendría que poner el dato mi pregunta es como podría hacer sil a de real tiene valor cogiera ese valor, en caso de no existir ese dato cogiera de la tabla de...
1 respuesta

Trabajar con una ventana duplicada en excel

Tengo una macro mediante la cual me duplica la ventana activa de excel para mostrarla en un segundo monitor: Sub bot_extenderpantalla_Click() 'creamos una nueva ventana de excel con la hoja activa (visor) Sheets("visor").Activate...
1 respuesta