Dates as Numbers in Combo Box

JezLisle · #1 09-18-2008, 04:19 AM

I have the same problem as thread,

http://www.excelforum.com/excel-prog...ml#post1969271

When I fill the Combo Box it shows as a date in the list for selecting in the Combo Box. Once I select the Date I want it then changes back t its number format. I have tried using the code below and still no joy, where am I going wrong?

Code:

Private Sub cboGetDate_Change()
    cboGetDate.Text = Format(cboGetDate.Text, "dd/mm/yyyy")
End Sub

rwgrietveld · #2 09-18-2008, 05:08 AM

Maybe there is a better way but this works:

Code:

cboGetDate.Text = CLng(Format(cboGetDate.Value, "#######"))

JezLisle · #3 09-18-2008, 08:59 AM

I have tried this and keep getting a Type Mismatch error on the section

Code:

cboGetDate.Text = CLng(Format(cboGetDate.Value, "dd/mm/yyyy"))

JezLisle · #4 09-19-2008, 04:45 AM

I have tried this code and still when selecting the dates in the Combo Box they appear as a number format

Code:

Private Sub cboGetDate_Change()
    Dim GetDate As Date
    If GetDate = CDate(cboGetDate.Value) Then
           cboGetDate.Value = Format(CDate(cboGetDate.Value), "dd/mm/yyyy")
        Else
    End If
End Sub

rwgrietveld · #5 09-19-2008, 05:44 AM

Have you tried the hashes #?

**royUK** · #6 09-19-2008, 05:52 AM

Have you tried DateSerial?
Can you attach the workbook?

JezLisle · #7 09-19-2008, 06:01 AM

I've tried the Hash's

Attached is the file I'm using to test things out...

Its also the same file that the other thread I have open is (Running Stored Procedures from Excel)

Thanks

JezLisle · #8 09-19-2008, 06:20 AM

I have tried this code below and it seems to work like it should...

Code:

Private Sub cboGetDate_Change()
    MyDate = Format(cboGetDate.Value, "dd/mm/yyyy")
    cboGetDate.Value = Format(MyDate, "dd/mm/yyyy")
End Sub

Welcome to the Excel Forum

Forum Statistics