Hola mis estimados profesores, ¡Me ayudan por fa!
Solicito me puedan ayudar con un problema un tanto complejo, imaginen que tengo una consulta en done veo toda la información que manejo en varias tablas, bueno, necesito hacer un informe en donde por medio de esta consulta obtenga resultados por columna, es decir, ejemplo. Una columna tengo datos de una tabla llamada estatus, y los datos son concluidos, en tramite y pendientes, en el informe tengo que sacar el total por semana de c/u de estos datos, ej. Concluidos 100, en tramite 230, etc. Que provienen de todas las quejas que entran a esta BD y en periodos semanales y que aparezcan los 4 periodos de mes en el mismo informe, alguien tiene la forma de como hacerlo, les agradeceré la orientación.
{"Lat":19.3551354578465,"Lng":-99.0585179327172}
1 respuesta
Respuesta de sir_drake
1
Para lo que solicitas, la única manera de hacerlo es a través de código vba,
En mi experiencia, he tenido que agregar campos calculados por totales y otros según fechas seleccionadas bla, bla, bueno aquí tienes un ejemplo de código que cuenta los registros que hay en una tabla en este caso lo que busca son lo registros que su mes sea mayor o igual a una fecha inicial, menor o igual que una fecha final e igual al año seleccionado en un formulario. Puedes hacer la consulta que quieras, seleccionas el resultado y lo asignas a la etiqueta que quieras.
Espero te sea de ayuda.
Set rst_t = CurrentDb.OpenRecordset("SELECT Count([Inters@s].[NUM SUGERENCIA]) AS [Cuenta] FROM [Inters@s] WHERE ((([Inters@s]![MES])>=" & Forms![INICIO]![Mes_Form_Ini].Value & " And ([Inters@s]![MES])<=" & Forms![INICIO]![Mes_Form_Fin].Value & ") AND (([Inters@s].AÑO) Like " & Forms![INICIO]![Año].Value & "));")
'Asignamos a la variable Tot_Registro el valor de la cuenta que se almacena en el campo primero de la consulta que es el 0.
Tot_Reg = rst_t.Fields(0).Value
'con la etiqueta creada en el informe TOT, le asignamos el valor de un texto mas el valor de la variable Tot_Reg
Me.TOT.Value = "Total de registros: " & Tot_Reg
rst_t.Close
En mi experiencia, he tenido que agregar campos calculados por totales y otros según fechas seleccionadas bla, bla, bueno aquí tienes un ejemplo de código que cuenta los registros que hay en una tabla en este caso lo que busca son lo registros que su mes sea mayor o igual a una fecha inicial, menor o igual que una fecha final e igual al año seleccionado en un formulario. Puedes hacer la consulta que quieras, seleccionas el resultado y lo asignas a la etiqueta que quieras.
Espero te sea de ayuda.
Set rst_t = CurrentDb.OpenRecordset("SELECT Count([Inters@s].[NUM SUGERENCIA]) AS [Cuenta] FROM [Inters@s] WHERE ((([Inters@s]![MES])>=" & Forms![INICIO]![Mes_Form_Ini].Value & " And ([Inters@s]![MES])<=" & Forms![INICIO]![Mes_Form_Fin].Value & ") AND (([Inters@s].AÑO) Like " & Forms![INICIO]![Año].Value & "));")
'Asignamos a la variable Tot_Registro el valor de la cuenta que se almacena en el campo primero de la consulta que es el 0.
Tot_Reg = rst_t.Fields(0).Value
'con la etiqueta creada en el informe TOT, le asignamos el valor de un texto mas el valor de la variable Tot_Reg
Me.TOT.Value = "Total de registros: " & Tot_Reg
rst_t.Close
