06/05/2005, 01:02
|
| | | Fecha de Ingreso: junio-2004 Ubicación: Castellón, España
Mensajes: 98
Antigüedad: 20 años, 10 meses Puntos: 0 | |
| Ataca la tabla directamente y utiliza la función EOF(Fin de Archivo) para saber que has llegado al final.
....
if not obrs.EOF
obrs.MoveFirst
While not obrs.EOF (o obrs.EOF=false)
'Código'
obrs.MoveNext
Wend
....
de esta formá, mientras no llegues al final del recordset e cumplirá la condición EOF=false y seguirás ejecutando el bucle. Cuando llegues al último registro EOF será true y saldrás del bucle. |