Calendar date in Textbox

[#BoB#]

Hi,

I have a form where i need to enter date in a textbox from a calendar.

I have created a calendar which opens on clicking a button adjuscent to the textbox.

Now I am not able to enter the selected date from the calendar into the textbox.

Any help would be greately appreciated.


Regards,

 

[#BoB#]

There is a hidden commandbutton uderlying the frmCalendar. The code for the commandbutton is:

Private Sub CommandButton1_Click()
frmCalendar.Hide
End Sub

The cancel property of the commandbutton is set as True. I just thought it would be appropriate to allow users to close the Calendar by just pressing Esc in the Keyboard. This is working fine. But when the users click on the X, the calendar as well as the main form both gets closed.

 

[Andrew Poulsom]

Nope, still can't reproduce that behaviour. But I think:

frmCalendar.Hide

should be:

Unload Me

 

[#BoB#]

I even tried doing that... but no use

 

[meidiana]

Hi there,

I need advice for same case like above. I have already follow the instruction by using below code. but it's only work for TextBox3. TextBox8 & TextBox9 remains blank. Please help.
Thank you

Userform1

Private Sub CommandButton1_Click()
Calendar.Show
End Sub
Private Sub CommandButton2_Click()
Calendar.Show
End Sub
Private Sub CommandButton3_Click()
Calendar.Show
End Sub

Calendar1

Private Sub Calendar1_Click()
    With UserForm1
        Select Case .ActiveControl.Name
            Case "CommandButton1"
                .TextBox3.Value = Format(Calendar1.Value, "dd mmmm yyyy")
            Case "CommandButton2"
                .TextBox8.Value = Format(Calendar1.Value, "dd mmmm yyyy")
            Case "CommandButton3"
                .TextBox9.Value = Format(Calendar1.Value, "dd mmmm yyyy")
        End Select
    End With
    Unload Me
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub

 

[Andrew Poulsom]

The code you posted works for me. In what way doesn't it work for you? If you get an error please give details.

 

[meidiana]

there is no error while I'm testing the userform. the textbox8 & textbox9 only remain blank even I already pick a date from calendar control. FYI, i'm using Word Macro and I create these 2 textbox within a Frame (the success one is outside Frame), but still in a single form.
Please advice if I must give any detail. I'm new with macro programming.
thank you.

Cheers,
Mei

 

[meidiana]

Hi Andrew,

after a while, I'm thinking about the "almost" same case with the multipage.
i try below code and it works well.
Thanks for your reference. thumbs up.

Private Sub Calendar1_Click()
    With UserForm1
        Select Case .ActiveControl.Name
            Case "CommandButton1"
                .TextBox3.Value = Format(Calendar1.Value, "dd mmmm yyyy")
        End Select
        Select Case .Frame1.ActiveControl.Name
            Case "Cmd_awal"
                .TextBox11.Value = Format(Calendar1.Value, "dd mmmm yyyy")
            Case "CommandButton3"
                .TextBox12.Value = Format(Calendar1.Value, "dd mmmm yyyy")
        End Select
    End With
    Unload Me
End Sub

 

[Andrew Poulsom]

Are your CommandButtons also in a frame?

Private Sub Calendar1_Click()
    With UserForm1
        Select Case TypeName(.ActiveControl)
            Case "CommandButton"
                Select Case .ActiveControl.Name
                    Case "CommandButton1"
                    .TextBox3.Value = Format(Calendar1.Value, "dd mmmm yyyy")
                End Select
            Case "Frame"
                Select Case .ActiveControl.ActiveControl.Name
                    Case "CommandButton2"
                        .TextBox8.Value = Format(Calendar1.Value, "dd mmmm yyyy")
                    Case "CommandButton3"
                        .TextBox9.Value = Format(Calendar1.Value, "dd mmmm yyyy")
                End Select
        End Select
    End With
    Unload Me
End Sub

 

[meidiana]

niceeee....your code works well. I still met problems using my last posted code.
Thank you Andrew. btw, can I ask other case here? or should I create new thread?
Please advice.

Cheers,
Mei

 

[Andrew Poulsom]

You can ask another question here if it's related to your original one.