Abrir varias variantes de un informe desde un Loop
Publicado por Cm (68 intervenciones) el 25/09/2018 17:00:59
Hola,
Tengo un Recordset con varios registros. Lo recorro con un Loop y quiero abrir varios Informes de access teniendo en cuenta datos diferentes en cada apertura.
El objetivo es que queden n pestañas abiertas con n informes de cada elemento con Id diferente del recordset.
Sin embargo, sólo se abre un informe, no los tres o cuatro que debería teniendo en cuenta la longitud del recordset. ¿Qué puede estar fallando?¿Alguien puede dar una pista? Gracias por anticipado a todo el mundo. Si necesitan más datos no duden en preguntar.
Tengo un Recordset con varios registros. Lo recorro con un Loop y quiero abrir varios Informes de access teniendo en cuenta datos diferentes en cada apertura.
El objetivo es que queden n pestañas abiertas con n informes de cada elemento con Id diferente del recordset.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim op As Database 'Declaramos una base de datos
Dim gfe As Recordset 'Declaramos recordset
Dim Id As Integer 'Declaramos un Id como Integer
Set op = CurrentDb 'Asignamos valor a op
'Declaración del filtro
filtro = "SELECT G.* " 'Todos los campos de G
filtro = filtro & "FROM G " 'De la tabla G
filtro = filtro & "WHERE IdE=" & Me!IdE 'En los cuales el IdE sea igual al IdE que viene del formulario
Set gfe = optica.OpenRecordset(filtro, dbOpenDynaset) 'Se abre recordset con Dynaset usando ese filtro
gfe.MoveFirst 'Vamos al primer registro
Do Until gfe.EOF ' Recorremos el recordset hasta el final
DoCmd.OpenReport "oSobre", acViewPreview, , "id = " & gfe.Fields("Id").Value 'Mostramos cada uno de los Ids de los registros de la tabla recordset
gfe.MoveNext 'Pasamos al siguiente registro
Loop ' Fin del Loop
gfe.Close ' Cierre del Recordset
Sin embargo, sólo se abre un informe, no los tres o cuatro que debería teniendo en cuenta la longitud del recordset. ¿Qué puede estar fallando?¿Alguien puede dar una pista? Gracias por anticipado a todo el mundo. Si necesitan más datos no duden en preguntar.
Valora esta pregunta
0
