Date picker to show todays date HELP!!!!

[Bflare]

Hi all,

I have a date picker on a user form & i need it to show todays date which i think is acheived by placing Me.Datepicker1.Value = Date in the inialize part but im stuck on where that actually is. When i right click on userform in the VBA editor i then click on view code & the following is shown:

Please Login or Register  to view this content.

Where do i need to place it???

Thanks,

Tony.

[AlphaFrog]

It looks like you don't yet have a UserForm initialize procedure.

Add this in the userform code module with the other procedures

Please Login or Register  to view this content.

Do not change the procedure name to UserForm1_Initialize

[Bflare]

It looks like you don't yet have a UserForm initialize procedure.

Add this in the userform code module with the other procedures

Please Login or Register  to view this content.

Do not change the procedure name to UserForm1_Initialize

Fantastic, thanks

Tony.

[Bflare]

It looks like you don't yet have a UserForm initialize procedure.

Add this in the userform code module with the other procedures

Please Login or Register  to view this content.

Do not change the procedure name to UserForm1_Initialize

Oh no it did work but if i change any thing within the user form i then get the following error:

"Run time error 35788
An error occured in a call to window date & time picker control"

Then if i Debug it takes me to the the show userform module & yellow's the second line:

Please Login or Register  to view this content.

If i change userform to userform1 it works again but the date is wrong????

Thanks,

Tony.

[AlphaFrog]

The procedure Sub ShowUserForm() should be located in a standard code module (e.g. Module1) and not in the UserForm's code module.

[Bflare]

The procedure Sub ShowUserForm() should be located in a standard code module (e.g. Module1) and not in the UserForm's code module.

The Sub ShowUserForm() is in Module 5.

[AlphaFrog]

What does the user do to start the user form; is it a button on the worksheet, or what? Can you show that code? Or upload your workbook.

[Bflare]

What does the user do to start the user form; is it a button on the worksheet, or what? Can you show that code? Or upload your workbook.

To start the user form the macro

Please Login or Register  to view this content.

Is assigned to a button on the worksheet. If i run this macro without the button it still fails now. It only fails if i make a change to the use form after adding the datepicker code which i placed here:

Please Login or Register  to view this content.

[AlphaFrog]

I don't see a problem with the code. Attach a workbook.

[Bflare]

test.xlsm

I have attached a cutdown version i.e i have removed all the info which the worksheet looks for but the functionality is still there. You will see that the date is now correct but if you change anything on the userform like for example make it bigger then this when the problem occurs!!!

[AlphaFrog]

Your file works for me. No error. I'm using Excel 2003.

I don't think you have a problem with your code. I've read a few threads where some people have issues with the DTPicker control in 2007 and later, but I don't have a solution for you. Do a web search for something like Excel 2007 DTPicker and you will find other threads about it.

[Bflare]

Your file works for me. No error. I'm using Excel 2003.

I don't think you have a problem with your code. I've read a few threads where some people have issues with the DTPicker control in 2007 and later, but I don't have a solution for you. Do a web search for something like Excel 2007 DTPicker and you will find other threads about it.

Ok thank you i will have a google or i may have to scrap the date picker for manual date entry?

Thanks again for your help.

I will leave the thread unsolved incase anyone else has any ideas if thats ok????

Tony.

[Bflare]

Ok thank you i will have a google or i may have to scrap the date picker for manual date entry?

Thanks again for your help.

I will leave the thread unsolved incase anyone else has any ideas if thats ok????

Tony.

Solved

I googled it & someone suggested using the control "Calendar Control 12.0" for Excel 2007 & above & it works great.

Thansk,

Tony.