Estoy echando una mano a una asociación de acogida de niños saharauis durante los veranos, intentando hacerles una pequeña aplicación para gestionar la info de los niños y las familias de acogida; y tengo un problema que no se resolver.

Hay un botón que me muestra un informe basado en una consulta, y lo guarda en una carpeta; en este informe aparece distintas líneas con información sobre los chavales agrupado por familias; necesito que se emita un informe separado por familia automáticamente (no me refiero a hojas separadas -forzar nueva página-) para poder enviar por mail a cada familia únicamente la info del niño que le corresponde. 

Por si no me he explicado bien la información en la consulta es:

1. Familia 1
• Dato niño 1
• Dato niño 1
2. Familia 2
• Dato niño 2
• Dato niño 2

Al actuar sobre el botón se necesitaría que en lugar de guardar un informe en dos hojas separadas, se emitan y guarden dos informes con un nombre p.e. familia1.pdf y familia2.pdf

¿Podéis darme luz sobre como lograr algo así o sabéis de algún ejemplo similar?

Gracias por vuestra atención

Explotando esta consulta te creas un informe por cada registro de la misma (usando un recordset para recorrer la misma).

Voy a intentarlo de ese modo. No controlo mucho lo del recordset, ¿puedo hacerlo con un for each?

Gracias

Do until Rs.eof

    'Trato mi valor

    Docmd.OpenReport "xxx",,,,, Rs!Familia

    Rs.Movenext

Loop

Rs.Close

má o meno ... .

¡Ojo! escrito al vuelo, la sintaxis está de aquella manera ...

Gracias a la idea de Mihura he intentado (con casi absoluto desconocimiento del tema) el código que pongo a continuación, pero me salta un error ('3078') diciendo que Access no puede encontrar la tabla o consulta de entrada (La consulta Familias existe en la base de datos y el nombre está escrito correctamente)

NOTA: si en lugar de la consulta pongo esos datos en una tabla si la recorre

¿Alguna ayuda? gracias

Hola:

La instrucción: Set rsREGISTROS = dbTemporal.OpenRecordset("Familias", dbOpenDynaset) es para un objeto query salvado en la BBDD.

Para una tabla sería:

Set rsREGISTROS = dbTemporal.OpenRecordset("Familias", dbOpenTable)

Saludos

Depende de lo que quieras hacer. Sí quieres usar el método SEEK, que hace uso de índices y de uso exclusivamente en tablas, sí lo tienes que abrir como tabla. 

Sí lo vas a recorrer solo sín interaccionar, un dbOpenForwardOnly sería lo más indicado. Aunque el origen de datos sea una tabla.

Salu2,

La base de datos a la que apunta dbTemporal ¿contiene la consulta? 

Tengo una consulta que, entre otros datos, me da por ejemplo:

Descripcion        Familia

Dato 1 Familia A

Dato 2 Familia A

Dato 3 Familia B

Dato 4 Familia C

Lo que pretendo es para cada linea de esa consulta (Familias) imprimir un informe por separado con los datos de Descripcion para cada familia, y guardarlo con el nombre Familia A, Familia B, y Familia C.

No se si hay un modo de hacerlo más sencillo que con el Recordset (La verdad es que no toco access desde hace años, y el tema de VBA lo llevo mas que flojito).

Set rsREGISTROS = dbTemporal.OpenRecordset("Familias", dbOpenForwardOnly)

El error que lanza en este caso es:Error 3061 en tiempo de ejecución. Pocos parametros. Se esperaba 1 

Otra cosa es que le tire un error en el .Movelast, .MoveFirst con el parámetro dbOpenForwardOnly (que no se porqué está de moda ponerlo).

Copio / Pego una prueba rápida que he hecho:

Private Sub Comando8_Click()     Set DbExterna = CurrentDb     Dim Rs As DAO.Recordset     Set Rs = CurrentDb.OpenRecordset("ConsultaFechas", dbOpenForwardOnly)     Do Until Rs.EOF         Debug.Print Rs.Fields(0)         Rs.MoveNext     Loop     Rs.Close      End Sub

Salta el mismo error de faltan parámetros.

Ahora si que ando perdido del todo jajajajjaa. ¿Véis alguna otra solución o camino para conseguir lo que necesito? (si es necesario que la asociación recurra a algún desarrollador que solucione este punto creo que lo harían)

Confundí dbOpenForwardOnly (que es un tipo de apertura) con dbForwardOnly (que es una opción)

Ese error te puede dar porque la consulta tenga parámetros (criterios) que esté leyendo de un formulario. En ese caso no te dejará cargarla en el recordset así como así. Tendrás que escribir la consulta en el mismo VBA y hacer que lea esos parámetros del formulario para poder asignarla al recordset.

Ahora no estoy delante de un equipo desde el que pueda ponerte un ejemplo más claro pero esta tarde puedo verlo con más calma.

He conseguido lo que pretendía con la ayuda de todos, y de forma poco ortodoxa imagino. Así que os agradezco a todos y cada uno de vosotros vuestra colaboración.

Os cuento lo que he hecho (no os riáis mucho de mi...):

 1- Como el error que comenta Conrrad69 me daba al tener la consulta criterios he creado una tabla mediante una consulta en la que obtengo las Familias.

 2- Recorro con un Recordset esa tabla, y me desplazo por ella con un For i= 1 to rst.Recordcount

 3- Abro el informe filtrado por familia

 4- Finalmente lo exporto a una carpeta determinada con el nombre de la Familia

Con total seguridad es una "ñapa" o chapuza tremenda, pero me funciona. De todos modos me encantaría aprender a hacerlo como se debe con vuestra ayuda, así que... soy todo ojos y oídos.

¿Leíste mi anterior mensaje? ...   creo que es la primera vez que veo un For i= 1 to rst.Recordcount para recorrer los registros de una tabla ... 

Private Sub Comando8_Click()
    Set DbExterna = CurrentDb
    Dim Rs As DAO.Recordset
    Set Rs = CurrentDb.OpenRecordset("ConsultaFechas", dbOpenForwardOnly)
    Do Until Rs.EOF
        Debug.Print Rs.Fields(0)
        Rs.MoveNext
    Loop
    Rs.Close
    
End Sub

Me sigue saltando el error de pocos parametros se esperaba 1  (no se si es por el tema de que la consulta filtra por un parámetro del formulario)

Hola:

No lo he probado, pero si en lugar de un recordest, referencias una querydef y le asignas los parametros no funcionaria??.

Saludos

En mi caso cuando me encuentro estas historias suelo escribir la consulta en el VBA, algo así:

Dim sql as String

sql = "SELECT ..........." 

Lo que hago es poner la consulta que tienes como objeto en vista SQL y copiar el código, luego lo pego en VBA y lo adapto. Los parámetros de la consulta los leo desde de aquí directamente del formulario:

sql= "SELECT............FROM...........WHERE IdCliente=" & Me.IdCliente

Simplificándolo mucho claro.

Y luego en el recordset cargo esta sql

Es mucho más complicado pero te salva ese inconveniente.

No he hecho nunca lo del Querydef... ¿pero sería algo asi?

Dim dbTemporal As DAO.Database

Set dbTemporal = CurrentDb

Dim Consulta as QueryDef

    Set Consulta = MiBaseDatos.CreateQueryDef ("Familia","SELECT.......;")

Do While Not Consulta.EOF()

DoCmd.OutputTo acReport, "InfoFamilia", "(*.pdf)", "C:\PROYECTO 976\SAHARA\ZARAGOZA\Familias\Info " & familia & " " & idExpediente &  ".pdf", False, ""

   rsREGISTROS.MoveNext

 DoEvents

    Loop

 

     

    rsREGISTROS.Close

    dbTemporal.Close

    Set rsREGISTROS = Nothing

    Set dbTemporal = Nothing

HOLA

Este ejemplo es sobre una consulta ya existente

Dim rv As Recordset,qs As QueryDef

Set qs = CurrentDb().QueryDefs("Prueba")

qs.Parameters("[Forms]![GeneraReci]![RecIni]") = RecIni
qs.Parameters("[Forms]![GeneraReci]![RecFin]") = RecFin
qs.Parameters("[Forms]![GeneraReci]![Prop]") = Me.Prop

Set rv = qs.OpenRecordset()

y ya dispondras de todos los campos de la consulta en rv

saludos

Según la documentación que encontrás aquí  https://docs.microsoft.com/es-es/office/client-developer/access/desktop-database-reference/database-openrecordset-method-dao" rel="nofollow - https://docs.microsoft.com/es-es/office/client-developer/access/desktop-database-reference/database-openrecordset-method-dao ) debería ser