Reportes Diarios
Hola, ¿mi problema es el sig. Como le puedo hacer para generar reportes diarios automáticamente al generar un informe?
1 Respuesta
Respuesta de joseparg
1
Creo que te he pillado la idea:
1- Primero debes crear una tabla para registrar la fecha cada vez que se imprime el informe. La tabla la llamaremos "Fechas Informes" i tendrá un campo tipo fecha/hora que lo llamaremos "Fecha Impresión".
2- En un evento al abrir el formulario inicial pondremos el siguiente código:
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Fechas Informes")
If DCount("*", "Fechas Informes") > 0 Then
rst.MoveLast
If rst("Fecha Impresión") <> Date Then
rst.AddNew
rst("Fecha Impresión") = Date
rst.Update
DoCmd.OpenReport "informe", acNormal
End If
Else
rst.AddNew
rst("Fecha Impresión") = Date
rst.Update
DoCmd.OpenReport "informe", acNormal
End If
1- Primero debes crear una tabla para registrar la fecha cada vez que se imprime el informe. La tabla la llamaremos "Fechas Informes" i tendrá un campo tipo fecha/hora que lo llamaremos "Fecha Impresión".
2- En un evento al abrir el formulario inicial pondremos el siguiente código:
Dim dbs As Database
Dim rst As Recordset
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Fechas Informes")
If DCount("*", "Fechas Informes") > 0 Then
rst.MoveLast
If rst("Fecha Impresión") <> Date Then
rst.AddNew
rst("Fecha Impresión") = Date
rst.Update
DoCmd.OpenReport "informe", acNormal
End If
Else
rst.AddNew
rst("Fecha Impresión") = Date
rst.Update
DoCmd.OpenReport "informe", acNormal
End If
