Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Recorrer los registros de un subformulario

2,502 views
Skip to first unread message

Blue

unread,
Sep 14, 2008, 5:51:23 AM9/14/08
to
Hola, tengo una duda que no se como hacer, tengo un form de una factura y un
subform con las lineas de esa factura. Quisiera recorrer el subform para
evaluar las lineas y hacer cosas segun lo que tenga, ahora lo estoy haciendo
a traves de codigo y con recordset pero ¿se puede hacer de alguna forma para
recorrer el subform linea a linea? es que lo estoy mirando pero no encuentro
nada, o quizas es mejor como lo hago yo y evaluarlo con un recordset y
codigo.

Gracias


Chea

unread,
Sep 14, 2008, 6:28:22 AM9/14/08
to
Puedes recorrer el RecordsetClone del subformulario y utilizar la propiedad
BookMark para posicionarte en el subofmulario:

Dim rs as DAO recordset, subfrm as form

set subfrm = Foms!Miformulario!MiSubformulario.Form
set rs = subfrm.RecordsetClone

With rs
.MoveFirst
While not .EOF
'Evaluo lo que sea
'Si quiero paso la posición al subofmulario
subfrm.Recordset.Bookmark = rs.bookmark
.Movenext
Wend
End With
--
Saludos

José Bengoechea Ibaceta [MS-MVP Access]
http://jbengoechea.com/
http://jbchea.net
http://geeks.ms/blogs/access


"Blue" <bluen...@hotmail.com> escribió en el mensaje de noticias
news:e8pkv9kF...@TK2MSFTNGP02.phx.gbl...

alexanderortega

unread,
Apr 14, 2010, 12:57:22 PM4/14/10
to
Hola, estoy tomando tu ejemplo para recorrer el subformulario [Forms]![FICHA_MOV]![FICHA_MOV_R]con tu instruccion pero me sacara un error

--------------------------------------------
Dim rs As DAO.Recordset, subfrm As Form

Set subfrm = Forms!FICHA_MOV!FICHA_MOV_R.Form (AQUI)
Set rs = subfrm.RecordsetClone

With rs
.MoveFirst
While Not .EOF
MsgBox [Forms]![FICHA_MOV]![FICHA_MOV_R]![Producto]
'Evaluo lo que sea
'Si quiero paso la posici?n al subofmulario
subfrm.Recordset.Bookmark = rs.Bookmark
.MoveNext
Wend
End With
-------------------------------------------
Deseo hacer una operacion cualquiera con uno de los valores de cada registro. esta funcion es la ideal, me cuentas porque el error. Gracias

Chea wrote:

Puedes recorrer el RecordsetClone del subformulario y utilizar la propiedad

14-Sep-08

Puedes recorrer el RecordsetClone del subformulario y utilizar la propiedad
BookMark para posicionarte en el subofmulario:

Dim rs as DAO recordset, subfrm as form

set subfrm = Foms!Miformulario!MiSubformulario.Form
set rs = subfrm.RecordsetClone

With rs
.MoveFirst
While not .EOF
'Evaluo lo que sea

'Si quiero paso la posici?n al subofmulario


subfrm.Recordset.Bookmark = rs.bookmark
.Movenext
Wend
End With
--
Saludos

Jos? Bengoechea Ibaceta [MS-MVP Access]


http://jbengoechea.com/
http://jbchea.net
http://geeks.ms/blogs/access


"Blue" <bluen...@hotmail.com> escribi? en el mensaje de noticias
news:e8pkv9kF...@TK2MSFTNGP02.phx.gbl...

Previous Posts In This Thread:

On Sunday, September 14, 2008 5:51 AM
Blue wrote:

Recorrer los registros de un subformulario


Hola, tengo una duda que no se como hacer, tengo un form de una factura y un
subform con las lineas de esa factura. Quisiera recorrer el subform para
evaluar las lineas y hacer cosas segun lo que tenga, ahora lo estoy haciendo

a traves de codigo y con recordset pero ?se puede hacer de alguna forma para

recorrer el subform linea a linea? es que lo estoy mirando pero no encuentro
nada, o quizas es mejor como lo hago yo y evaluarlo con un recordset y
codigo.

Gracias

On Sunday, September 14, 2008 6:28 AM
Chea wrote:

Puedes recorrer el RecordsetClone del subformulario y utilizar la propiedad
Puedes recorrer el RecordsetClone del subformulario y utilizar la propiedad
BookMark para posicionarte en el subofmulario:

Dim rs as DAO recordset, subfrm as form

set subfrm = Foms!Miformulario!MiSubformulario.Form
set rs = subfrm.RecordsetClone

With rs
.MoveFirst
While not .EOF
'Evaluo lo que sea

'Si quiero paso la posici?n al subofmulario


subfrm.Recordset.Bookmark = rs.bookmark
.Movenext
Wend
End With
--
Saludos

Jos? Bengoechea Ibaceta [MS-MVP Access]


http://jbengoechea.com/
http://jbchea.net
http://geeks.ms/blogs/access


"Blue" <bluen...@hotmail.com> escribi? en el mensaje de noticias
news:e8pkv9kF...@TK2MSFTNGP02.phx.gbl...


Submitted via EggHeadCafe - Software Developer Portal of Choice
Book Review: C# 4.0 In a Nutshell [O'Reilly]
http://www.eggheadcafe.com/tutorials/aspnet/6dc05c04-c7f9-40cc-a2da-88dde2e6d891/book-review-c-40-in-a.aspx

alexanderortega

unread,
Apr 14, 2010, 1:43:21 PM4/14/10
to
Tengo un formulario con subformulario Forms!FICHA_MOV!FICHA_MOV_R y necesito recorrer el subformulario pata hacer una operacion matematica con un campo CANTIDAD en cada registro. Estoy aprendiendo algo de prgramacion

Quisiera saber cual es el codigo para este y se lo puedo ejecutar desde un objeto del formulario.

Gracias

ALEXANDER ORTEGA
alexo...@yahoo.es


Chea wrote:

Puedes recorrer el RecordsetClone del subformulario y utilizar la propiedad

14-Sep-08

Puedes recorrer el RecordsetClone del subformulario y utilizar la propiedad
BookMark para posicionarte en el subofmulario:

Dim rs as DAO recordset, subfrm as form

set subfrm = Foms!Miformulario!MiSubformulario.Form
set rs = subfrm.RecordsetClone

With rs
.MoveFirst
While not .EOF
'Evaluo lo que sea

'Si quiero paso la posici?n al subofmulario


subfrm.Recordset.Bookmark = rs.bookmark
.Movenext
Wend
End With
--
Saludos

Jos? Bengoechea Ibaceta [MS-MVP Access]


http://jbengoechea.com/
http://jbchea.net
http://geeks.ms/blogs/access


"Blue" <bluen...@hotmail.com> escribi? en el mensaje de noticias
news:e8pkv9kF...@TK2MSFTNGP02.phx.gbl...

Previous Posts In This Thread:

On Sunday, September 14, 2008 5:51 AM
Blue wrote:

Recorrer los registros de un subformulario

Hola, tengo una duda que no se como hacer, tengo un form de una factura y un
subform con las lineas de esa factura. Quisiera recorrer el subform para
evaluar las lineas y hacer cosas segun lo que tenga, ahora lo estoy haciendo

a traves de codigo y con recordset pero ?se puede hacer de alguna forma para

recorrer el subform linea a linea? es que lo estoy mirando pero no encuentro
nada, o quizas es mejor como lo hago yo y evaluarlo con un recordset y
codigo.

Gracias

On Sunday, September 14, 2008 6:28 AM
Chea wrote:

Puedes recorrer el RecordsetClone del subformulario y utilizar la propiedad
Puedes recorrer el RecordsetClone del subformulario y utilizar la propiedad
BookMark para posicionarte en el subofmulario:

Dim rs as DAO recordset, subfrm as form

set subfrm = Foms!Miformulario!MiSubformulario.Form
set rs = subfrm.RecordsetClone

With rs
.MoveFirst
While not .EOF
'Evaluo lo que sea

'Si quiero paso la posici?n al subofmulario


subfrm.Recordset.Bookmark = rs.bookmark
.Movenext
Wend
End With
--
Saludos

Jos? Bengoechea Ibaceta [MS-MVP Access]


http://jbengoechea.com/
http://jbchea.net
http://geeks.ms/blogs/access


"Blue" <bluen...@hotmail.com> escribi? en el mensaje de noticias
news:e8pkv9kF...@TK2MSFTNGP02.phx.gbl...

On Wednesday, April 14, 2010 12:57 PM
ALEXANDER ORTEGA wrote:

RECORRER FORMULARIO


Hola, estoy tomando tu ejemplo para recorrer el subformulario [Forms]![FICHA_MOV]![FICHA_MOV_R]con tu instruccion pero me sacara un error

--------------------------------------------
Dim rs As DAO.Recordset, subfrm As Form

Set subfrm = Forms!FICHA_MOV!FICHA_MOV_R.Form (AQUI)

Set rs = subfrm.RecordsetClone

With rs
.MoveFirst


While Not .EOF
MsgBox [Forms]![FICHA_MOV]![FICHA_MOV_R]![Producto]

'Evaluo lo que sea


'Si quiero paso la posici?n al subofmulario
subfrm.Recordset.Bookmark = rs.Bookmark
.MoveNext
Wend
End With
-------------------------------------------
Deseo hacer una operacion cualquiera con uno de los valores de cada registro. esta funcion es la ideal, me cuentas porque el error. Gracias

Submitted via EggHeadCafe - Software Developer Portal of Choice

BizTalk: Conditional looping incorporating the Greater Than functoid.
http://www.eggheadcafe.com/tutorials/aspnet/e4334816-d106-40f2-812d-043c18df964c/biztalk-conditional-loop.aspx

0 new messages