problem with calender object

[Lobster]

Hey everyone,
I'm having trouble manipulating the calender object in vba. I have a form with a Microsoft calender control object 9.0 embedded in it. All I want to do is upon opening this form, set the date to the value I pull from a table. This field I pull from is a date field formated "mm/dd/yyyy" here is the code in question:

calStartDate.Value = Rs1("Start Date")

when hovering over each of these values while in break mode (I know not the right terminology) I get "1/1/2007" for calstartdate.value and "1/27/2007" for Rs1("Start Date") but upon stepping to the next line the value of calStartDate.value doesn't change at all. Starting to get real frustrating. Anybody have any idea why this is happening?
thanks,
Lobster

[nico5038]

I prefer to use the minicalendar control from http://www.mvps.org/access/forms/frm0050.htm
(Excellent site with much info and samples)

Idea ?

Nic;o)

[missinglinq]

It would probably help if we could see your code. What exactly is this Rs1("Start Date") you're trying to assign to the calendar?

[willakawill]

Hey everyone,
I'm having trouble manipulating the calender object in vba. I have a form with a Microsoft calender control object 9.0 embedded in it. All I want to do is upon opening this form, set the date to the value I pull from a table. This field I pull from is a date field formated "mm/dd/yyyy" here is the code in question:

calStartDate.Value = Rs1("Start Date")

when hovering over each of these values while in break mode (I know not the right terminology) I get "1/1/2007" for calstartdate.value and "1/27/2007" for Rs1("Start Date") but upon stepping to the next line the value of calStartDate.value doesn't change at all. Starting to get real frustrating. Anybody have any idea why this is happening?
thanks,
Lobster

Hi what happens if you replace the recordset value with a literal?

calStartDate.Value = "1/1/2008"

[MSeda]

Your'e problem seemed pretty straight foward so I built a test form as you described and I found this. the code did not function in the on open event as you stated. so I moved it to the On Load event. It worked! I've been told the on load event occurs after on open. perhaps some of the experts can give a more in depth description of the differences between the two.

Hope this helps,
Megan

[missinglinq]

The sequence of events when initializing a form is (per Access Help)


Open [font=Symbol]Þ[/font] Load [font=Symbol]Þ[/font] Resize [font=Symbol]Þ[/font] Activate [font=Symbol]Þ[/font] Current


I believe I've read somewhere that the Open event is the actual initializing of the physical framework, if you will, of the form, while the Load event is the actual "loading" of the Record Source, assuming the form is bound. If this is correct, it would explain why the code fails during the Open event but works during the Load event, when the Record Source has been loaded. I never use the OnOpen event, so never even gave that any thought!


Good catch, Megan!

[Lobster]

Thanks everyone,
I moved it over to the on load event and that fixed it. My guess is the calender object was not fully initialized or something to that effect until after the on open event. The form was not bond to any recordset, but rather Rs1 was a recordset I created in code:

    Set Rs1 = Db.OpenRecordset("tblAccountDeliveryDays")
    Rs1.MoveFirst
 
    Do While Not Rs1.EOF
        If Rs1("Account number") = intAccountNumber Then
            Exit Do
        End If
        Rs1.MoveNext
    Loop
    chkMonday = Rs1("Monday")
    chkTuesday = Rs1("Tuesday")
    chkWednesday = Rs1("Wednesday")
    chkThursday = Rs1("Thursday")
    chkFriday = Rs1("Friday")
    chkSaturday = Rs1("Saturday")
    chkSunday = Rs1("Sunday")
    txtSpecialNotes = Rs1("Special Notes")
    cmbDeliveryQuadrant = Rs1("Delivery Quadrant")
    calStartDate.Value = Rs1("Start Date")
 
    Rs1.Close
    Db.Close

So I think it has more to do with the actual object, but like I said problem solved.
thanks,
Lobster