UserForm - TextBox date value from ListBox not showing has a date

[TheSardOz]

Hi,
I have created a userform to add data to a sheet.
I have a function to edit the data that I am entering, in case I made a mistake before I save it.
To display the data from the ListBox back to the TextBox to be edited I use The DblClick event and this code : Me.TextBox_Date = Me.ListBox_Data_Drop.List(Me.ListBox_Data_Drop.ListIndex, 11)
but the date display as the number value

I have tried to add this formatting on the Form Initialize but it do not work in this case. 'TextBox_Date.Text = Format(Date, "d/mm/yyyy h:mm AM")

I hope someone will help thank you in advance

 

[GWteB]

One cannot format a text box in a persistent way like cells on a worksheet can be formatted.
So eacht time the value of a text box changes and we need a certain format, the code needs to take that into account.

Try replacing this

    Me.TextBox_Date = Me.ListBox_Data_Drop.List(Me.ListBox_Data_Drop.ListIndex, 11)

with this

    Me.TextBox_Date.Value = VBA.Format(Me.ListBox_Data_Drop.List(Me.ListBox_Data_Drop.ListIndex, 11), "d/mm/yyyy h:mm AM")

 

[TheSardOz]

One cannot format a text box in a persistent way like cells on a worksheet can be formatted.
So eacht time the value of a text box changes and we need a certain format, the code needs to take that into account.

Try replacing this

    Me.TextBox_Date = Me.ListBox_Data_Drop.List(Me.ListBox_Data_Drop.ListIndex, 11)

with this

    Me.TextBox_Date.Value = VBA.Format(Me.ListBox_Data_Drop.List(Me.ListBox_Data_Drop.ListIndex, 11), "d/mm/yyyy h:mm AM")

Thank you very much ... it did the job just right

 

[TheSardOz]

One cannot format a text box in a persistent way like cells on a worksheet can be formatted.
So eacht time the value of a text box changes and we need a certain format, the code needs to take that into account.

Try replacing this

    Me.TextBox_Date = Me.ListBox_Data_Drop.List(Me.ListBox_Data_Drop.ListIndex, 11)

with this

    Me.TextBox_Date.Value = VBA.Format(Me.ListBox_Data_Drop.List(Me.ListBox_Data_Drop.ListIndex, 11), "d/mm/yyyy h:mm AM")

Just the AM shows has A10 ( is showing the corresponding number of M?)

 

[GWteB]

I see, I've overlooked a tiny detail, the code should have been:

Me.TextBox_Date.Value = VBA.Format(Me.ListBox_Data_Drop.List(Me.ListBox_Data_Drop.ListIndex, 11), "d/mm/yyyy h:mm AM/PM")

 

[TheSardOz]

I see, I've overlooked a tiny detail, the code should have been:

Me.TextBox_Date.Value = VBA.Format(Me.ListBox_Data_Drop.List(Me.ListBox_Data_Drop.ListIndex, 11), "d/mm/yyyy h:mm AM/PM")

Thank you once again!