Cita:
Iniciado por javi_d 
Buenas!!! Necesito recorrer una tabla donde tengo registros que mando a imprimir
a un datareport dependiendo del numero de cuotas "NCuotaMov". no se que es lo que estoy haciendo mal pero no puedo lograr que ande.
Es decir debo ordenarlos por "CodMov" codigo de movimiento(Clave de registro), y luedo dependiendo el numero de cuotas "NCuotaMov" mando a imprimir. es decir si es NCuotaMov=2mando a impirmir con DrtChequera2 y asi sucesivamente...
Aca les dejo el codigo que estoy usando...
si tienen otra mejor idea de como recorrer todos los registros de la tabla se los agradeceria mucho desde ya muchas gracias!!!
Espero su respuesta!!!
Dim Ncuotas As Integer
Dim Comprobar
Comprobar = False
If BDMovimientoMercTemp.rsMovimiento.RecordCount > 0 Then
BDMovimientoMercTemp.rsMovimiento.MoveFirst
Do While Not BDMovimientoMercTemp.rsMovimiento.EOF
Ncuotas = BDMovimientoMercTemp.rsMovimiento.Fields!NCuotaMov .Value
if Ncuotas = 0 Then
DrtChequera1.PrintReport
Else
If Ncuotas = 2 Then
DrtChequera2.PrintReport
end if
end if
if BDMovimientoMercTemp.rsMovimiento.EOF = False Then
Comprobar = True
Exit Do
Else
BDMovimientoMercTemp.rsMovimiento.Sort = "CodMov"
end If
BDMovimientoMercTemp.rsMovimiento.MoveNext
Loop
End If
Hola, no entiendo muy bien ese código. ¿Qué es "BDMovimientoMercTemp", un Form? y "rsMovimiento" ¿un recordset o un control Data?
¿Estás trabajando con ADO o con DAO?
Cuando dices "no puedo lograr que ande", ¿qué significa, dá error o simplemente que no hace nada?
Fíjate en lo marcado en rojo, esa condición se evaluará en la primera pasada del bucle y por lo tanto, saldrá del mismo.
En azul: eso no tiene ningún sentido, estás intentando ordenar un recordset dentro del propio recordset.
¿No sería mejor hacer una consulta de ordenación por el campo "CodMov" y después evaluar el valor del campo "NCuotaMov"?
