Sortierung mit Zähler

[linuxluder]

Hi,

ich habe es so umgesetzt:

Code [Auswählen] Erweitern

Private Sub okt_Bezeichnungsfeld_Click()
   Dim strsql As String
   c = c + 1
   If c Mod 2 = 0 Then
   strsql = "SELECT menge.* FROM menge ORDER BY menge.okt ASC;"
   Else
   strsql = "SELECT menge.* FROM menge ORDER BY menge.okt DESC; "
   End If
   Me.RecordSource = strsql
End Sub


EDIT

Danke, ich habs. Es lag daran, dass ich statt 0 einfach nichts in den Feldern hatte und somit klappte die Sortierung nicht ordentliche, das erst die leeren Felder gelistet wurden.