• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 470
  • Last Modified:

Choosing a Day in the ActiveX Calendar

When you choose a month and year on the active x calendar in access, is there a way, using VBA to default it to a day automatically ?
0
ml-sd
Asked:
ml-sd
  • 7
  • 6
1 Solution
 
rockiroadsCommented:
if you are going to set the day, why don't you just set the date so you cover all 3 elements of a date.
eg

cal.Value = CDate("10/11/2011")

or use dateserial (yyyy,mm,dd)

cal.value = dateserial(2011,11,10)
0
 
Jeffrey CoachmanMIS LiasonCommented:
yeah, I played around with this for a while and there was no easy way (at least that I could find) to do this via an Event...
0
 
ml-sdAuthor Commented:
The input from the the active X calendar opens up a monthly calendar form.....   therefore the actual day isn't important  and users forget the keystroke....  i was trying to just make the day any day without input.
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

 
rockiroadsCommented:
so why not default to todays date then?

cal.value = now()
0
 
ml-sdAuthor Commented:
I have the form load event todays date.  then the user can choose a different month to look at.
0
 
rockiroadsCommented:
so any particular day, on the NewMonth event, set it to the 1st?

eg control called cal

Private Sub cal_NewMonth()
    cal.Value = DateSerial(Year(cal.Value), Month(cal.Value), 1)
End Sub

you also have a NewYear event
0
 
ml-sdAuthor Commented:
Im using some code simillar to this...  i put in the lost focus event .However, unless a day is pressed  it dosent work.  I then created a subroutine  using your code and received this error : Runtime error 424 object required
0
 
rockiroadsCommented:
can you post what you have done so far? you did change "cal" to the name of your control right?
0
 
ml-sdAuthor Commented:
Im sorry for the delay in posting, I got tied up on another job...  Thanks so much for your patience.
Here is what I have...   i was going to use the lost focus event on the calendar on the datepickerF,  but i couldnt get it to work
Calendar.mdb
0
 
rockiroadsCommented:
Your control is called Calendar

If the attached code is added to your form, then the first day of the month is selected each time you change the month or year
Private Sub Calendar_NewMonth()
     Calendar.Value = DateSerial(Year(Calendar.Value), Month(Calendar.Value), 1)
End Sub

Private Sub Calendar_NewYear()
     Calendar.Value = DateSerial(Year(Calendar.Value), Month(Calendar.Value), 1)
End Sub

Open in new window

0
 
ml-sdAuthor Commented:
Well, it almost works....   I does default a date.   But you cant change the month and year at the same time.  also when I go back to the form to choose another month  It will not allow me to make another choice ??
0
 
rockiroadsCommented:
Ok, gave it some test as realised when selecting a new month it does not update the calendar value! Let me look into this a little more
0
 
rockiroadsCommented:
I cannot seem to find anyway of tracking the change of a month or year apart from the new methods. I have checked the object properties using object browser and nothing sticks out. I wonder if perhaps the way forward on this is to set show date selectors off then add your own dropdowns. We can capture the afterupdate on this and set the date accordingly
0
 
ml-sdAuthor Commented:
as it turns out, in access 2003, I have found no way to auto choose a date with the active x calendar. I am told in 2007 and 2010 you can. The suggestion using some combo boxes and create my own choices worked.  
thanks for all your input
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: SQL Server Core 2016

This course will introduce you to SQL Server Core 2016, as well as teach you about SSMS, data tools, installation, server configuration, using Management Studio, and writing and executing queries.

  • 7
  • 6
Tackle projects and never again get stuck behind a technical roadblock.
Join Now