Expert: Geoff - 7/13/2006

Question
I have the following code that creates a list box of numbers.  How do I change the code so that the numbers are in numerical order either ascending or descending?


Option Compare Database



Private Sub Form_Load()
lstQuoteNumbers.SetFocus
SendKeys "{down}"
End Sub

Private Sub lstQuoteNumbers_GotFocus()
Me.lstQuoteNumbers.ListIndex = Me.lstQuoteNumbers.ListCount - 1
End Sub
Private Sub cmdclosequotenumbersform_Click()
On Error GoTo Err_cmdclosequotenumbersform_Click


   DoCmd.Close

Exit_cmdclosequotenumbersform_Click:
   Exit Sub

Err_cmdclosequotenumbersform_Click:
   MsgBox Err.Description
   Resume Exit_cmdclosequotenumbersform_Click
   
End Sub


Answer
Elaine, Hello,

Try setting the record source for the listbox from a table direct (eg tblQuotes) to a select statement as follows:

SELECT QuoteNumber FROM tblQuotes ORDER BY QuoteNumber;

or

SELECT QuoteNumber FROM tblQuotes ORDER BY QuoteNumber DESC;

if you want the list by the Quote Number descending

Kind regards

Geoff :-)