Juntar en un campo otros campos de varios registros

13/04/2011 - 17:17 por carlos batata | Informe spam

Lo que necesito hacer, de una tabla de Socios y otra enganchada con la
Familia del Socio, en una consulta de creación de tabla juntar todos
los Familiares del socio (nombre solamente separados por comas) en un
campo de la nueva tabla con otros datos del Socio (nombre, domicilio,
localidad, etc.). Es para poder imprimirlos, ya que si los pongo en
detalle de un informe (recibo del socio que figuran los familiares)
los nombres de estos se imprimen en forma vertical uno debajo de otro
y hace un recibo largo y variable en altura, al estar tods en un
campo, los pondria en algun lugar del informe.

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Re: Juntar en un campo otros campos de varios registros

Leer las respuestas

#6 Pancho

21/04/2011 - 19:45 | Informe spam

Hola.
Yo haria algo asi:
En el formulario donde tenes el listado de tus socios (IdSocio,
NombreSocio, ApellidoSocio, ...) pones un campo de texto independiente
vacio ("LISTA") y un boton de
comando en cuyo procedimiento AL HACER CLIC pones algo asi:

Me.LISTA = Me.NombreSocio & " " & Me.ApellidosSocio ... &
MiFuncion(Me.IdSocio)

Luego en un Modulo MiFuncion pones:
Public Function MiFuncion(IdSocio as integer) as String
Dim oRS as New ADODB.Recordset
Dim oCon as ADODB.Connection
Dim cLista as String
Dim cTabla as String
Dim cFiltro

Set oCon=CurrentProjection.Connection
cTabla="TablaConLosFamiliares"
cFiltro="IdSocio = " & IdSocio

oRS.Open cTabla, oCon, adOpenForward, adLockReadOnly
oRS.Filter = cFiltro
i=0
If Not (oRS.EOF AND oRS.BOF) Then

Do While Not oRS.EOF
i=i+1
if i = 1 then
cLista= oRS.Nombre
else
cLista= cLista & " " & oRS.Apellidos ","
oRS.MoveNext
Loop

MiFuncion = cLista

Nota: Cambie IdSocio por Me.IdSocio y agregue un campo independiente
en tu formulario, en teoria este procedimiento te pondria el nombre
del socio con el de sus familiares en el campo independiente LISTA. No
se si es lo que necesitas.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida