Date on UserForm?

T

TotallyConfused

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

Jacob Skaria

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
 
T

TotallyConfused

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.
 
J

Jacob Skaria

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
 
T

TotallyConfused

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
 
C

Coder1215

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top