title image


Smiley Pack halt nicht nur die Feldnamen...
... sondern auch noch die Sortierfolge in dein Kombifeld, also z.B. als Werteliste:



.rowsource = "Nachname ASC;Nachname DESC;Kundennummer ASC;Kundennummer DESC"





Oder leg ein Kontrollkästchen neben dein Kombifeld, mit dem man die Sortierfolge einstellen kann:



Private Sub Sortierung_AfterUpdate()

If Me!Sortierung = "Keine Sortierung" Or IsNull(Me!Sortierung) Then

Me.OrderByOn = False

Else

Me.OrderBy = Me!Sortierung & IIF(Me!Kontrollkaestchen," ASC"," DESC")

Me.OrderByOn = True

End If

End Sub



Private Sub Kontrollkaestchen_Click

Call Sortierung_AfterUpdate

end sub



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: