nachdem ich die Klasse clsSort von Armin Hess (http://www.gaeuwetter.de/access/home) gesehen habe dachte ich die Idee ist eigentlich gut, nur die Umsetzung fand ich nicht gut.
Daher hab ich die Klasse neu geschrieben, ebenfalls ein Beispielformular dazu erstellt - welches beim ersten Öffnen eine Tabelle mit 10 Datensätzen erstellt. Pfad: form/sort
Es geht darum im Endlosformular per Klick auf einen Spaltenkopf die jeweilige Spalte zu sortieren. Der Spaltenkopf wird durch CommandButtons dargestellt, die Zuordnung zur Datenspalte erfolgt per Property.
Beispiel:
- Code: Alles auswählen
Private cSort As ColumnSort
Private Sub Form_Load()
Set cSort = New ColumnSort
End Sub
Private Sub cmdFirstName_Click()
cSort.SortFieldName = "Firstname"
cSort.Sort
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set cSort = Nothing
End Sub
Gruß Andreas