Buenas tardes, amigos para ver si alguien me puede dar una mano, tengo las siguientes 2 tablas en Access (son un ejemplo, la primera linea es el encabezado)

TABLA 01            
Articulo    Fecha    Campo_01    Campo_02
Articulo_01    01-jun    Valor_01    Valor_C01
Articulo_02    02-jun    Valor_02    Valor_C02
Articulo_03    03-jun    Valor_03    Valor_C03
Articulo_04    04-jun    Valor_04    Valor_C04
Articulo_01    15-may    Valor_05    Valor_C05
Articulo_02    15-may    Valor_06    Valor_C06
Articulo_03    15-may    Valor_07    Valor_C07
Articulo_04    15-may    Valor_08    Valor_C08

TABLA 02        
Articulo    Fecha2    Campo_Relacionado
Articulo_01    15-jun    Valor_18
Articulo_01    01-jun    Valor_01
Articulo_02    02-jun    Valor_02
Articulo_03    03-jun    Valor_03
Articulo_04    04-jun    Valor_04
Articulo_05    05-jun    Valor_05
Articulo_06    06-jun    Valor_06
Articulo_07    07-jun    Valor_07
Articulo_08    08-jun    Valor_08
Articulo_09    09-jun    Valor_09
Articulo_01    01-may    Valor_10
Articulo_02    02-may    Valor_11
Articulo_03    03-may    Valor_12
Articulo_04    04-may    Valor_13

Quiero hacer una consulta que me traiga los datos de la tabla 1 y los campos Fecha2 y Campo_Relacionado de la tabla 2 donde
Tabla_01.Articulo = Tabla_02.Articulo
Tabla_02.Fecha2 <= Tabla_01.Fecha
El resultado que quiero es el siguiente, pero no lo logro, me trae los datos duplicados de la tabla_01

Articulo    Fecha    Campo_01    Campo_02    Fecha2    Campo_Relacionado
Articulo_01    01-jun    Valor_01    Valor_C01    01-jun    Valor_01
Articulo_02    02-jun    Valor_02    Valor_C02    02-jun    Valor_02
Articulo_03    03-jun    Valor_03    Valor_C03    03-jun    Valor_03
Articulo_04    04-jun    Valor_04    Valor_C04    04-jun    Valor_04
Articulo_01    15-may    Valor_05    Valor_C05    01-may    Valor_10
Articulo_02    15-may    Valor_06    Valor_C06    02-may    Valor_11
Articulo_03    15-may    Valor_07    Valor_C07    03-may    Valor_12
Articulo_04    15-may    Valor_08    Valor_C08    04-may    Valor_13

 

Si alguno puede echarme una mano, gracias

anexo un archivo excel con las tablas por si alguno quiere hacer alguna prueba

Miprueba.xlsFetching info...

Hola:

Aunque la consulta está en el foro de Access, entiendo que quieres que la macro se ejecute desde Excel, si no es así, intetaría adaptar la macro a Access.

Creo que lo he resuelto, pero he sido incapaz de hacerlo solo con sentencias SQL, mi SQL, de no usarlo, está algo oxidado.

He hecho un mix entre SQL y VBA. El resultado se obtiene en la Hoja2.

A ver si es esto.

Dim cnn As Object, rs As Object, SQL As Variant

Dim Fecha As Date, Relacionado As Variant


Sub Consulta()

Application.ScreenUpdating = False

'-----------------------------

Set cnn = New ADODB.Connection

With cnn

   .Provider = "microsoft.jet.oledb.4.0"

   .ConnectionString = "data source=" & [COLOR=#0000cd][B]ThisWorkbook.Path & "\ayuda.mdb"[/B][/COLOR]

   .Open

End With

'--------------------------------------

Hoja2.Cells.ClearContents

Set rs = CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM [COLOR=#0000ff][B]TABLA_01 [/B][/COLOR]ORDER BY 1,2"

Set rs = cnn.Execute(SQL)

Hoja2.Range("A2").CopyFromRecordset rs

rs.Close

'--------------------------------------

Set rs = CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM [COLOR=#0000ff][B]TABLA_02 [/B][/COLOR]ORDER BY 1,2"

Set rs = cnn.Execute(SQL)

Hoja2.Range("G2").CopyFromRecordset rs

rs.Close

'---------------------------------------

Hoja2.Select

For x1 = 2 To Range("A" & Rows.Count).End(xlUp).Row

   x2 = 2

   Do

      Fecha = "31/12/2099"

      Relacionado = ""

      Do Until Range("G" & x2) > Range("A" & x1) Or _

               Range("G" & x2) = ""

         If Range("A" & x1) = Range("G" & x2) Then

            If Not CDate(Range("H" & x2)) > CDate(Range("B" & x1)) Then

               Fecha = CDate(Range("H" & x2))

               Relacionado = Range("I" & x2)

            End If

         End If

         x2 = x2 + 1

      Loop

      If Not Fecha = "31/12/2099" Then

         Range("E" & x1) = Fecha

         Range("F" & x1) = Relacionado

      End If

      Exit Do

   Loop

Next

'-----------------

Range("G:I").Clear

cnn.Close

Application.ScreenUpdating = True

End Sub

[/CODE]

Gracias Macro Antonio, lo coloque aquí porque la consulta es sobre una base de datos de access, aunque efectivamente se realiza desde Excel, por eso no sabía en cual foro preguntar y lo coloque aquí :tennis:

tu procedimiento efectivamente hace lo que quiero (de echo al final realice algo parecido), sin embargo la idea es hacerlo directamente con SQL si es posible ya que son mas de 100.000 registros a procesar, y realmente me quedo la inquietud de si es posible hacerlo o no con SQL, ya el trabajo como tal lo realice y NO requiero la solución para realizar mi trabajo, pero si me gustaría aprender por si mas adelante se presenta algún caso parecido

gracias

- - - - - Mensaje combinado - - - - -

Jejeje, logre hacer la consulta, dejo la consulta por si acaso (tal vez no es la mejor, pero funciona que es importante)

SELECT tbl01Final.* FROM (Select (TABLA_01.Articulo & FORMAT(TABLA_01.Fecha,"DDMMYYYY")) AS Filtro,

TABLA_01.*, TABLA_02.Fecha2 AS FechaFinal, TABLA_02.Campo_Relacionado from TABLA_01, Tabla_02

WHERE  Tabla_02.Articulo = Tabla_01.Articulo        

and Tabla_02.Fecha2 <= Tabla_01.Fecha 

order by Tabla_01.Articulo, Fecha Desc, Fecha2 DESC) tbl01Final,

(SELECT (tbl01.Articulo & FORMAT(tbl01.Fecha,"DDMMYYYY")) AS MiFiltro, Max(tbl01.Fecha2) AS FechaFiltro FROM 

(Select TABLA_01.Articulo, Tabla_01.Fecha, TABLA_02.Fecha2, TABLA_02.Campo_Relacionado from TABLA_01, Tabla_02

WHERE  Tabla_02.Articulo = Tabla_01.Articulo

and Tabla_02.Fecha2 <= Tabla_01.Fecha 

order by Tabla_01.Articulo, Fecha Desc, Fecha2 DESC) tbl01

GROUP BY (tbl01.Articulo & FORMAT(tbl01.Fecha,"DDMMYYYY"))) tblFiltro

WHERE tbl01Final.Filtro = tblFiltro.MiFiltro

AND tbl01Final.FechaFinal = tblFiltro.FechaFiltro  

ORDER BY tbl01Final.Articulo, tbl01Final.Fecha Desc 

[/CODE]

Gracias

Evidentemente tu SQL está bastante menos "oxidado" que el mío,....jajaja

Saludos, y me alegro que lo hayas solucionado.