Solved A subreport does not filter by date (1 Viewer)

zelarra821

Registered User.
Local time
Today, 23:16
Joined
Jan 14, 2019
Messages
522
Hi there.

I have a dialog to choose the date for which I want it to show me a list of the invoices for that period and a summary in a subreport in which it breaks down the VAT.

What I do is filter by date both the main report and the subreport. The subreport filters it in a hidden way. However, it does not get the result for all the dates.

You can try with the date August 21, 2020 (8-21-20). On that date, you should get 21% VAT nothing more, and both (10 and 21) come out.

I leave you the database.

What am I doing wrong? Could you do it another way?
 

Attachments

  • Database.accdb
    1.2 MB · Views: 331

CJ_London

Super Moderator
Staff member
Local time
Today, 23:16
Joined
Feb 19, 2013
Messages
14,358
looks to me like you are using a date format of dd-mm-yyyy. You need to use mm/dd/yyyy or yyyy-mm-fdd when referencing a date in sql. You also need to surround with the # character so sql knows that what is between is a date
 

zelarra821

Registered User.
Local time
Today, 23:16
Joined
Jan 14, 2019
Messages
522
Can not be. I am using a function from @MajP, which works for the main report, how is it not going to work for the subreport?
 

MajP

You've got your good things, and you've got mine.
Local time
Today, 18:16
Joined
May 21, 2018
Messages
6,353
1. ALWAYS put option explicit (require declaration) in all modules.
This code would never ever work and you would never know why
Code:
Public Function ElFiltroFecha(ElForm As Form, ElCampo As String, ElInforme As String, Optional Subinforme As String, _
Optional Recibidas As Boolean) As String
Dim MiArgumento As String
 
    If Not IsNull(ElForm.txtDesdeF) And Not IsNull(ElForm.txtHastaF) Then
 
        ElFiltroFecha = GetBetweenFilter(ElForm.txtDesdeF, ElForm.txtHastaF, ElCampo)
 
        MiArgumento = "Del " & Format(ElForm.txtDesdeF, "dd-mm-yy") & " hasta el " & _
                        Format(ElForm.txtHastaF, "dd-mm-yy")
                     
        Debug.Print "ElFiltroFech " & ElFiltroFecha
        If Subinforme <> "" Then
            DoCmd.OpenReport Subinforme, acViewDesign, , ElFitroFecha, acHidden
            DoCmd.Close acReport, Subinforme, acSaveYes
        End If
     
        DoCmd.OpenReport ElInforme, acViewPreview, , ElFiltroFecha, , MiArgumento
        DoCmd.Close acForm, ElForm.Name
    Else
        MsgBox "Es necesario introducir las dos fechas.", vbInformation
    End If
End Function
ElfiltroFecha vs ElFitroFecha

2. This is a horrible idea
" DoCmd.OpenReport Subinforme, acViewDesign, , ElFitroFecha, acHidden"
NEVER EVER EVER open to design view at runtime. Never will work in a compiled program.
Pass the filter to the Main form in open args. If you need two sets of open args then pass the arguments in seperated by a semicolon
miargumento & "; " & ElfiltroFecha

in the main forms on open split these
Me.caption = Split(me.openargs)(0)
me.subformName.form.filter = split(me.openargs)(1)
 

Users who are viewing this thread

Top Bottom