hallo,
Zuerst, ich werd' nicht richtig schlau aus deiner Tabellendefinition.
Eine "normale" selbstreferenzierende Tabelle sieht oft so aus:
Warengruppe:
ID, idParent, Bezeichnung
1, NULL, "Hardware"
2, 1, "PC"
3, 1, "Mobiles"
4, 2, "Notebooks"
5, 3, "Tablets"
Es geht mit dieser Struktur relativ einfach, ist aber bei großen Datenmengen nicht der schnellste Weg:
Damit du gruppieren kannst, brauchst du den sogenannten Pfad in deiner hierarchischen Struktur. Ungefähr so, in einem Standardmodul:
Option Compare Database
Option Explicit
Private m_Hierarchy As DAO.Recordset
Public Sub ClosePath()
m_Hierarchy.Close
Set m_Hierarchy = Nothing
End Sub
Public Sub OpenPath()
If m_Hierarchy Is Nothing Then
Set m_Hierarchy = CurrentDb.OpenRecordset("Warengruppe")
End If
End Sub
Public Function GetPath(AID As Long) As String
OpenPath
GetPath = vbNullString
m_Hierarchy.FindFirst "ID = " & AID
If Not m_Hierarchy.NoMatch Then
GetPath = GetPath(m_Hierarchy) & "\\" & m_Hierarchy![Bezeichnung]
End If
End Function
Die Funktion benutzt du in der Abfrage für deinen Bericht als neues Feld: Pfad: GetPath(idWarengruppe). Danach kannst du dann gruppieren.
Im Report_Close Ereignis solltest du immer ClosePath() aufrufen.
Microsoft MVP Office Access
https://mvp.support.microsoft.com/profile/Stefan.Hoffmann
