Subforms

create 42 Subforms with similar recordsource to the Listbox.

I have done this, and incorporated color coding and other features.

Simple as that? Can you give an example?

I will when I get to my other computer tomorrow evening.

OK, thx already.

List Box with Format and Color?

Continuous forms, list box works, but i want to use subforms

you need Subforms to do conditional formatting.

I did this last year. The subforms had no Recordsource.
I wrote the following sub to add the Recordsource to each subform dynamically.

Private Sub SetDay()

    Dim mySQL As String, whereStr As String, S As String, X As Long
    
    mySQL = "SELECT * FROM AppointmentQ WHERE "
    
    For X = 1 To 42
        S = "Day" & X
        whereStr = "DateTime>=#" & StartDate + (X - 1) & "# AND DateTime<#" & StartDate + X & "#"
        Me.Controls(S).Form.RecordSource = mySQL & whereStr
    Next
    
End Sub

I called this sub in the Load event of the Calendar Form.

Kevin,

I love this approach. it will make life easier.  I wish I knew how to this before a coded the 42 subforms.

So you can use the same subform everytime? -> i make a form as a Continuous form and copy it 42 times in the mainform and name them day1, day2 like the listboxes? (excuse me for my English, I'm Dutch (Flemish) speaking)

This thread shows some of my screenshots for my calendar:
    Appointments Calendar

The last image shows the use of Subforms instead of Listboxes.

That's how i want it to be.

I'm doing something wrong with the where part.

Please share what you have. We can't troubleshoot your problem if we can't see it. Saying that though, check your spacing. Missing just one space is enough to make the code not work.

My apologies for the late reply. But I was away on vacation. I got it working. So thanks to all for the help