Denis : Benefits of Loops
Gail : Table with expiry dates - if prior to today the colour changes.  Works with code.
Irma : Birth dates - input fileds for query on form - criteria shown on report.  Change AND to string within formula.
Irma : Report - group Header showing specific data : Ran out of time.
Jason : Flexible date range in input form.
Richard : Page header not printing
Richard : Inserting page number on every page.

Private Sub Date1_AfterUpdate()
    Form_DateColour 'Me!Date1
End Sub

Private Sub Form_DateColour() '(Ctrl As Control)

    With Me!Date1
        If Nz(Me!Date1, "") = "" Then
            .BackColor = vbWhite
            .ForeColor = vbBlack
        ElseIf Me!Date1 < Date Then
            .BackColor = 255
            .ForeColor = 0
        Else
            .BackColor = 0
            .ForeColor = 255
        End If
    End With

End Sub

Private Sub Form_Open(Cancel As Integer)
    Form_DateColour 'Me!Date1
End Sub