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

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.