Eduardo Pérez Fernández

Como le responden es lo correcto algo como Private Sub Subformulario_AfterUpdate() ' Realizar acciones necesarias en el subformulario ' Recalcular campos en el formulario principal Me.Parent.Requery ' O Me.Parent.Refresh End Sub

Aquí hay algunas sugerencias y cosas que puedes verificar: Campos y tipos de datos: Asegúrese de que los campos en la tabla de destino (Ldetalles1) sean del mismo tipo de datos y estén en el mismo orden que los campos de la consulta de origen...

Está indicando mal los parámetros de la función, debe ser algo como Private Sub Cuadro_combinado52_AfterUpdate() Me.stock_articulo = DLookup("Stock_real", "Inventario", " lote_articulo=" & Cuadro_combinado52) End Sub Si lote_articulo es texto cambia...

Está incluyendo el campo fecha como agrupado y este debe ser "Dónde" algo como Fecha BETWEEN FechaInicio AND FechaFin, posteriormente agrupe y sume.

Se puede hacer mediante SQL si quiere envíeme su base de datos a [email protected] y trato de colaborarle.

Además de indexar puede condicionar que solo se anexen los registros de acuerdo con una condición, por ejemplo, esta puede ser la fecha de registro.

Le dan la idea, pero no la solución. Escríbame a [email protected] y le explico con un ejemplo, no lo hago por acá porque esta página ya no permite subir código.

Pruebe con este código Dim qdf As QueryDef ' Recorrer todas las consultas abiertas For Each qdf In CurrentDb.QueryDefs ' Cerrar cada consulta DoCmd. Close acQuery, qdf. Name Next qdf

Además de la respuesta que le dan, que es una aproximación y de acuerdo con la imagen que ha subido en Facebook para representar en el informe por columnas de acuerdo con las entregas, éste debe ser dinámico.

Pruebe con este código: Dim db As Object Set db = CreateObject("DAO.DBEngine.36") db.CompactDatabase "ruta_de_tu_base_de_datos_origen", "ruta_de_tu_base_de_datos_destino" Set db = Nothing No olvide reemplazar las rutas de las bases de datos.