Form Display Issue

[Craw]

Greetings,
I am trying to write a code that will automatically display the current date in a form when that form is opened. The following is the code I have so far and I have to click in the textbox and press a key for the date to be displayed which is not what I want.

Private Sub TextBox1_initialize()
'Date
 TextBox1 = Date
 End Sub

Any suggestions?

 

[kpark91]

Hi, the question is ambiguous so I will give you two solutions based on two problems.

1) The date the form is opened.

Private Sub UserForm_Initialize()
    TextBox1.Text = Date
End Sub

2) The date is constantly being updated

Private Sub UserForm_Initialize()
 
Time_Loop:
    DoEvents
    TextBox1.Text = Date
    GoTo Time_Loop
End Sub

 

[Craw]

My apologies let me try and clarify. I just want a textbox in the corner of a form. Whenever a user opens the form the textbox will display the current date. In which case I believe that a loop function is necessary. I have tried the #2 code you recommended but to no avail. The code you suggested is supposed to go into the form module?

Private Sub Toolbox1_Initialize()
 
Time_Loop:
DoEvents
TextBox1.Text = Date
GoTo Time_Loop
End Sub

 

[kpark91]

What kind of error are you getting with the code provided?

Please note that you must already have a textbox in the corner of your userform named "TextBox1"

and also, please note that Private Sub Userform_Initialize()
is found by going into the userform module
and on the top right quadrant of the editor, there are two long dropdown box where you can select the object in the first box and event of it in the second box.

so in the first box, you want Userform and in the second box, you want to select Initialize

then your editor will show Private Sub Userform_Initialize() End Sub
automatically and you should put the code in that.

 

[Craw]

I did just that however I still have click on the textbox when I open the form in order for the current date to be displayed.

 

[kpark91]

Can you show me the code you have used?

meanwhile, you can try this:

Private Sub Toolbox1_Initialize()
 
Timer_Loop:
DoEvents
Me.TextBox1.Text = Date
GoTo Timer_Loop
End Sub

 

[Norie]

There is no ToolBox1_Initialize event.

What is ToolBox anyway?

 

[Craw]

I have both of the following codes in the module for the form in question (Toolbox1). Seeing as it wasn't working as a textbox I am now trying it as a label.

Private Sub Label1_Click()
    Label1.caption = Format(Now, "dd/mm/yyyy")
End Sub
 
Private Sub Toolbox1_Initialize()
 
Timer_Loop:
DoEvents
Me.Label1.Text = Date
GoTo Timer_Loop
 
End Sub

 

[kpark91]

Oops I meant

Private Sub Userform_Initialize()
 
Timer_Loop:
DoEvents
Me.TextBox1.Text = Date
GoTo Timer_Loop
End Sub

Thanks for pointing it out, norie.

 

[kpark91]

Craw, there is no Toolbox1 event.
Is that the name of your userform?
It still does not matter so you should just use Userform_Initialize()