[resolved]Calendar Control problem

[RyanW]

I have a form with a microsoft calendar control 9.0 and a flexgrid.
When the user changes the date I want it to clear the flexgrid.

It clears when you click a certain day, but if you change the month or year without a day selected it does not clear.

I have used the click, afterupdate, beforeupdate, newmonth,newyear events of the control. None of them will clear without a day selected.

What can I do?

[joijo]

I have checked Microsoft calendar 8.0 and the only events whichs work when you chanfe the month or the year are NewMonth and NewYear respectively.

The only problem I have founs is that if you check for the month for example on NewMonth it will return 0 until you select a day.

If you post the code you use to clear the grid, some more help can be provided

[James Stanich]

Here's a brief exasmple of what you may need...

[RyanW]

I use Flexgrid.clear to clear the grid.

[James Stanich]

Originally posted by RyanW
I use Flexgrid.clear to clear the grid.

You can use that in the

Private Sub Calendar1_NewMonth() 
 
' and 
 
Private Sub Calendar1_NewYear()

[RyanW]

Ok here is the full code. I have this in the click event of the calendar control.

MSFlexGrid1.Clear
MSFlexGrid1.TextMatrix(0, 0) = "TIME"
strResource = "Select * from ResSched where " & _
              "[Date] = #" & Calendar1.Value & "#"
Dim theTime As Variant
theTime = TimeValue("8:00")
Dim incrementVal As Integer
Dim index As Integer
If cmbInterval.Text = "10" Then
            incrementVal = 10
            For index = 1 To 55
                MSFlexGrid1.Rows = index + 1
                MSFlexGrid1.TextMatrix(index, 0) = theTime
                'Increment theTime
                theTime = TimeSerial(Hour(theTime), Minute(theTime) + incrementVal, Second(theTime))
            Next
        ElseIf cmbInterval.Text = "15" Then
            incrementVal = 15
            For index = 1 To 37
                MSFlexGrid1.Rows = index + 1
                MSFlexGrid1.TextMatrix(index, 0) = theTime
                'Increment theTime
                theTime = TimeSerial(Hour(theTime), Minute(theTime) + incrementVal, Second(theTime))
            Next
        ElseIf cmbInterval.Text = "20" Then
            incrementVal = 20
            For index = 1 To 28
                MSFlexGrid1.Rows = index + 1
                MSFlexGrid1.TextMatrix(index, 0) = theTime
                'Increment theTime
                theTime = TimeSerial(Hour(theTime), Minute(theTime) + incrementVal, Second(theTime))
            Next
        ElseIf cmbInterval.Text = "30" Then
            incrementVal = 30
            For index = 1 To 20
                MSFlexGrid1.Rows = index + 1
                MSFlexGrid1.TextMatrix(index, 0) = theTime
                'Increment theTime
                theTime = TimeSerial(Hour(theTime), Minute(theTime) + incrementVal, Second(theTime))
            Next
        ElseIf cmbInterval.Text = "60" Then
            incrementVal = 60
            For index = 1 To 10
                MSFlexGrid1.Rows = index + 1
                MSFlexGrid1.TextMatrix(index, 0) = theTime
                'Increment theTime
                theTime = TimeSerial(Hour(theTime), Minute(theTime) + incrementVal, Second(theTime))
            Next
        End If
       Set rsHeader = New Recordset

With rsHeader
        .Open strResource, madocon, adOpenDynamic, adLockOptimistic, adCmdText
        count1 = 1
        Do While count1 <> MSFlexGrid1.Cols
            MSFlexGrid1.ColWidth(count1) = 2000
            count1 = count1 + 1
        Loop

        count1 = 1
        Do While .EOF = False
            If count1 > 10 Then
                MSFlexGrid1.Cols = count1 + 1
            End If
            MSFlexGrid1.TextMatrix(0, count1) = !RName
            count1 = count1 + 1
            rsHeader.MoveNext
        Loop

End With
rsHeader.Close
Set rsHeader = Nothing


strPopulate = "Select * From Appointment Where" & _
"[AppDate] = #" & Calendar1.Value & "#"
Set rsPopulate = New Recordset
With rsPopulate
        .Open strPopulate, madocon, adOpenDynamic, adLockOptimistic, adCmdText

        If .EOF = True Then
            Exit Sub
        Else
            rsPopulate.MoveFirst
            Do While .EOF = False


            MSFlexGrid1.TextMatrix(!TID, !AIdNum) = !AFName
            rsPopulate.MoveNext

        Loop
        End If
End With
rsPopulate.Close
Set rsPopulate = Nothing

The problem is the calendar controls value does not change unless you click a day.

[joijo]

You can put your code in a procedure and call it from Click, Newmonth and newyear events

[James Stanich]

Well

Private Sub Calendar1_NewMonth() 
 
Me.MsFlexGrid1.Clear
 
End Sub
 
Private Sub Calendar1_NewYear()
 
Me.MsFlexGrid1.Clear
 
End Sub
 
Private Sub Calendar1_Click()
    
' CALLYOURCODEHERE (The Date Has Been Changed !!!)
    
End Sub

[RyanW]

Thanks I knew you wre going to say that because as you were I was testing the same thing. And it works

Isn't it funny sometimes how the simplest things boggle you sometimes.

[James Stanich]

Originally posted by RyanW
Thanks I knew you wre going to say that because as you were I was testing the same thing. And it works

Isn't it funny sometimes how the simplest things boggle you sometimes.

It's all a part of a day's work. Glad you got it to work...

Remember, add resolved to you first post subject line...

[RyanW]

One more problem when I change the month and do not click a day and then go back to the previous month the flexgrid is cleared. It doesn't reload until I click a day.

[James Stanich]

Not sure how you should handle that. The date is always the same, unless user clicks on the calendar. If this is that much of an issue, why not use the DTPicker control? It has a mini-dropdown calendar of it's own...

[RyanW]

It is not that big of an issue. I will probably just leave it.

[joijo]

After a NewMonth or a NewYear event, the variables Calendar1.Day, Calendar1.Month and Calendar1.Year remain at zero until the day changes.

the following example shows a little trick to update the date after the events

Dim tempDay As Integer
 
Private Sub Calendar1_Click()
tempDay = Calendar1.Day
End Sub
 
 
Private Sub Calendar1_NewMonth()
Calendar1.Day = tempDay + 1
Calendar1.Day = tempDay
Text1.Text = Calendar1.Value
End Sub
 
 
Private Sub Calendar1_NewYear()
Calendar1.Day = tempDay + 1
Calendar1.Day = tempDay
Text1.Text = Calendar1.Value
End Sub
 
Private Sub Form_Load()
tempDay = Calendar1.Day
End Sub

Hope you can use it in your application

[James Stanich]

If you interested furthur you could add more code into your newmonth and newyear events to select the date based off that month (you'd have to check if the new month had the same number of days as the old month for this to be effective)...