Decimal Places in a List Box

[TommyF]

I have a list box that I fill with data using the code as follows.

Private Sub Form_Current()
Me.List0.RowSource = _
"SELECT ID, linkid, Deldate, TITLE, IMPS FROM DelNotes " & _
"WHERE linkid = " & Me.LinkID & _
" ORDER BY Deldate DESC"
End Sub

This works fine except the IMPS field is a number which needs to have 3 decimal places, at the moment it will bring it up with 2(which must be standard). I have changed all the tables etc to be 3 decimal places but it does not change.

Is there any way to add this to my code so it formats the Imps colum when it loads the data.

Thanks

 

[mp9]

One, admittedly clunky, way is:

Private Sub Form_Current()
Me.List0.RowSource = _
"SELECT ID, linkid, Deldate, TITLE, Format(IMPS,'0.000') AS IMPSNum FROM DelNotes " & _
"WHERE linkid = " & Me.LinkID & _
" ORDER BY Deldate DESC"
End Sub

http://www22.brinkster.com/accessory/

 

[TommyF]

Thanks mp9 that worked fine except it changed the colum head to exp1004. Is there anyway to change this?

Thanks again