Calendar control on User Form

[Jose001]

Morning Everyone,

Is there anyone out there that could give me a little help with a calendar control I have on a User Form.

My form is relatively simple and has 4 text boxes on the left and 4 combo boxes on the right. I would like users to add information on the left in the text boxes and then select a date for this on the right in the combo box. At the moment I have the calendar control on Form 2. I am able to .show the form when the combo box is clicked on but I have no idea how to get the date back into the combo box, apart from linking it directly but I would like to use the calendar with each combo box! If anyone could give me an idea or a snipet of code or even some advice if I'm going about it the wrong way that would be great. Thank you all.

Jose

[RobDog888]

Are you doing this in Outlooks VBA or on VB 6 Forms?

[Jose001]

On a VB6 Form

[Hack]

Then you should be using the MonthView not the Calendar control as that was made more for VBA UserForms than VB6 Forms and will exhibit odd behavior if used in VB6.

My form is relatively simple and has 4 text boxes on the left and 4 combo boxes on the right. I would like users to add information on the left in the text boxes and then select a date for this on the right in the combo box. At the moment I have the calendar control on Form 2. I am able to .show the form when the combo box is clicked on but I have no idea how to get the date back into the combo box

I'm confused. What is in your combo box? You mention Form2. What is on Form2 and I'm assuming there is a Form1. What is on Form1? What is it that you are trying to do with the dates?

[Jose001]

Sorry for any confusion guys, I'm working this out as I go along. I put a combo box because I wanted the calendar to popup when the date field was clicked on. There are basically four text boxes labelled 1 - 4. I would like another box next to each one which the user can click on and a calendar popup. When they select the date it is dropped back into that box they clicked on. I dont know what would be the best way to do this but it has to be a popup calendar. How would I go about using the month view? Thanks for you help guys

[artstar]

Hello:

Would the (DTpicker) be a better choice? (Date Time Picker!)

If your just wanting to select a Date: this sounds like what you might be looking for.

[Jose001]

It is and I've tried this and it works a treat...except...users enter dates to correspond with events which they enter in the text box to the left. The DTPicker automatically sets itself to todays date. So when I use the information say in an excel spreadsheet it draws through the date next to an empty cell. I hope that makes sense. I guess I need it to be empty unless someone clicks on a date. I've been through the DTPicker properties and it will only let me set it to null if I enable some kind of checkbox. But then when I use data it inserts a time next to the date! I feel like screaming lol

[Jose001]

I still think the calendar is my best option but have no idea how to make it neutral, i.e on a second form which is shown when the user clicks on a text/combo box and then how to feed that date back to the box?

[Hack]

In the click event of the control (text/combo) do a

Form2.Show

In the click event of the calendar control, do a

Form1.Text1.Text = Calendar.Value

[artstar]

Quote="But then when I insert data it puts a time next to the date."


This will format the dtpicker to the (short date)
FormatDateTime(DTPicker1.Value, vbShortDate)

[Jose001]

Hey Hack, Thanks for replying, will this not link the calender to this text box though. There are four boxes which may need to use the calender, will this still work?

[Hack]

Then you will need to develop a way of telling the calendar which box to place the date in. Try creating a form level string....something like

Private strTextBox As String

In the click event of each textbox, and before the Form2.Show, put

strTextBox = "NameOfTextBox"

Then, on in the Calendar on Form2, do

Select Case strTextBox
         Case "Text1"
         Form1.Text1.Text = Calendar.Value
         Case "Text2"
          Form1.Text2.Text = Calendar.Value
         Case "Text3"
          Form1.Text3.Text = Calendar.Value
         Case "Text4"
         Form1.Text4.Text = Calendar.Value
End Select

[Jose001]

Thank you thankyou Hack I'm gonna try this now and will let you know how it goes! Thanks mate

[Jose001]

Hey Hack,

Not sure what I'm doing wrong but don't seem to be able to get this code working, am I making an extremely elementary error here is the code from UserForm1

Private strComboBox As String
 
'strTextBox = "NameOfTextBox"
 
Private Sub ComboBox1_Change()
strTextBox = "ComboBox1"
UserForm2.Show
End Sub
 
 
Private Sub ComboBox2_Change()
strTextBox = "ComboBox2"
UserForm2.Show
End Sub
 
Private Sub ComboBox3_Change()
strTextBox = "ComboBox3"
UserForm2.Show
End Sub
 
Private Sub ComboBox4_Change()
strTextBox = "ComboBox4"
UserForm2.Show
End Sub
 
Private Sub UserForm_Click()
 
End Sub

and here is the code from UserForm2

Private Sub CommandButton1_Click()
Select Case strComboBox
         Case "ComboBox1"
         UserForm1.ComboBox1.Text = Calendar1.Value
         Case "TComboBox2"
          UserForm1.ComboBox2.Text = Calendar1.Value
         Case "ComboBox3"
          UserForm1.ComboBox3.Text = Calendar1.Value
         Case "ComboBox4"
         UserForm1.ComboBox4.Text = Calendar1.Value
End Select
End Sub

I changed it to combo boxes because I couldnt get the onClick to work with a basic textbox.

Jose

[RobDog888]

Are you sure its VB 6 because VB 6 doesnt have "Private Sub UserForm_Click()" UserForm events, VBA does.

[Hack]

Also, don't put the code in the Change event. Move it to the Click event.