Bueno Amigos!!! Despues de tanto!!! pude solucionar mi problema!!!
Les paso a explicar un poquito el código:
Bueno Primero preguntamos si existe un registro, en caso que exista mueve al primer registro de la tabla y ahora es cuando comienza el recorrido por la tabla (Bucle) que se repite tantas veces hasta llegar al fin de archivo(EOF).
(While Not BDMovimientoMercTemp.rsMovimiento.EOF) quiere decir que mientras no exista el fin de archivo efectue lo siguiente. Luego que seleccione la chequera (SeleccionChequera).Despues que mueva al siguiente(BDMovimientoMercTemp.rsMovimiento.MoveNe xt) tantas veces hasta que la intruccion (While Not BDMovimientoMercTemp.rsMovimiento.EOF) sea "verdadera". Y termina con un (Wend)
Este es el código:
If BDMovimientoMercTemp.rsMovimiento.RecordCount > 0 Then
BDMovimientoMercTemp.rsMovimiento.MoveFirst
While Not BDMovimientoMercTemp.rsMovimiento.EOF
Call SeleccionChequera
BDMovimientoMercTemp.rsMovimiento.MoveNext
Wend
End If
Espero que les sirva de Ayuda!!!
