Function Slaganje(ID As Variant) As String Dim Parentni As Variant Start: Parentni = DLookup("Pripadnost", "Tree", "ID=" & ID) If IsNull(Parentni) Then GoTo Kraj Else Slaganje = Str(Parentni) & "." & Str(ID) & "." & Slaganje ID = Parentni GoTo Start End If Kraj: End Functio