Public Sub TestSort() CurrentDb.Execute \"DELETE * FROM TempSort;\" Sort 0, 1 End Sub
Public Sub Sort(rec As Long, idx As Long) Dim RA As Recordset, fl As Field Set RA = CurrentDb.OpenRecordset(\"SELECT * FROM Tema WHERE parent_objno=\" & rec & \" ORDER BY Sort;\") While Not RA.EOF CurrentDb.Execute \"INSERT INTO TempSort SELECT \" & idx & \" AS Index, * FROM Tema WHERE objno=\" & RA!objno & \";\" Sort RA!objno, idx + 1 RA.MoveNext Wend Set RA = Nothing End Sub
VEJLEDNING: Opret en tabel, som hedder TempSort. Den skal indeholde alle dine felter fra tabellen Tema og et felt (langt heltal) som hedder Index. Sørg for at det øverste lag i din tabel (hovedtema) har parent_objid=0, og kør koden TestSort. Derefter kan du lave en forespørgsel, som bygger på TempSort, og som sorterer efter Index, Sort.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.