display date format in VBA Userform

I have a database in Excel with a Userform. For the reported date, when the user enters the 'reported date' it transfers successfully to the Excel database. However, when a record is called up again (for editing) in the UserForm, the date appears as a serial number. I've searched everywhere to find appropriate vba code that will "force" the entry in the reported date text field to display as a date when the UserForm is opened. Since this is a project for work, I am unable to download any date picker for this project.

My project is ALMOST complete - except for this dilemma. Can anyone help guide me on what code is needed, and where that code needs to be inserted? I'm extremely new to using VBA and creating UserForms, so this is particularly frustrating for me.

Thanks!

If you are storing the date in Excel it will be converted to the serial number (something in the 40k-50k range). If you are populating the user form using VBA you will need to wrap the data with the Format() function. The following code line populates the text box "ReportDate" with today's date formatted in the US style. You can replace Now() with your reference to the report date:

Please Login or Register  to view this content.

I may not have done this properly the first time (please accept my apologies if there are multiple replies). Thank you for your quick reply.

I have the line of code suggested, and for an initial entry this works just fine. The problem remains if/when I call up an existing entry from the Excel worksheet, which holds the entry. On the Excel worksheet, the date displays just fine. However, if/when I edit the record via the UserForm, the ReportDate still displays as a serial number. Unfortunately, I cannot use DatePicker because of the way IT has configured Excel. I'm not sure where to go from here . . . .

Thanks in advance for any assistance you can provide.

Welcome to the forum

Please attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Attached is the sample file I used to learn how to create userforms and the database subsequently created. I use this sample file to test the necessary features/functions that I create on my database.

For the Incident Date field, I use the following (which works fine for the initial entry):

Private Sub txtDate_AfterUpdate()
If IsDate(Me.txtDate.Text) Then
Me.txtDate.Text = Format(Me.txtDate.Text, "mm/dd/yyyy")
End If


End Sub

It's when I call up an entry from the database that the Incident Date displays the serial number (as stored in the worksheet) instead of in date format.
I've also seen other sites recommending storing the date as text, but that prohibits me from performing further calculations (such as elapsed time between Incident Date
and the date the record is added to the database).

Appreciate any/all suggestions and guidance you can provide this newbie!

WOW! Thanks for the quick reply. I will try the first suggestion to see if/how it works. If no success, I'll then try the second suggestion.

I will respond accordingly once I've added and/or tested both to let you know what/how it works.

Thanks again!

So now the date displays perfectly when I call up a record. However, when I try to change the date on an existing record, it doesn't transfer/update the worksheet.
In reality, this shouldn't happen that often. But, if an incorrect incident date is entered, the user needs to be able to update accordingly.

I pasted the 2nd suggestion in the Edit command as well. Just missing the appropriate update for the Save command.

Sorry, but I just posted this question, and uploaded the file this morning. Maybe someone else has posed a similar question, and I missed finding it. I'm sorry if I offended, but I'm new to this forum.

Sir, I have only used the suggested code you provided earlier, which I did respond to and thanked you for. At this time, I've not registered at any other forum!

My apologies! I missed seeing your response this morning.
I will also include this line of code, I believe it would be a replacement under the Submit sub, and will test my updates.

One thing I thought about is that the report date MAY change each time a user edits a record. If that's the case, it gives me the opportunity to add an additional field for the user to enter the date they are adding a particular record to the database. Then, I can perform the necessary calculations to determine reporting lag time.

Thanks, again. Allow me at least a day to respond with status (and hopefully, success).