Access - concatenar registros iguales en otra celda accesss_sql

   
Vista:

concatenar registros iguales en otra celda accesss_sql

Publicado por forisco (1 intervención) el 09/05/2015 10:23:50
Tengo una tabla llamada MOTIVOS
IdExpediente NombreMotivo

DD-A-100028 Factura CIF Com no coincide

DD-A-100054 Boletín no coincide

DD-A-100054 Acta documento no coincide

DD-A-100067 Factura CIF Com no coincide

DD-A-100067 Acta documento no coincide

DD-A-100082 Factura Cuantía no coincide

DD-A-100082 Boletín documento no coincide

DD-A-10524 Acta documento no coincide

DD-A-10524 Boletín documento no coincide

DD-A-10524 Factura CIF Com no coincide

Necesito que quede una columna con los expedientes y otra con los motivos concatenados en una celda.

Idexpediente Nombremotivo
DD-A-100028 Factura CIF Com no coincide

DD-A-100054 Boletín no coincide - Acta documento no coincide

DD-A-100067 Factura CIF Com no coincide - Acta documento no coincide

DD-A-100082 Factura Cuantía no coincide - Boletín documento no coincide

DD-A-10524 Acta documento no coincide - Boletín documento no coincide - Factura CIF Com no coincide

Seguramente sea necesario ejecutar una macro en Vb pero no se como hacerlo

Saludos y gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

concatenar registros iguales en otra celda accesss_sql

Publicado por jchiguer j.chiguer.v@hotmail.com (65 intervenciones) el 13/05/2015 21:42:13
En un formulario pon un boton que al hacer clic ejecute el siguiete codigo, supongo que moveras esos datos a otro campo por ejemplo datosjuntos

ESTO SERIA TODOCSALUDOS Y SI TE SIRVIÓ VALORALO


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim dbs As Database
Dim mitabla As Recordset
Dim datos1 as variant
Dim datos2  as variant
 
Set dbs = CurrentDb ' hacer referencia ala db activa
 Set mitabla = dbs.OpenRecordset("SELECT * FROM motivos")
mitabla.MoveFirst
Do
With RstControl
   .Edit
   dato1  = !IdExpediente
   dato2  = !NombreMotivo
!datosjuntos = dato1& " "& dato2
   .Update
  End With
 
Loop Until mitabla.EOF
MsgBox "Proceso Concluido.. habra la tabla de control de recibos para capturar los recibos nuevos"
mitabla.Close
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar