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")

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")
>

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")
> >

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")
> > >

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")
> > > >

Hi,

I don't know if this answers your question exactly, but there is an
interesting way to put such information on the form. First you must
put an empty label on the form (with caption set to empty) and put the
following code in the Form initialization event:

Private Sub UserForm_Initialize()
Me.lblFormOpenDateTime.Caption = "This form was opened exactly at
" & vbCrLf _
& Date & " " & Time & " " & "by user " & Application.UserName
End Sub

Each time the form will be initialized (loaded to memory) you will see
the date/time/user combination in the label. For the change event you
could use timestamp which is also interesting information for the
user.

regards