Date Picker (1 Viewer)

David44Coder

Member
Local time
Tomorrow, 02:23
Joined
May 20, 2022
Messages
109
I'd like to put a date picker on a Form but having trouble with the Access one.
The Form was Unbound, but a text box bound to empty table with a date field was added.
But I don't want to see the text box, or click it, just have the calendar icon available. Is that possible ?
Also can't see how to change the year. Is that a limitation of this control ?
Is there a workaround or solution? Thanks.
 

David44Coder

Member
Local time
Tomorrow, 02:23
Joined
May 20, 2022
Messages
109
Hi Bob, What I envisaged was the calendar would disappear after selecting a date. Then I use that date to do other stuff within the Form.
At the moment a date is typed into a text box, but this (might) be more elegant?
PS Even after a lot of searching I can't see how to change the Year, if that's not possible I can't use it.
 

isladogs

MVP / VIP
Local time
Today, 13:23
Joined
Jan 14, 2017
Messages
18,186
There are many alternative date pickers available which are far better and which make it easy to change the year
This is my version:
 
Last edited:

KitaYama

Well-known member
Local time
Today, 22:23
Joined
Jan 6, 2022
Messages
1,489
@isladogs You've done a great job there.
We've been using your date picker since last month. I Just wanted to thank you for offering this utility and tell you we had to add a piece of code.

Our database has been used in a multi-language environment. We added WeekdayName function (abbreviated parameter set to on) and MonthName function (abbreviated parameter set to off) to On_Load event of your form to change the day captions and month combo box.

I'm not a vba expert by any means and I'm not sure if it will work for every language, but for now it suits us just fine.
I thought you may want to know and consider to add it if it can be used on a wide range of languages.

Thanks again for your nice job.
 
Last edited:

arnelgp

..forever waiting... waiting for jellybean!
Local time
Today, 21:23
Joined
May 7, 2009
Messages
19,169
i also have my own version.
i wonder if it is "Intl" ready?
 

Attachments

  • myCalendarForm.accdb
    608 KB · Views: 227

KitaYama

Well-known member
Local time
Today, 22:23
Joined
Jan 6, 2022
Messages
1,489
i also have my own version.
i wonder if it is "Intl" ready?
It's Saturday 21:27 here, Let me test yours as soon as I'm back to work on Monday. I'll test it and will let you know.
thanks.
 

arnelgp

..forever waiting... waiting for jellybean!
Local time
Today, 21:23
Joined
May 7, 2009
Messages
19,169
i adjusted my code, because the i want the form to be "embeddable" (Form2).
 

Attachments

  • myCalendarForm.accdb
    736 KB · Views: 207

KitaYama

Well-known member
Local time
Today, 22:23
Joined
Jan 6, 2022
Messages
1,489
@arnelgp I just tested your version on a Japanese system.
Several points.
  1. Comparing to Access native date picker, your version has a lag time while opening. (@isladogs's version has the same issue). Access default date picker is much faster on opening.
  2. As isladog's version, It doesn't open at mouse position. It's window centered. ( I can manage this). Recent monitors are wide screen and you don't want user's mouse move far to the center of the screen and back.
  3. Though the months are listed correctly in combobox, the default selected month is in English. Clicking the buttons to move to next or previous month will choose English months. I mean it will change to Jan, Fab, etc instead of local months ( I can manage this too.)
    2.png

I'll do more tests on other languages on Monday.
Please don't take it as criticizing. I just thought you may want to know.
 
Last edited:

arnelgp

..forever waiting... waiting for jellybean!
Local time
Today, 21:23
Joined
May 7, 2009
Messages
19,169
you check the "Month" combobox,
 

Attachments

  • myCalendarForm.accdb
    732 KB · Views: 197

isladogs

MVP / VIP
Local time
Today, 13:23
Joined
Jan 14, 2017
Messages
18,186
@KitaYama
As requested, I've updated my Date Picker as requested to show the day & month names in the regional language
Tested in French, German, Spanish, Greek and Japanese and all looks OK to me

I hadn't realised until now that Japanese/Chinese & several other languages represent months as a number followed by the month symbol e.g. April is '4 Month' ... as in post #9 for month names.

Two international versions attached
DatePicker_v2206 - days shown from Sun to Sat
DatePickerM2S _v2206 - days go from Mon to Sun

Please can you test & let me know if its OK (or not)

The new versions have also been posted to my website:

BTW it would be easy enough to change the date picker form so it appears just next to the textbox being populated

EDIT: 8 June 2022
The attached versions have a couple of bugs.

Please instead use the updated version 1.4 attached to post #25
 

Attachments

  • DatePicker_v2206.zip
    61.3 KB · Views: 202
  • DatePickerM2S_v2206.zip
    57.2 KB · Views: 200
Last edited:

KitaYama

Well-known member
Local time
Today, 22:23
Joined
Jan 6, 2022
Messages
1,489
@KitaYama
As requested, I've updated my Date Picker as requested to show the day & month names in the regional language
Tested in French, German, Spanish, Greek and Japanese and all looks OK to me

I hadn't realised until now that Japanese/Chinese & several other languages represent months as a number followed by the month symbol e.g. April is '4 Month' ... as in post #9 for month names.

Two international versions attached
DatePicker_v2206 - days shown from Sun to Sat
DatePickerM2S _v2206 - days go from Mon to Sun

Please can you test & let me know if its OK (or not)

The new versions have also been posted to my website:

BTW it would be easy enough to change the date picker form so it appears just next to the textbox being populated
Million thanks.
I will test this new version on our PCs and will report back in 2,3 hours.
 

KitaYama

Well-known member
Local time
Today, 22:23
Joined
Jan 6, 2022
Messages
1,489
@isladogs
I tested your latest version. It was exactly the same as the edits I had done.

Just FYI, maybe I have to add two other edits I've done to your version:
  1. Here in Japan, it's kind of a common sense to put a link or credit for any free utility we use. So I have deleted Selected Date & Current Date textboxes and added a link to your site inststead.
  2. We prefer to be able to see and select dates from the end of previous month or the first days of next month. Just like Access default date picker or Windows Date. So I modified DrawDateButtons subroutine. Now it's what I have :
1.png


It's just a matter of personal perference, not a problem.
To have above result, I have deleted btn.Visible=False and added the following.

Code:
    ' btn.Visible = False
    OutOfCurrentMonth = True
    OutOfDate = DateAdd("d", I - 1, DateSerial(Year(myDate), Month(myDate), 1))
    btn.Caption = Day(OutOfDate)
    btn.Tag = btn.Caption
    btn.Visible = True
    If I > MonthLength And Weekday(OutOfDate) = vbSunday Then VisibleFlag = True
    If VisibleFlag = True Then btn.Visible = False

I have also added these variables to the top of the subroutine.
Code:
    Dim OutOfCurrentMonth As Boolean
    Dim OutOfDate As Date
    Dim VisibleFlag As Boolean
 

isladogs

MVP / VIP
Local time
Today, 13:23
Joined
Jan 14, 2017
Messages
18,186
Thanks for the additional info/ideas ... and for adding the link to my website
 

isladogs

MVP / VIP
Local time
Today, 13:23
Joined
Jan 14, 2017
Messages
18,186
@KitaYama
Just tried to send you a private message (conversation) but it seems you don't allow that feature...

Before reading your reply this morning, I had updated my DatePicker webpage & have a YouTube video on this item as well

Two more questions:
1. I see your week is displayed from Sat to Fri. Is that standard in Japan and specified in Windows settings? Perhaps I need to code a generic version that pulls that info
2. Out of interest, how did you code the different forecolour on the out of month days?

If you are willing to email me your version, it might save me some time in further coding if I decide to include these extra features
See my signature line for email link

Thanks in advance
 

KitaYama

Well-known member
Local time
Today, 22:23
Joined
Jan 6, 2022
Messages
1,489
@KitaYama
Just tried to send you a private message (conversation) but it seems you don't allow that feature...

Before reading your reply this morning, I had updated my DatePicker webpage & have a YouTube video on this item as well

Two more questions:
1. I see your week is displayed from Sat to Fri. Is that standard in Japan and specified in Windows settings? Perhaps I need to code a generic version that pulls that info
2. Out of interest, how did you code the different forecolour on the out of month days?

If you are willing to email me your version, it might save me some time in further coding if I decide to include these extra features
See my signature line for email link

Thanks in advance
@isladogs Here's how I did it.
I'm not an expert in VBA and I'm sure you can do it much smarter.
 

Attachments

  • DatePicker_v2206.accdb
    1.9 MB · Views: 170
Last edited:

KitaYama

Well-known member
Local time
Today, 22:23
Joined
Jan 6, 2022
Messages
1,489
@isladogs
forgot to answer your question.
No, we have Sunday at the first column in our calander. Your code shows Saturday as the first column. I have corrected this in our database:

This is from your database posted above #11
Code:
    Me.Label19.Caption = WeekdayName(7, True)
    Me.Label20.Caption = WeekdayName(1, True)
    Me.Label21.Caption = WeekdayName(2, True)
    Me.Label22.Caption = WeekdayName(3, True)
    Me.Label23.Caption = WeekdayName(4, True)
    Me.Label24.Caption = WeekdayName(5, True)
    Me.Label25.Caption = WeekdayName(6, True)

I have corrected to

Code:
    Me.Label19.Caption = WeekdayName(1, True)
    Me.Label20.Caption = WeekdayName(2, True)
    Me.Label21.Caption = WeekdayName(3, True)
    Me.Label22.Caption = WeekdayName(4, True)
    Me.Label23.Caption = WeekdayName(5, True)
    Me.Label24.Caption = WeekdayName(6, True)
    Me.Label25.Caption = WeekdayName(7, True)

1.png
3.png
 

isladogs

MVP / VIP
Local time
Today, 13:23
Joined
Jan 14, 2017
Messages
18,186
Which of the two versions did you use as one of them is Sun to Sat .
The version you posted shows as Mon to Sun on my PC.

I will have a look at your code later. Thanks
 

KitaYama

Well-known member
Local time
Today, 22:23
Joined
Jan 6, 2022
Messages
1,489
@isladogs

There's a difference between Access date picker and windows Date.
Windows Date has a fixed 6 Rows. Access data picker differs depending on how many weeks in month.

At present we are discussing it which one to choose. The attached version is your file with a little modification to use fixed number of rows.

Access Date picker for June

1.png


Windows type date for June

6.png


You can check the attachment.
 

Attachments

  • DatePicker_v2206.accdb
    1.9 MB · Views: 160

Users who are viewing this thread

Top Bottom