Serial date format displayed in combo box problem

  • Thread starter Thread starter Rhema
  • Start date Start date
R

Rhema

I am using a combobox on a form, and using the rowsource property
importing a series of dates in the following format
17/11/03 form a worksheet. When you select the pulldown arrow the
format 17/11/03 appears for the entire list, however when you select
the date the 37548 appears in the combobox. How do you fix this?
 
How about something like:

Option Explicit
Dim blkProc As Boolean
Private Sub ComboBox1_Change()

If blkProc Then Exit Sub

blkProc = True
Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "dd/mm/yy")
blkProc = False

End Sub
 
Back
Top