Como puedo comparar fechas entre distintas tablas?

Otra forma de hacerlo, más sencilla si no dominas código VBA y recordsets, que sería usar la función DLookUp(), como sugiero en éstas respuestas:

Tabla con rangos e importes para ser buscados con una consulta

Ubicar una cifra dentro de un rango de números ACCESS

La sintaxis de la función con algúnos ejemplos la puedes encontrar aquí: https://support.office.com/es-es/article/DB%C3%BAsq-funci%C3%B3n-8896cb03-e31f-45d1-86db-bed10dca5937  o aquí: https://support.microsoft.com/es-es/kb/285866 

Un saludo.

Me gusta como funciona el DLookup, es bastante sencillo, pero no me funciona, seguramente tenga un problema en la condición, la paso por aquí a ver si podéis ver el error.

Quiero que la fecha seleccionada esté dentro de ese rango (DiaIniciSetmanada y DiaFiSetmanada).

Public Function PrecioDia(Importe As Currency) As Currency

PrecioDia=Nz(DLookUp("preuDia","DadesEmpleat","DataInici>=Forms![3-2-Total]![DiaIniciSetmanada] & " AND DataInici <" & Forms![3-2-Total]![DiaFiSetmanada]),0)

End Function

Gracias y saludos

A ver así:

Public Function PrecioDia(Importe As Currency) As Currency

PrecioDia=Nz(DLookUp("preuDia","DadesEmpleat","DataInici>=#" & Forms![3-2-Total]![DiaIniciSetmanada] & "# AND DataFinal <#" & Forms![3-2-Total]![DiaFiSetmanada] & "#"),0)

End Function

Además, creo que tenías un error, porque estás poniendo como criterios que DataInici sea menor u mayor o igual que al fecha del formulario, y eso no te devolverá ningún valor...

Hola buenos días, te explico, si hago esto, dentro del código del formulario me funciona, pero solo al hacer click en un botón, que no es lo que quiero, lo que quiero es que lo haga cuando carga la página.

He visto en los enlaces que me has indicado antes, hacer con una función tal que así, y en el textbox ponerle de origen lo siguiente: =PrecioDia([PreuDia])

Public Function PrecioDia(PreuDia As Currency) As Currency

PrecioDia = Nz(DLookup("preuDia", "DadesEmpleat", "DataInici>=#" & Forms![3-2-Total]![DiaIniciSetmanada] & "# AND DataFinal <#" & Forms![3-2-Total]![DiaFiSetmanada] & "#"), 0)

End Function

Al ejecutarlo en el textbox me sale lo siguiente #error.

Creo que el problema esta al definir la función, que no se que significa currency, ni lo que le envío a la función.

Un saludo y gracias.

Se me ha olvidado también comentar, que también quiero que filtre por IdEmpleat(campo tabla DadesEmpleat) con Empleats.IdEmpleat (esta en el mismo formulario(3-2-Total)).

Saludos y gracias de nuevo

Akai: Supongo que habrá otras formas de hacerlo, pero yo te sugiero el uso de un Recordset, para extraer los valores una vez localizado el Rango, donde está tu Fecha de sondeo.

El código que continua Presume que:

1.- Tienes un Formulrio con Un TextBox donde introduces la Fecha que se llame TxtFecha

2.- Tu Tabla se donde buscas se llama TuTablaDatos

Entonces, en el Evento AfterUpdate de ese RexTBox le pones>>

Private Sub TxtFecha_AfterUpdate()
Dim StrSQl As String
Dim Rst As DAO.Recordset
Dim FechaBusco As Date,PrimeraFecha As Date, SegundaFecha As date
FechaBusco = “#" & Format(Me.TxtFecha, "mm/dd/yyyy") & "#"
StrSQL = “SELECT * FROM TuTablaDatos;”
Set Rst = CurrentDB.OpenRecordset(StrSQL, dbopenSnapShot)
If Not Rst.EOF And Not Rst.BOF Then
    Rst.MoveLast
    Rst.MoveFirst
    Do While Not Rst.EOF
        PrimeraFecha = “#” & Format(Nz(Rst!DataInici,#1/1/1900#),”mm/dd/yyyy”) & “#”
        SegundaFecha = “#” & Format(Nz(Rst!DataFinal,#12/31/9999#)”mm/dd/yyyy”) & “#”
        If FechaBusco  >= PrimeraFecha  AND FechaBusco <=SegundaFecha Then
            ‘Aquí capturas los datos
             'Me.TBoxElqueSea = Rst!Setmanada
              '.........etc
            Exit Do
        End If
        Rst.MoveNext
        DoEvents
    Loop
Else
    MsgBox  “Este Recordset no tene Registros”,vbCritical,”NO HAY DATOS”
End If
End Sub

Lo he ido haciendo sin probarlo pero esa es la idea. Saludos >> Jacinto

Akai: Antes del End Sub no te olvides de cerrar el Recordset con

Rst.Close

Set Rst = Nothing

Ya me contarás. Saldos >> Jacinto

Akai: Situvieras dificultades, porque el tratamiento de afechas no fuera el adecuado sustituyes el Código por este otro.

Private Sub TxtFecha_AfterUpdate()
Dim StrSQl As String
Dim Rst As DAO.Recordset
Dim FechaBusco As Date,PrimeraFecha As Date, SegundaFecha As date
FechaBusco = FormatDateTime(Me.TxtFecha, vbShortDate)
StrSQL = “SELECT * FROM TuTablaDatos;”
Set Rst = CurrentDB.OpenRecordset(StrSQL, dbopenSnapShot)
If Not Rst.EOF And Not Rst.BOF Then
    Rst.MoveLast
    Rst.MoveFirst
    Do While Not Rst.EOF
        PrimeraFecha = Format(Nz(Rst!DataInici,#1/1/1900#),vbShortDate)
        SegundaFecha = Format(Nz(Rst!DataFinal,#12/31/9999#),vbShortDate)
        If FechaBusco  >= PrimeraFecha  AND FechaBusco <=SegundaFecha Then
            ‘Aquí capturas los datos
             'Me.TBoxElqueSea = Rst!Setmanada
              '.........etc
            Exit Do
        End If
        Rst.MoveNext
        DoEvents
    Loop
Else
    MsgBox  “Este Recordset no tene Registros”,vbCritical,”NO HAY DATOS”
End If
End Sub

Saludos >> jacinto

Excelente código, cuando llegue al curro lo probaré, se me olvido comentar, que cada empleado tiene un IdEmpleado, así que haría falta hacer el filtraje con la fecha (como has explicado) y además por el idEmpleado.

Saludos

Akai: Definitivamente si tienes que filtrar por el IdEmpleado y se llama así tanto en la Tabla como en el Formulario, has de filtrar en la Consulta, de modo que el código queda así.

Los de arriba los fuí escribiendo sobre la marcha y con prisa porque ya era tarde y las prisas suelen muy amigas de los errores.

Private Sub TxtFecha_AfterUpdate()
Dim StrSQl As String
Dim Rst As DAO.Recordset
Dim FechaBusco As Date,PrimeraFecha As Date, SegundaFecha As date
FechaBusco = FormatDateTime(Me.TxtFecha, vbShortDate)
StrSQL = “SELECT * FROM TuTablaDatos WHERE IdEmpleado = " & Me.IdEmpleado
Set Rst = CurrentDB.OpenRecordset(StrSQL, dbopenSnapShot)
If Not Rst.EOF And Not Rst.BOF Then
    Rst.MoveLast
    Rst.MoveFirst
    Do While Not Rst.EOF
        PrimeraFecha = FormatDateTime(Nz(Rst!DataInici,#1/1/1900#),vbShortDate)
        SegundaFecha = FormatDateTime(Nz(Rst!DataFinal,#12/31/9999#),vbShortDate)
        If FechaBusco  >= PrimeraFecha  AND FechaBusco <=SegundaFecha Then
            ‘Aquí capturas los datos
             'Me.TBoxElqueSea = Rst!Setmanada
              '.........etc
            Exit Do
        End If
        Rst.MoveNext
        DoEvents
    Loop
Else
    MsgBox  “Este Recordset no tene Registros”,vbCritical,”NO HAY DATOS”
End If
Rst.Close
Set Rst = Nothing
End Sub

Espero que a la tercera vaya la vencida. Saludos >> Jacinto