factureren

[RSpan]

Beste forumleden

Ik loop tegen een probleem aan met factureren.
De dbase heeft een tabel rooster, hier wordt bijgehouden wanneer iemand gewerkt heeft en het aantal uren.
De volgende gegevens worden ingevoerd:

Velden gegevens bv
Naam Cliënt, Petersen (gegevens worden uit een tabel gehaald)
Naam Freelancer, Bob (gegevens worden uit een tabel gehaald)
Datum, 12-12-2009
Uren, 8
Product, Vp (gegevens worden uit een tabel gehaald)
Organisatie, TSP (gegevens worden uit een tabel gehaald)
Week, 51-52 (gegevens worden uit een tabel gehaald)
Km, 30
Feestdag. Nee

De factuur wordt per twee weken gemaakt.
Middels een formulier met comboboxen word er dan een factuur gemaakt.
Je maakt de keuze organisatie, dan kies je de periode week 51-52 en je klikt op de print knop.
De volgende code stuurt dan de informatie naar een query en vervolgens wordt de factuur geprint.

'factuur client


Private Sub cmdReset_Click()
    Me.cboSelectName = Null
    Me.cboSelectWeek = Null
   
End Sub

Private Sub cmdGenerateReport_Click()
    On Error GoTo Err_cmdGenerateReport_Click

    Dim stDocName As String
    Dim stWhere As String
   
        If IsNull(Me.cboSelectName) Then
            MsgBox "U moet nog een naam selecteren"
         Else
          If IsNull(Me.cboSelectWeek) Or IsNull(Me.cboSelectName) Then
            MsgBox "U moet nog een weeknr selecteren"
           Else
            If Not IsNull(Me.cboSelectName) Then
                stWhere = "[OrganisatieID]=" & Me.cboSelectName & " And "
                blnTrim = True
            End If
            
              If Not IsNull(Me.cboSelectWeek) Then
                    stWhere = stWhere & "[WeekID]=" & Me.cboSelectWeek & " And "
                    blnTrim = True
             End If

              If blnTrim Then
                    stWhere = Left(stWhere, Len(stWhere) - 5)
              End If
                
                    DoCmd.OpenForm "FrmBetalingen"
                    
                    stDocName = "rptfactOrg"
                    DoCmd.OpenReport stDocName, acPreview, , stWhere
                    DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                    DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, "", False
                    DoCmd.Close
                          
                    stDocName = "rptfactFrl"
                    DoCmd.OpenReport stDocName, acPreview, , stWhere
                    DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                    DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, "", False
                    DoCmd.Close
                
                    stDocName = "rptWkUitbFrl"
                    DoCmd.OpenReport stDocName, acPreview, , stWhere
                    DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                    DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, "", False
                    DoCmd.Close
                    
                    stDocName = "rptVbladOrg"
                    DoCmd.OpenReport stDocName, acPreview, , stWhere
                    DoCmd.OpenReport stDocName, acViewNormal, , stWhere
                    DoCmd.Close
                
            End If
              
          End If
    
Exit_cmdGenerateReport_Click:
Exit Sub

Err_cmdGenerateReport_Click:
MsgBox "Geannuleerd of geen gegevens om te printen"
Resume Exit_cmdGenerateReport_Click

End Sub

In de query wordt ook nog gefilterd op jaar, er moet natuurlijk alleen week 51-52 van het actuele jaar geprint worden en niet van de jaren ervoor.

Tot zover geen punt dit alles werkt prima, maar nu loop ik tegen het volgende aan:
De laatste week van het jaar eindigt meestal niet keurig op zondag maar ergens halverwege de week, bv 2009 eindigde op donderdag, maar de factuur moet eindigen op zondag dus in dit geval op 3-1-2010.
Je begrijpt het waarschijnlijk al die laatste dagen worden niet meegenomen in de factuurberekening.
Ik heb geen idee hoe ik dit nu op een dusdanige manier kan inrichten opdat die laatste dagen van deze gedeelde week wel worden meegenomen.

Een heel lange uitleg maar ik hoop dat mijn probleem zo duidelijk is.
Iemand enige suggestie??

Mvg
René