MSCAL. Calender.7

Markyd · January 20th, 2005, 07:49 AM

Can anyone help. I have a calender displaying each month in an access database form. The Calender however, is defaulting to a date which i have to specify. I would like a have a calender which shows the current date. (ie =now()). I am using class MSCAL.calender.7

Can anyone help??

jemacc · January 23rd, 2005, 04:21 AM

check your ctl default values for example

ctl.Year = Year(Now)
ctl.Month = Month(Now)
ctl.Day = Day(Now)

this is a sample I have from my cal.

Code:

Private Sub Form_Load()
Dim lkb As String
Dim ctl As Control
Set ctl = Me!CalDate
    lkb = "[apptDate] = #" & Format(Now(), "short date") & "#"

    Me.RecordsetClone.FindFirst lkb
    If Me.RecordsetClone.NoMatch = False Then
        Me.Bookmark = Me.RecordsetClone.Bookmark
    Else
        Me.RecordsetClone.AddNew
        Me.RecordsetClone![ApptDate] = Format(Now(), "short date")
        Me.RecordsetClone.Update
        Me.RecordsetClone.MoveLast
        Me.Bookmark = Me.RecordsetClone.Bookmark
        Me![CalDate] = Format(Now(), "short date")
        Me![txtDate] = Me![CalDate]
    End If

Me.CalDate.Value = lkb
ctl.Year = Year(Now)
ctl.Month = Month(Now)
ctl.Day = Day(Now)

DoCmd.Maximize

End Sub

Jaime E. Maccou