Access y VBA - Listado de los registros de un subformulario

Listado de los registros de un subformulario

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=87102
Fecha de impresión: 26/Marzo/2026 a las 13:27

Tema: Listado de los registros de un subformulario

Publicado por: Martí Parellada
Asunto: Listado de los registros de un subformulario
Fecha de publicación: 15/Octubre/2025 a las 02:59

Intento hacer un listado de todos los registros de un subformulario, y el listado lo hace solamente con el contenido del registro que tengo seleccionado (o el primero de ellos si no selecciono nada en el subformulario), el numero de veces contenidos en el subformulario.

Detallo (de forma abreviada) el procedimiento que utilizo (módulo de Access):

Function CrearFactura(Cantidad As Single, Ref, Concepto As String, Precio As Single) As String

Dim rs As DAO.Recordset

Set rs = Forms![FACTURACION]![DETALLE_FACTURA].Form.RecordsetClone

Dim Registros As Single

Dim i As Single

Open CurrentProject.Path & "\FACTURA.txt" For Output As #1

Registros = CStr(rs.RecordCount)

For i = 1 To Registros

Print #1, ; Cantidad & " - " & Ref & " - " & Concepto & " - " & Precio

Next i

rs.Close

Set rs = Nothing

Close #1

End Function

El resultado para una factura con 3 registros de detalle sale de esta forma:

20 - 0810 - Carteles a color tamaño A3 - 0,8

Solamente ha hecho el listado del primer concepto de la factura, repetido 3 veces (número de detalles de la factura).

No logro que para cada iteración del For-Next ponga el "foco" en cada registro del subformulario.

Respuestas:

Publicado por: xavi
Fecha de publicación: 15/Octubre/2025 a las 07:53

Hola Martí y bienvenido al foro,

Varias cosas

- No entiendo los argumentos de la función cuando se supone que vas a guardar los de los registros del subformulario

- Para hacer un RecordCount es conveniente posicionarse en el último registro (luego habrá que volver al primero)

- Un bucle For..Next no seria lo mas adecuado. Utiliza un bucle Do...Loop

Algo así:

Function CrearFactura()
	Dim rs As DAO.Recordset
	Set rs = Forms![FACTURACION]![DETALLE_FACTURA].Form.RecordsetClone
	rs.MoveFirst
	Open CurrentProject.Path & "\FACTURA.txt" For Output As #1
	Do Until rs.EOF
		Print #1, ; rs!Cantidad & " - " & rs!Ref & " - " & rs!Concepto & " - " & rs!Precio
		rs.MoveNext
	Loop
	rs.Close
	Set rs = Nothing
	Close #1
End Function

Escrito al vuelo. Se asume que Cantidad, Ref, Concepto y Precio son campos del recordset

Un saludo

Editado para añadir un MoveFirst (sugerencia de Mihura)

-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web

Publicado por: Martí Parellada
Fecha de publicación: 16/Octubre/2025 a las 16:00

Ya lo había probado de esta forma, y no funciona.

Si DETALLE_FACTURA tiene, por ejemplo 3 registros, me lista el contenido del primer registro 3 veces.

No logro que ponga el foco en cada uno de los registros.

Si en DETALLE_FACTURA selecciono el segundo registro, me lista el contenido de este segundo registro 3 veces.

Publicado por: Martí Parellada
Fecha de publicación: 16/Octubre/2025 a las 16:04

Por cierto, utilizo el Access de Microsoft Office Professional 2010

No sé si al ser una versión tan antigua puede ser el problema.

Publicado por: xavi
Fecha de publicación: 16/Octubre/2025 a las 16:16

Discrepo. ¿Lo has probado? Porque es un código bastante estandar de recorrer los registros de un subformulario que funciona perfectemente.

Traduzco las líneas del código.

Function CrearFactura()	' Nombre de la función. Se puede llamar desde cualquier parte.
	Dim rs As DAO.Recordset	' Declaración de la variable rs como un recordset tipo DAO
	Set rs = Forms![FACTURACION]![DETALLE_FACTURA].Form.RecordsetClone  ' Asignar al recordset un clonado de los registros del subformulario DETALLE_FACTURA del formulario FACTURACION
	rs.MoveFirst	' Colocarse en el primer registro del recordset (ergo del subformulario)
	Open CurrentProject.Path & "\FACTURA.txt" For Output As #1	' Abrir un fichero txt para exportación de datos
	Do Until rs.EOF	' Abrir un bucle hasta que se acaben los registros
		Print #1, ; rs!Cantidad & " - " & rs!Ref & " - " & rs!Concepto & " - " & rs!Precio ' Escribir en el fichero de texto el contenido de los campos del recordset
		rs.MoveNext ' Moverse al siguiente registro del recordset
	Loop ' Loop del bucle
	rs.Close	' Cerrar el recorset
	Set rs = Nothing ' Limpiar
	Close #1 ' Cerrar el fichero de texto
End Function  ' Fin de función

Y la versión de Office no tiene nada que ver. Esto funciona desde hace un montón de años.

Un saludo

-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web

Publicado por: Martí Parellada
Fecha de publicación: 16/Octubre/2025 a las 17:22

Pues NO funciona. Sigo investigando y te digo cuando lo consiga.

Pensé que a lo mejor el problema venia por la forma que yo relaciono formulario/subformulario, e intenté hacerlo abriendo únicamente el subformulario. Pero el problema era el mismo: no hay forma que enfoque cada linea de registro.

Puede pasar por todos los registros, pero sin que reciban el enfoque para poder sacar los datos.

Publicado por: xavi
Fecha de publicación: 16/Octubre/2025 a las 17:33

Me parece que hay algo que no ha quedado claro.

Los registros del subformulario *jamás* se van a enfocar. Se va a abrir un recordset basado en el origen del registro del subformulario y se va a recorrer. En cada MoveNext deben cambiar los datos (que son los que utiliza el Print)

¿Has probado a ejecutar paso a paso para ver los valores que va tomando?

-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web

Publicado por: Martí Parellada
Fecha de publicación: 18/Octubre/2025 a las 00:01

Ya he solucionado el problema recurriendo a ejecutar una macro de Access que va leyendo registro a registro los datos del subformulario.

Moltes gràcies per l'ajuda. Visca els Minyons de Terrassa.