Beregnet felt i rapport på dele af data

I detailsektionen kunne du oprette to (skjulte) tekstbokse, Total19, Total20, med ControlSource:

=IIf(Day([Dato])<=19;[Total];0)
=IIf(Day([Dato])>=20;[Total];0)

og så have to tekstbokse til summerne:

=Sum([Total19])
=Sum([Total20])

Hvordan de skal skjules, hvis den 19. ikke er med i perioden, må kunne styres af, hvorledes du specificerer perioden.

Hej Gustav

Jeg var åbenbart nødt til at skrive de 2 IIf sætninger i forespørgslen der ligger til grund for rapporten. Jeg kunne ikke få lov til at lave beregning i Rapportfoden på de beregnede felter i detaljesektionen selvom de var beregnet rigtigt. Jeg fatter ikke en meter af hvorfor.
Jeg specificerer perioden med År-Ugenummer f.eks. 2022-42.

Mvh.
Bjørn

Tillægsspørgsmål til ovenstående: Jeg har de 2 tekstbokse ved navn Sum19 og Sum20. Hvordan får jeg dem gjort usynlige hvis den 19, IKKE optræder i den aktuelle uge. F.eks. skal felterne ikke kunne ses hvis det er uge 2023-01 eller 2023-02. Men uge 2023-03 (16/1 til 22/1) indeholder den 19. og de skal derfor vises.

Mvh.
Bjørn

Først må du finde datoerne for ugen. Den første dag, mandag, kan findes med min funktion DateYearWeek:

' Returns the date of Monday for the ISO 8601 week of IsoYear and Week.
' Optionally, returns the date of any other weekday of that week.
'
' 2017-05-03. Gustav Brock, Cactus Data ApS, CPH.
'
Public Function DateYearWeek( _
    ByVal IsoWeek As Integer, _
    Optional ByVal IsoYear As Integer, _
    Optional ByVal DayOfWeek As VbDayOfWeek = VbDayOfWeek.vbMonday) _
    As Date
    
    Dim WeekDate    As Date
    Dim ResultDate  As Date
    
    If IsoYear = 0 Then
        IsoYear = Year(Date)
    End If
    
    ' Validate parameters.
    If Not IsWeekday(DayOfWeek) Then
        ' Don't accept invalid values for DayOfWeek.
        Err.Raise DtError.dtInvalidProcedureCallOrArgument
        Exit Function
    End If
    If Not IsWeek(IsoWeek, IsoYear) Then
        ' A valid week number must be passed.
        Err.Raise DtError.dtInvalidProcedureCallOrArgument
        Exit Function
    End If
    
    WeekDate = DateAdd(IntervalSetting(dtWeek), IsoWeek - 1, DateFirstWeekYear(IsoYear))
    ResultDate = DateThisWeekPrimo(WeekDate, DayOfWeek)
    
    DateYearWeek = ResultDate

End Function

Fuld kode i modul DateFind.bas, som findes i mit bibliotek:

https://github.com/GustavBrock/VBA.Date

Hvis dagen for denne dato er mellem 9 og 16 inklusive, skal tekstboksene skjules.

Det kan du formentlig gøre under hændelsen VedFormattering eller VedUdskrivning ved at sætte en variabel, Visible:

Visible = True hvis de skal vises, False hvis ikke,
og så styre visning af tekstboksene:

Me!Sum19.Visible = Visible
Me!Sum20.Visible = Visible

Takker. Ser lige på det i weekenden.

Hej igen.

Jeg fik lavet en betinget formatering på sumfelterne i rapportfoden. Så nu kan de kun ses hvis både Total19 og Total20 >0.

Tak for hjælpen.

Mvh.
Bjørn