Reports |
4.36 Stampare solo i record relativi alla settimana corrente |
Roberto |
(D) Come è possibile, di una tabella che contiene appuntamenti, stampare solo quelli della settimana in corso? (R) Se il campo di tipo Data/ora che contiene la data dell'appuntamento si chiama MiaData, a fronte dell'evento "Su apertura" del report che deve produrre la stampa segli appuntamenti della settimana in corso genera il seguente codice VBA: Private Sub Report_Open(Cancel As Integer) Dim Inizio As Date Dim Fine As Date For Inizio = Date To Date - 7 Step -1 ' Se luned́ If WeekDay(Inizio) = 2 Then Exit For Next Inizio For Fine = Date To Date + 7 'Se domenica If WeekDay(Fine) = 1 Then Exit For Next Fine Me.Filter = "MiaData >= #" & Format(Inizio, "mm/dd/yyyy") _ & "# And MiaData <= #" & Format(Fine, "mm/dd/yyyy") & "#" Me.FilterOn = True End Sub |