Combo box format

[mel_flynn]

I want the text in a combo box to always appear in the format 00000 i.e. if the number is 1 then I want it to appear as 00001


I have tried :

cbo1 = format(cbo1.text, "00000")

but it doesn't seem to work

Any suggestions

[Ambivalentiowa]

I tested this and it worked. Make sure you put that code in the validation or lost focus event.

[Bruce Fox]

This will place the FIRST item in the ComBoBox as Formated TEXT.

Private Sub Command1_Click()
    Combo1.Text = Format(Combo1.List(0), "000000")
End Sub

[Bruce Fox]

This works too

Private Sub Form_Load()
   Combo1.Text = "1"
End Sub
 
Private Sub Command1_Click()
    Combo1.Text = Format(Combo1.Text, "000000")
End Sub

But, ur not ADDING these Item (If u want to ADD us .AddItem)

[Ambivalentiowa]

Use this code

Dim i As Integer
For i = 0 To Combo1.ListCount
Combo1.List(i) = Format(Combo1.List(i), "00000")
Next

[Bruce Fox]

Originally posted by Ambivalentiowa
For i = 0 To Combo1.ListCount -1