Transfer Dates To Each Text Box

[DMT Dave]

Hi Guy's hope you are all good, can anyone advise on how to get the correct results individually into each text box on this one please ?

I guess it's like a calendar but more for booking usage



so i have the following code and results, just need to somehow add the 1st record into txt1, 2nd record into txt2 etc etc until all records have filled to txt31 (when 31 days) or filled to txt30 when 30 days in selected month

dtStart = DMin("FullDate", "tblCalendar", "[DateYear] = " & intYear & " And [DateMonth] = " & intMonth)       
dtEnd = DMax("FullDate", "tblCalendar", "[DateYear] = " & intYear & " And [DateMonth] = " & intMonth)


        i = 1
        d = dtStart
        Do While dtStart <= dtEnd
                
                strDays = Format(d, "dddd") & vbTab & Format(d, "d") & vbTab & Format(d, "mmmm") & vbTab & intYear
                
                d = DateAdd("d", 1, d)
                
                Debug.Print "Dates: " & strDays
                
                If d > dtEnd Then
                    Exit Do
                End If
                i = i + 1
        Loop

Immediate window

Dates: Tuesday  1   July    2025
Dates: Wednesday    2   July    2025
Dates: Thursday 3   July    2025
Dates: Friday   4   July    2025
Dates: Saturday 5   July    2025
Dates: Sunday   6   July    2025
Dates: Monday   7   July    2025
Dates: Tuesday  8   July    2025
Dates: Wednesday    9   July    2025
Dates: Thursday 10  July    2025
Dates: Friday   11  July    2025
Dates: Saturday 12  July    2025
Dates: Sunday   13  July    2025
Dates: Monday   14  July    2025
Dates: Tuesday  15  July    2025
Dates: Wednesday    16  July    2025
Dates: Thursday 17  July    2025
Dates: Friday   18  July    2025
Dates: Saturday 19  July    2025
Dates: Sunday   20  July    2025
Dates: Monday   21  July    2025
Dates: Tuesday  22  July    2025
Dates: Wednesday    23  July    2025
Dates: Thursday 24  July    2025
Dates: Friday   25  July    2025
Dates: Saturday 26  July    2025
Dates: Sunday   27  July    2025
Dates: Monday   28  July    2025
Dates: Tuesday  29  July    2025
Dates: Wednesday    30  July    2025
Dates: Thursday 31  July    2025

[Welshgasman]

Name the controls txtDatex where x is 1 to 31, and then use that count of i to select the correct control.

[DMT Dave]

Hi WGM, hope you are ok and coping with your type 2, my type 1 is up and down on the freestyle sensor, it's either sugar sweet to boost or nova rapid pen drop levels

So a quick question, when you say name the controls, do mean 31 text boxes ? thinking each text box has to be uniquely named....

Thanks again

[Welshgasman]

Yes, that is the way I have seen it done, so just the index changes. Makes coding easier.

Google Peter Hibbs Calendar.

[Micron]

just need to somehow add the 1st record into txt1, 2nd record into txt2 etc etc until all records have filled to txt31 (when 31 days) or filled to txt30 when 30 days in selected month

If you're trying to slot up to 31 values into controls that represent dates like on a real calendar, you need 42, not 31? If the 1st falls on a Saturday, your calendar would have 6 rows of 7 days = 42 textboxes.

[Welshgasman]

Sorry, I was thinking of Peter Hibbs Holiday Planner, but logic is the same.

[DMT Dave]

Ahh thanks micron, i have had a quick look at Peter Hibbs as per WGM, i was generating a booking form but suppose it's like a calendar as such, but yes good point, many months have an over lap of days etc.........

Thanks for input

[June7]

Or 28/29 days for February.

And yes, if you want a monthly calendar display, wouldn't you need 35 textboxes - 5 rows of 7 days each (Sun - Sat)? At least, that's what I see in calendars.

Then code needs to calculate which textbox to start with and it won't always be tbxDay1. This means starting index of loop would be variable.

[Micron]

wouldn't you need 35 textboxes - 5 rows of 7 days each (Sun - Sat)? At least, that's what I see in calendars.

Look at June 2024. A printed calendar will split the 29th and 30th (for that date) into one "cell" above the other in the 5th row. If you're doing this in a calendar type of form you really can't do that - at least not easily. So you end up with 6 rows. If a 31 day month starts on Friday, you only have room in the last row for 30 days, so again, you need 6 rows. While the first 5 in row one will be empty in that case, they are needed for other months, so in the grand scheme, 7 in a row, 6 rows required - 42 controls.

I've done this before.

[June7]

Ah, good point. I see Mar, Aug, Nov in 2025 like that. As you said, "not easily" but 5 rows could be dealt with or just go with 6.

[Micron]

Design kinda looks like this


Ignore any numbers (labels at top right corner of textboxes, where the input values go). Code determines the start/end points and hides what doesn't apply for a given month/year. Sometimes an entire top row isn't visible, sometimes the bottom, sometimes partial rows. Each textbox and label name ends with a number (0 based, 0 - 41). The arrow command buttons move 1 month or year up/down, the combos drop a list of months/years.

[moke123]

Here's an old app that I use to generate the textboxes and labels for calendars and a couple other things,
Like Micron, I've done this before. Just generate the textboxes and cut and paste into your project.

[DMT Dave]

Thank you guy,s between you all, i will inspect code etc and try pick up your methods... kindest