[AccessD] Format a numeric column in a list box?

Hi Jim

> To piggyback on this thread, I have a question.
> How can you format a numeric column to align on the right?
> I want numbers to look like numbers - not text.
> This would apply to the list box and combo box.

The only way I've found to do this is to use a font where all digits
have the same width like MS Sans Serif. Further, in this font, a digit
has twice the width of a space which equals that of decimal and
thousand separators.

Having decided a maximum number you can calculate the maximum width of
the formatted number, and for any number prefix the normally formatted
number (a string) with single and double spaces to obtain a
concatenated string of the same visual width for any number.

Here is an example from a query used as rowsource for a combobox with
formatting to two decimals:

Format([Amount],Space(15-2*Len(Format([Amount],"0.00"))-Abs([Amount]>1000)) & "#,##0.00") AS SMin

and here is an example with formatting to zero decimals:

Format([Amount],Space(14-2*Len([Amount])-Abs([Amount]>1000)) & "#,##0") AS SMin

For other fonts where digits may have individual widths you would have
to expand this to count the occurrence of each digit and then
compensate with spaces.

/gustav


> Listbox rows are essentially strings.  You need to use the Format$()
> function to convert the value to a string in the query if you want a
> single decimal place in the list.