Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Choosing a Day in the ActiveX Calendar

Posted on 2010-11-08
14
Medium Priority
?
463 Views
Last Modified: 2012-06-21
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
Comment
Question by:ml-sd
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 7
  • 6
14 Comments
 
LVL 65

Expert Comment

by:rockiroads
ID: 34086172
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
 
LVL 74

Expert Comment

by:Jeffrey Coachman
ID: 34086575
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
 

Author Comment

by:ml-sd
ID: 34086712
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
Visualize your virtual and backup environments

Create well-organized and polished visualizations of your virtual and backup environments when planning VMware vSphere, Microsoft Hyper-V or Veeam deployments. It helps you to gain better visibility and valuable business insights.

 
LVL 65

Expert Comment

by:rockiroads
ID: 34086854
so why not default to todays date then?

cal.value = now()
0
 

Author Comment

by:ml-sd
ID: 34087768
I have the form load event todays date.  then the user can choose a different month to look at.
0
 
LVL 65

Expert Comment

by:rockiroads
ID: 34087940
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
 

Author Comment

by:ml-sd
ID: 34088251
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
 
LVL 65

Expert Comment

by:rockiroads
ID: 34088287
can you post what you have done so far? you did change "cal" to the name of your control right?
0
 

Author Comment

by:ml-sd
ID: 34120792
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
 
LVL 65

Expert Comment

by:rockiroads
ID: 34121362
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
 

Author Comment

by:ml-sd
ID: 34121766
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
 
LVL 65

Expert Comment

by:rockiroads
ID: 34122115
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
 
LVL 65

Accepted Solution

by:
rockiroads earned 2000 total points
ID: 34123186
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
 

Author Closing Comment

by:ml-sd
ID: 34168307
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

Featured Post

Ask an Anonymous Question!

Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Access custom database properties are useful for storing miscellaneous bits of information in a format that persists through database closing and reopening.  This article shows how to create and use them.
Traditionally, the method to display pictures in Access forms and reports is to first download them from URLs to a folder, record the path in a table and then let the form or report pull the pictures from that folder. But why not let Windows retr…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …

609 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question