Default to Current Date in Excel Form Textbox

[GeminiG]

Hi All,
I have a worksheet with a command button that opens an Excel form named frmMain.
On that form I have a frame named fraMain that has a textbox named txtDate. (The first field on the form)
I'm trying to get the current Date to populate the textbox automatically while also allowing the user to enter in a different date if needed. This is what I've tried all the following in the form VBA but no date shows up on the form load:<code style="margin: 0px; padding: 0px; border: 0px; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; white-space: inherit;">

[COLOR=#101094][FONT=Verdana][FONT=Consolas]Private Sub frmMain_Activate()[/FONT][/FONT]
    txtDate.text = Format(Now(),"MM/DD/YY")
End Sub
[/COLOR][COLOR=#101094][FONT=Verdana][FONT=Consolas]
Private Sub frmMain_Initialize()[/FONT][/FONT][/COLOR]
[COLOR=#101094]    me.txtDate.text = Format(Now(),"MM/DD/YY")[/COLOR]
[COLOR=#101094]End Sub[/COLOR]
[COLOR=#101094]
Private Sub fraMain_txtDate_Activate()
    If Me.txtDate.Value = "" Then
        Me.txtDate.Value = Format(Date, "dd/mm/yyyy")
    End If
End Sub

Private Sub fraMain_Initialize()
    If Me.ActiveControl.ActiveControl.Name = "txtDate" Then
        Me.txtDate.Value = Format(Date, "dd/mm/yyyy")
    End If
[/COLOR]

</code>Can somebody point out what I am doing wrong? I realize I only need on function but I can't get any to work. Thanks!

 

[Caribeiro77]

I've tried:

Private Sub frmMain_Initialize()
Me.txtDate.Text = Format(Now(), "MM/DD/YY")
End Sub

and it worked with me, when i launch the userform date shows up..no problem..
try to comment all other code regarding this userform and live just the code above..

 

[GeminiG]

I tried inserting your code and deleting all of my entries still doesn't work.
It sets the focus to the txtDate of that form but doesn't enter a date, nothing. Is it because the textbox is inside of a frame on the form?

 

[GeminiG]

https://drive.google.com/open?id=0B7YELkEida5MNnBUUERCNnc3aFU My Example (Macro enabled worksheet)