VBA Calendar Control without Control

Re: VBA Calendar Control without Control

Quote from Gops

Hey Chuck....

...Can you please tell me how you fixed this latest problem. I have a choice of going back to Phil's calendar that you updated (calendar 10.2) or get the fix from you to add to the IWRK4depr's version that I am using now.

thanks
Gops

Basically i fixed the problem by nullifying the equation that told the calendar to jump to a month when clicking numbers....

Private Sub ChkDate()
'Cblundell changed below Greater/Less than signs. Original= "If Format(ThisButton, "m") - 1 <> CB_Mth......"
'NEW= "If Format(ThisButton, "m") - 1 = CB_Mth......"     so that when selecting dates calendar didnt
'jump months when a day between 1 & 12 was selected (as you would select the 12/06/05 (in dd/mm/yy format)
'and it would swap to december as display month)
    If Format(ThisButton, "m") - 1 = CB_Mth.ListIndex Then CB_Mth.ListIndex = Format(ThisButton, "m") - 1
' gh added next line
    CB_Yr = Year(ThisButton)


End Sub

On the original calendar (Phil's v10) - when looking at a month you can see a little bit of the month before and a little bit of the month after the current month.... eg looking at February, could also see January 30 & 31 and March 1st - 12th. If you clicked on dates from other months it would swap to that month. (click on march 5th, and current month would swap to March)

When i hacked to get it to work for UK computers, it screwed up and saw any number 1 - 12 as a "change the month prompt" so i had to disable all "swapping of months" to stop it doing it. (Hope you followed)

You'll find the code I posted above, with-in the "Calendar 10.2" file.

If you or someone else can retain all original functionality, and make it work for UK computers that would be great.... then you can get rid of my cheap hacks. ; )

Any Q's please let me know.

Chuck

Re: VBA Calendar Control without Control

Hi Chuck.

Thanks for the reply. Let me digest the info. In the meanwhile, where can I get a copy of Phil's v10.

Gops

Re: VBA Calendar Control without Control

Quote from Gops

Hi Chuck.

...where can I get a copy of Phil's v10.

Gops

http://www.ozgrid.com/forum/sh….php?t=22194&page=2&pp=10

It was last updated/posted in 2003.

Enjoy.

Chuck.

Re: VBA Calendar Control without Control

Hi Chuck.

I am already using the calendar (see attached) in my workbook. This was originally created by Bary Pettis and further modified by myself. It works great with either European or North American date setting. However, as you have expereinced with Phil's calendar, the day and month gets swaped if less than 12 when the date setting is European. I wonder if you can have a look at the code in this calendar and try to "hack it", as you did with Phil's calendar, to fix this 'swaping"

If I don't have to use your modified calendar, it would save me a lot of testing.

Re: VBA Calendar Control without Control

Quote from Phil

AJW,

To save you the trouble attached is the revised (corrected) vba date picker file.

Phil

I have been trying for ever to resolve the calendar issue. Would you please send me a copy of your Calendar

use VBA Calendar Control without Control in existing form

I have been trying to modify a form I inherited and replace the VBCalendar control with Phyl's calendar10.zip. Can anyone help me with the code I need to use the date from the calendar add in to my form. My form has a command button named cmdDate to open the calendar and I need to return the date to a Text box named TextDate2 I appreciate any help you can give, I have done a lot of VB and Excel but am new to the calendar concept. :?

Re: use VBA Calendar Control without Control in existing form

Quote from TJE

I have been trying to modify a form I inherited and replace the VBCalendar control with Phyl's calendar10.zip. Can anyone help me with the code I need to use the date from the calendar add in to my form. My form has a command button named cmdDate to open the calendar and I need to return the date to a Text box named TextDate2 I appreciate any help you can give, I have done a lot of VB and Excel but am new to the calendar concept. :?

Here's what I did with mine, after much perusing of this board and others (I am not familiar with VB or VBS - so it took a lot of guess and testing). I needed to ensure that the result of my popup calendar was sent only to one particular cell - and not the many various other date formatted cells generated by other formulas. That was a nightmare to fix.

My popup calendar is called by a button.
The quick and disgustingly simple trick to cure that problem child was this...

Quote

Private Sub CommandButton1_Click()
'Edit to your required cell, mine is "A1"
Range("A1").Select
CalendarFrm.Show
End Sub

Display More

Not sure how to specifically modify this to your textfield name... but I'm guessing you know more about VB than I do. Hope this helps : D

Re: Phil's VBA Calendar - January / UK Version fix

Can someone explain how to insert the calender into a another workbook please

Re: VBA Calendar Control without Control

There's some alternatives with example workbooks here