Making a calendar

[UT227]

I’m trying to build a calendar. On my form, I have some unbound fields: [StartDate], [cboMonth], [txtYear]. [cboMonth] is a drop down of the months. The fields [cboMonth] and [txtYear] only serve to let the user select which month he wants to look at. I have a code that sets the field [StartDate] to be the first Sunday on the calendar. It works great. I’m trying to get the dates that are not part of that month to grey out. This is where I’m having problems. The dates are labeled Date1, Date2….through Date42. The list boxes under the date fields are labeled Day1, Day2….through Day42. I used this code:


Private Sub GreyOutDates()
Dim X As Integer
Dim S1 As String, S2 As String
For X = 1 To 42
S1 = "Date" & X
S2 = "Day" & X
If Month(S1) <> Me.cboMonth Then
Forms!frmSchShiftCalendar(S2).BackColor = &HD8D8D8
End If
Next X
EndSub
It goes to the debugger and the “if” statement is wrong. I’m having a hard time getting this done.

[Minty]

Have a look at this rather than re-invent the wheel ?
http://www.mendipdatasystems.co.uk/b...ker/4594398118

[UT227]

I was hoping not to go that route. My calendar works very well except for greying out the dates that are not part of the calendar.

[Minty]

Ok, In the immediate window type
?Month("Date1")

and see what you get - an error. What I have typed is what you are passing to the month function - a string, not the value of the control.
You will need to need evaluate the control something like

Month(Me.Controls(S1).Value)

[UT227]

I got the same error. It doesn't like the IF statement. Didn't I make the S1 and S2 a string?

[Minty]

What is the error ?

Add a debug.print Me.Controls(S1).Value before the If to see what it evaluates to?

[ssanfu]

I got the same error. It doesn't like the IF statement. Didn't I make the S1 and S2 a string?

It is not the IF() function, it is the MONTH() function. The MONTH() function requires a DATE!

(Syntax -> Month(date))

If Month(S1) <> Me.cboMonth Then

You are passing S1 to the month function - where S1 is declared as a STRING NOT a DATE! (as Minty stated)



Maybe you could post an example of your calendar and code........

[UT227]

Changed the code to:
Private Sub GreyOutDates()

Dim X As Integer
Dim S1 As String, S2 As String

For X = 1 To 42
S1 = "Date" & X
S2 = "Day" & X

If Month(Forms!frmSchShiftCalendar(S1)) <> Me.cboMonth Then
Forms!frmSchShiftCalendar(S2).BackColor = &HD8D8D8
End If

Next X

End Sub

It worked for the first month that I open. However, any month after that I change it to everything goes grey.

[isladogs]

Consider hiding the non valid dates rather than disabling or greying them out.
That's the approach I use in my better date picker utility -see link in post #2.

Just out of interest why didn't you want to use that?
Not suitable for your needs … or you wanted the challenge of creating your own?

[Minty]

Why not refer to the control value as I showed ? Does it not make sense.

[moke123]

It worked for the first month that I open. However, any month after that I change it to everything goes grey.

Where are you calling the sub?
Are you calling it again when you change months?

[UT227]

I have use for all of the dates, so don't really want to hide the dates. I just want to grey them out so it's obvious that it's on a previous month or next month.

[UT227]

I appreciate all of the input, but now I'm completely lost. I'm going to have to just leave it be for the time being. I thought I was using the date, but I guess I'm not. I tried the best I could what Minty said, but I'm just not understanding. Guess I need to figure it out a little more.

[moke123]

Why not post a sample so we can see it instead of guessing at it.

[UT227]

I will have to take it out of a larger database. It'll take me some time.