Access - Juntar registros en un solo campo.

Juntar registros en un solo campo.

Publicado por Dany (40 intervenciones) el 02/05/2016 23:59:52

Hola saludos cordiales a todos.

Tengo una tabla asi:

Codigo Sector
DNA 2501
NDT 2401
DNA 2502
TNT 2381
DNA 2336
NDT 2405

Quiero lograr juntar en otra tabla temporal o alguna consulta todos los Codigos con su Sector concantenados.

Algo así:
DNA 2501, 2502, 2336
NDT 2401, 2405
TNT 2381

Actualmente hago este proceso con un RecordSet y 3 consultas para concatenar los campos. en uno solo, agregando 7 u 8 columnas en la tabla final, pero si el registro no tiene Codigo no tiene tantos sectores al correr la consulta me pide los parametros para esas columnas.

Encontre este otro trozo de codigo pero no lo he podido hacer funcionar, me marca error "No value given for one or more required parameters"

Public Function Conc(Fieldx, Identity, Value, Source) As Variant

  Dim cnn As ADODB.Connection

  Dim rs As ADODB.Recordset

  Dim SQL As String

  Dim vFld As Variant

  Set cnn = CurrentProject.Connection

  Set rs = New ADODB.Recordset

  vFld = Null

  SQL = "SELECT [" & Fieldx & "] as Fld" & _

        " FROM [" & Source & "]" & _

        " WHERE [" & Identity & "]=" & Value

  ' open recordset.

  rs.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly

  ' concatenate the field.

  Do While Not rs.EOF

    If Not IsNull(rs!Fld) Then

      vFld = vFld & ", " & rs!Fld

    End If

    rs.MoveNext

  Loop

  ' remove leading comma and space.

  vFld = Mid(vFld, 2)

  Set cnn = Nothing

  Set rs = Nothing

  ' return concatenated string.

  Conc = vFld

End Function

Existira alguna forma mas corta y rapida de hacer lo que pretendo?

Saludos

DS

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Juntar registros en un solo campo.

Publicado por Enrique Heliodoro (1664 intervenciones) el 03/05/2016 02:07:37

No entiendo la aplicación que intentas con ese código que (parece) que no has analizado.

En teoría a esa función se le pasan una serie de parámetros y devuelve los elementos que coincidan con la condición (uno de los parámetros) en una única línea y separados por coma
(posiblemente en el sitio en que lo localizaste exista una descripción de su uso o aplicación mas extensa)

En principio yo lo haría con DAO (es el optimo en Access) y lo planificaría así:

Genero una consulta que devuelva a ese conjunto de datos, ordenados (en este caso) por código

Esa consulta seria el origen de datos del recordset (así entrarían todos y no uno solo como en el código mostrado).

Después se recorrería el recordset has su final 'recordando' el código
.- si en la línea siguiente se repite lo concateno
.- si es diferente inicio una nueva línea y memorizo el nuevo código (para compararlo con el siguiente).....

He hablado de 'líneas' porque desconociendo el destino real es lo mas socorrido, pero nada impide que (bien con DAO o con una consulta de inserción) se generen registros en una tabla (algo que se debería definir como primer paso: el destino)

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Juntar registros en un solo campo.

Publicado por Dany (40 intervenciones) el 03/05/2016 21:57:45

Hola Enrique.

Como podria recordar el codigo anterior para ir lo concatenando si es que se repirte o con elsiguiente registro?

Estoy con este RecordSet:

ReDim MiSQLDel As String

Dim rst As DAO.Recordset, i As Variant, Actual As String

Dim db As DAO.Database

Dim Cambio_i_grupo As Long

With DoCmd

.SetWarnings False

    Set rst = CurrentDb.OpenRecordset("SELECT CrossT.CODIGO, CrossT.SECTOR, CrossT.TODOS FROM CrossT ORDER BY CrossT.CODIGO, CrossT.SECTOR;")

   End With

If rst.RecordCount = 0 Then Exit Function

With rst

.MoveLast

.MoveFirst

Do Until .EOF

    'i = i + 1

    If ![CODIGO] <> Actual Then i = 1: Actual = ![CODIGO]

    .Edit

    ![TODOS] = ![SECTOR] & ", " & ![SECTOR]

    .Update

    .MoveNext

    Loop

End With

rst.Close

Set rst = Nothing

Lo que estoy concatenando es el mismo Sector no he podido aun rcordar el codigo anterior y concatenarlo.

Saludos

DS

Valora esta respuesta

Comentar

Juntar registros en un solo campo.

Publicado por Enrique Heliodoro (1664 intervenciones) el 04/05/2016 01:33:59

Antes de iniciar el bucle (tras el 'meneo de refresco que se le hace al recordset) en teoría estaríamos en el PRIMER registro de ese conjunto, es el momento optimo para tomar la referencia inicial (el código referente):

.....
.MoveLast
.MoveFirst
Actual = !codigo
Do Until .EOF
.....

Si razonas un poco lo que haces, veras que en la practica no haces nada, sin embargo si cambias la variable 'i' (que no pinta nada y menos en formato VARIANT para almacenar un digito) y en su lugar creas una de texto para ir CONCATENANDO los diversos valores encontrados, verías el final del túnel.

Un supuesto:

Public Function xxx()

Dim rst As DAO.Recordset, ConTodos As String, Actual As String

Set rst = CurrentDb.OpenRecordset("SELECT CODIGO, SECTOR, TODOS FROM CrossT ORDER BY CODIGO, SECTOR")

If rst.RecordCount = 0 Then Exit Function

With rst

.MoveLast

.MoveFirst

Actual = !codigo

Do Until .EOF

    If ![codigo] <> Actual Then

       'aqui tendriamos en 'ConTodos' todos los sectores asociados a ese codigo ¿que hacemos con esa cadena de texto?

       'Propongo actualizar la tabla destino, tenemos un codigo (en 'actual') y sus sectores asociados (en 'contodos')

       'reiniciamos variables para obtener un nuevo subconjunto

       Actual = ![codigo]: ConTodos = ""

       End if

    If ConTodos <> "" Then ConTodos = ConTodos & ", "

    ConTodos = ConTodos & !sector

    .MoveNext

    Loop

.Close

End With

Set rst = Nothing

End Function

Con tu método no concatenas nada (repites el código actual dos veces y punto) y en el mejor de los casos de haber mas de un sector para el mismo código, al primero le meterías a si mismo (uno), al siguiente dos (concatenarías con el anterior), y al siguiente tres, ... así hasta finalizar ese subconjunto (y no creo que sea eso lo que se desea)

Si se dispusiera de una tabla ya 'simplificada' (un único código y un campo vacío para los sectores), una simple consulta de actualización llenaría ese campo vacío y si fuera de inserción, añadiría el código y el subconjunto de sectores concatenado.

Valora esta respuesta

Comentar

Juntar registros en un solo campo.

Publicado por Dany (40 intervenciones) el 19/05/2016 23:26:10

Gracias Enrique.

El codigo funciona bien, solo un problema el primer registro no me lo actualiza. Es decir se desfasa un registro hacia abajo el Sector del registro 1 me lo actualiza en el registro 2 el 3 en el 4 y asi sucecivamente. El primer sector me lo deja en blanco y el ultimo me lo actualiza con el penultimo registro algo asi como lo muestra la imagen o el archive adjunto:

Archivo

Saludos

DS

Archivo.zip(10,5 KB)

Valora esta respuesta

Comentar

Juntar registros en un solo campo.

Publicado por Enrique Heliodoro (1664 intervenciones) el 20/05/2016 01:04:13

Lo que se actualice dependerá de la parte que esta comentada y que (yo al menos) desconozco como has resuelto.

No se que sentido tiene el guardar ese dato en todos los registros, lo correcto seria crear ese resumen en tiempo real cuando se precisase (para empezar seria as fiel).

De todas formas si se desea que ese resultado se guarde en todos los registros habría que efectuar algunos cambios, el primero consistiría en abrir esa tabla en modo de lectura (permitiría que de forma independiente se pudiese actualizar) y la actualización consistiría en una SQL de actualización de todos los registros implicados (esto es: aquellos cuyo código coincidiese con el valor de 'Actual' y antes de cambiarle el valor).

Asumo que el problema que tienes es porque no has efectuado un 'paso a paso' y cuando recorres el bucle (al llegar al cambio de código)utilizas el valor que hay en '!codigo' sin apercibirte que ese 'es el primero de los siguientes'

El conjunto que acabas de concatenar esta (aun) en la variable 'ConTodos' y se corresponden con el valor de código que esta en 'Actual'

Valora esta respuesta

Comentar

Juntar registros en un solo campo.

Publicado por Esteban (1 intervención) el 03/05/2016 16:17:30

Hola,

Para que quieres concatenar los registros de esa forma?

Porque en una tabla es inconveniente hacer eso, sopongamos que tienes muchos codigos, un campo de una tabla tiene un limite maximo de carácteres.

Si me explicas un poco mejor que intentas construir te podría ayudar.

Valora esta respuesta

Comentar

Juntar registros en un solo campo.

Publicado por Dany (40 intervenciones) el 03/05/2016 16:55:59

Hola gracias por contestar.

Bueno el codigo se puede repetir varias veces por ello hago una consulta de datos agrupados para que me agrupe solo los codigos y los secotres diferentes y sobre esta consulta lo maximo que he visto que se repite el codigo son hasta 15 veces y el sector siempre son 4 o 6 digitos, que serian 90 digitos sin contar el separador "/" o "," y el campo en la tabla tiene capacidad hasta de 255 caracteres por lo que creo no habria problemas.

EDITO:

Los registros los necesito concatenar para que el usuario vea en un solo registro todos los sectores a los que aplica el codigo.

Esta es una imagen de la tabla original:

Tabla

Y esta es la consulta agrupada:

Gracias por la ayuda....!

Valora esta respuesta

Comentar

control de stock

Error al actualizar formulario