Thank you Jacob, but this does not make the date on the text box visible. I
noticed though that when I click in design view the date textbox and go to
View Code I get this which I have not before. It seems I get this "Change",
even when I click on the view Code for the Multi Page. Maybe this is an
indication of what is wrong? What does this mean? Thank you.

Private Sub txtFormDate_Change()

End Sub

"Jacob Skaria" wrote:

Check whether you have named your userform in-correctly.. Place a message box
in Initialize event to see whether it is getting displayed.

'Code behind form
Private Sub UserForm1_Initialize()
Me.txtFormDate = Date
End Sub

'Macro to be placed in a module...Try running this macro..
Sub Macro()
Load UserForm1
UserForm1.Show
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"TotallyConfused" wrote:

Thank you Jacob for responding. However, this did not work. Is there
anything else I can do to get the date to show when form is open? What would
cause this? Thank you.

"Jacob Skaria" wrote:

This will do..The Initialize() event is fired when you Load the userform...

Private Sub UserForm_Initialize()
Me.txtFormDate = Date
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"TotallyConfused" wrote:

I have a UserForm with a multipage on the first page I have a textbox that I
have assigned Form Date. I want "todays date" to fill the text box on
opening the form. It was working fine but after changes to the form the date
is not visible when form is loaded. I have the following code on

Private Sub UserForm1_Initialize()
Load UserForm1
UserForm1.Show
frmMyUserform.Show vbModeless
Me.txtFormDate = Date
'Me.txtFormDate = format(date,"mm-dd-yyyy")

End Sub

I have tried the following variations with no success. Can someone please
help me with this? Thank you in advance for any help you can provide.

Me.FormDate.Text = Format(Date, "mm-dd-yyyy")
Me.txtFormDate = Date
Me.FormDate = Format(Date, "mm-dd-yyyy")