MoveNext no funciona en informe
Publicado por Alejandro (14 intervenciones) el 12/05/2016 20:07:24
Tengo este evento en un botón para imprimir informes.
Selecciono el modelo de informe que quiero y le doy imprimir.
El caso es que siempre imprime el primer registro, aunque haya 6 registros, imprime 6 informes pero del mismo registro, el MoveNext no funciona.
No veo donde está el error..............
A ver si alguien me lo puede aclarar.
Muchas gracias.
Ahora que lo estoy escribiendo caigo en que quizás puede ser porque cierro y abro el informe cada vez que imprime. Copié el código de otro Form, y quizás sea eso, tendré que probar a borrar el cierre del Informe.
Selecciono el modelo de informe que quiero y le doy imprimir.
El caso es que siempre imprime el primer registro, aunque haya 6 registros, imprime 6 informes pero del mismo registro, el MoveNext no funciona.
No veo donde está el error..............
A ver si alguien me lo puede aclarar.
Muchas gracias.
Ahora que lo estoy escribiendo caigo en que quizás puede ser porque cierro y abro el informe cada vez que imprime. Copié el código de otro Form, y quizás sea eso, tendré que probar a borrar el cierre del Informe.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Imprimir_Click()
Dim txtCriterio As String
Dim rs1 As DAO.RecordsetSet rs1 = CurrentDb.OpenRecordset("CodigosImprimir")
rs1.MoveFirstIf IsNull(Me.TipoInforme) Or IsEmpty(Me.TipoInforme) Then
MsgBox " Tienes que seleccionar un Modelo de Informe ", , "Atención!"
ElseIf Me.TipoInforme = "UNO" Then
...................
ElseIf Me.TipoInforme = "DOS" Then
.................
ElseIf Me.TipoInforme = "TRES" Then
Do While Not rs1.EOF()
txtCriterio = "Id = " & Me.nCodigoCliente
DoCmd.OpenReport "INF_Concesion_LOB", acViewPreview, , txtCriterio
DoCmd.PrintOut acPages, , , , Me.nCopias
DoCmd.Close acReport, "INF_Concesion_LOB"
rs1.MoveNext MsgBox Me.nCodigoClienteLoop
End If
End Sub
Valora esta pregunta
0
