Display Current date

S

sam

Hi All, How can I display current system date on my excel userform in one of
the fields? Foe eg, lets say I have a Date Field on my userform, I want it to
display current system date everytime Anyone opens the userform, also it
shouldnt be editable by the users, but just visible.

Thanks in Advance
 
S

Steve Yandl

I prefer using a label if I don't want users to be able to edit. For
example, if I create an appropriately sized Label1 inside UserForm1, then
this would do what you want.

'---------------------------------
Private Sub UserForm_Activate()
Label1.Caption = "Today is " & FormatDateTime(Date, vbLongDate)
End Sub

'--------------------------------

Steve Yandl
 
S

sam

Thanks for the help steve, I have used a textbox and similar code like yours:

Private Sub UserForm_Activate()
Me.ReqDt.Value = Date
End Sub

But for some reason the textbox still doesnt display the system date when i
launch the userform. This code is place at the top of my vb code for
userform. could it be an issue with where i put this code?

Thanks in Advance
 
Top