Adding a Popup Calendar to a Userform

[niknik24]

Hello

I am trying to create a userform that will allow people to input data into an excel spreadsheet in a controlled way. I would like to include a date field and would like to have a popup calendar on my userform. is this possible?

Thanks

Nik

 

[Andrzejek]

When you have your UserForm up, right-click on an empty are a in your Toolbox next to any control you can choose.

Click on Additional Controls...

You can add:
Calendar Control, or my favorite: Microsoft MonthView Control.

The chosen additional controlls will apear in your toolbox.

I usually use MonthView control when user clicks on a text box where date is expected.


Have fun.

---- Andy

 

[niknik24]

Hi Andy - Thanks

I have the control but i can't seem to make it all work. Basically i want my user to be filling information in on my userform, then they clcik a comman button and a calender pops up which will populate a field on my userform1

does that make sense

Thanks

 

[Andrzejek]

OK, I have a basic UserForm with TextBox1 and MonthView1 on it.

Option Explicit

Private Sub MonthView1_DateDblClick(ByVal DateDblClicked As Date)
    TextBox1.Text = MonthView1.Value
    MonthView1.Visible = False
End Sub

Private Sub TextBox1_Enter()
    MonthView1.Move TextBox1.Left, TextBox1.Top + TextBox1.Height
    MonthView1.Visible = True
End Sub

Private Sub UserForm_Activate()
    MonthView1.Visible = False
End Sub

That should get you started.

You may want to have another controls on the UserForm, like a command button, to be able to click on textbox to activate TextBox1_Enter event.


Have fun.

---- Andy

 

[niknik24]

thanks a lot

 

[taupirho]

I wrote a mini-article which may be of help. Check it out at

http://the-big-o.port5.com/article41.shtml

 

[niknik24]

Sorry Andy

What is Month view 1

 

[niknik24]

PLEASE IGNORE THAT I FIGURED IT OUT - THANKS

 

[niknik24]

Thanks Taupirho - very useful - i've managed it now - always seems to take a while to sink in