Recorrer registro

[Evidiel]

como controlo el fin de registro de un sub formulario, esta es la intruccion que utilizo
Do While Me.CurrentRecord <> 0
no contrala el final, no me sirve.
si alguien tiene algun ejemplo le agradesco.

tengo que recorrer todo los registro del sub-form, para realizar algunas acciones..

[Atzeneta]

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.

[Evidiel]

No puedo atacar la tabla ya que los registro del sub-form son filtrados. debo trabajar con los registros filtrados del sub-formulario.

[Atzeneta]

Crea un sql con el mismo filtro que tienes en el subformulario el mismo filtro que el que tienes subformulario.

No se exactamente en tu caso como podrías recoger el filtro del subformulario, pero podría ser algo así.

......
sql = "SELECT * FROM Tabla"
if not SubForm.Filter="" then

sql = sql & " WHERE " & SubForm.Filter

end if
......

[marcocho2005]

Iniciado por Atzeneta

Crea un sql con el mismo filtro que tienes en el subformulario el mismo filtro que el que tienes subformulario.

No se exactamente en tu caso como podrías recoger el filtro del subformulario, pero podría ser algo así.

......
sql = "SELECT * FROM Tabla"
if not SubForm.Filter="" then

sql = sql & " WHERE " & SubForm.Filter

end if
......

Comparto esta idea de crear un SQL igual para tu sub-form.
Tambien puedes crear un recordset que te entregue los mismos datos filtrados de tu sub-form si quieres navegar en los registros de este recordset:
recordset.movefirst
while not recordset.eof
.....codigo
recordset.movenext
wend