Somme des descendants

**Gebudi.** · 10/03/2007, 17h29

Bonjour,
j'essaye de compter le nombre de descendants d'une personne.
J'ai une table "personne" reliée à elle même via les relations: "A pour père"et "A pour mère".
Je peux facilement compter le nombre d'enfants qu'a une personne en faisant un regroupement sur son identifiant dans le champ "num_père" ou "num_mère", mais ce que je voudrais faire, c'est compter le nombre de descendants total, c'est à dire la somme de chaque génération.
Quelqu'un pourrait m'aider pour faire la requête car je ne vois pas comment faire?
Merci

seb92400 · 10/03/2007, 17h48

J'ai une table "personne" reliée à elle même

euh...

As-tu un extrait de tes tables ?

**Gebudi.** · 10/03/2007, 18h50

Je ne vois pas ce que tu veux dire par extrait, mais donc ce que je voulais dire, c'est que j'ai dans ma base de donnée, la table "Personne" reliée à elle même par les associations "A pour père"et "A pour mère". C'est à dire, une personne a un et un seul père, et une et une seule mère.

**helas** · 10/03/2007, 18h58

Un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Nb = NbDescendants(17)

Si 17 est le numero de l'enfant (champ NumeroAuto Num par exemple), on extrait le num_pere avec la fonction DLookUp
n = num_pere le père devient l'enfant et on recommence jusqu'à ce qu'il n'y ait plus de père num_pere = 0
Le nombre de descendants est compté à chaque boucle
A adapter pour rechercher du coté de la mère aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Function NbDescendants(n As Long) As Long
 Dim num_pere As Long
 NbDescendants = 0
 Do
  num_pere = DLookup("[num_pere]", "tbNoms", "[num]=" & n)
  If num_pere = 0 Then Exit Do
  n = num_pere
  NbDescendants = NbDescendants + 1
 Loop
End Function

**Gebudi.** · 11/03/2007, 00h39

Merci, je vais regarder ça.

**Gebudi.** · 11/03/2007, 11h53

Comme tu l'as dit:

le père devient l'enfant

ce qui veut dire que cette fonction compte le nombre d'ascendants et non de descendants.

**Gebudi.** · 11/03/2007, 14h05

j'ai essayé d'adapter la fonction précédente à mon cas, mais le problème c'est que la fonction Dlookup ne peut renvoyer qu'un seule valeur alors qu'un père peut avoir plusieurs enfants.
Quelqu'un aurait une idée?

**bitou11** · 11/03/2007, 15h34

A ce moment moment là, tu fais un recordest, il contiendra toutes les données que tu souhaite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set rst=currentdb.openrecordet("Select * from parents where num=" & numenfant &";")
 
rst.movefirst
while not rst.eof
'--Traitements
wend

dis moi si ça te conviens
@+

**Gebudi.** · 11/03/2007, 16h31

Avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Function NbDescendants(n As Long) As Long
    Dim num_pere As Long
    NbDescendants = 0
 
    Set rst = CurrentDb.OpenRecordset("Select * from Personne where num_pere=" & n & ";")
 
    rst.MoveFirst
    While Not rst.EOF
        '--Traitements
    Wend
End Function

J'obtiens l'erreur trop peu d'arguments, 1 attendu sur la ligne du openrecordset.
Et pour compter l'ensemble des descendants, est-ce que c'est possible de passer par une fonction récursive?

**bitou11** · 11/03/2007, 17h22

Envoyé par Gebudi.

Avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Function NbDescendants(n As Long) As Long
    Dim num_pere As Long
    NbDescendants = 0
 
    Set rst = CurrentDb.OpenRecordset("Select * from Personne where num_pere=" & n & ";")
 
    rst.MoveFirst
     While Not rst.EOF
        '--Traitements
    Wend
End Function

J'obtiens l'erreur trop peu d'arguments, 1 attendu sur la ligne du openrecordset.
Et pour compter l'ensemble des descendants, est-ce que c'est possible de passer par une fonction récursive?

Fais un msgbox de : "Select * from Personne where num_pere=" & n & ";" juste avant le openrecordset pour voir s'il y a pas une erreur de syntaxe.

Moi je vois bien une fonction qui fait un select de tous les enfants du parent, puis pour chaque enfant, on test s'il y a un enfant avec un autre recordset.
en gros :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Punlic nbenf as integer
Sub nbenf(n as long)
 
Set rstEnf = CurrentDb.OpenRecordset("Select * from Personne where num_pere=" & n & ";")
nbenf=0
While not rstEnf.eof
   nbenf=nbenf+1
	if rstEnf![NumPere]<>”” then
   		nbenf(rstEnf![NumPere])
	end if
rstEnf.movenext
wend
 
end sub

Hum bon c'est taper à l'arrache, à tester

Dis moi si ça marche, je suis suceptible de m'en servir un jour

@+

**Tofalu** · 11/03/2007, 18h05

Bonjour,

Pour ma part, je verrais plus une fonction récursive

Prenons cette table :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
NumPersonne	Prenom	NumPere
1	Pauk	
2	Jacques	1
3	Lucien	
4	Marc	1
5	Edouard	2
6	Setfan	5
7	Hector	6
8	Sofia	6
9	Lucie	6
10	Martin	5
11	Edmon	3

On va utiliser cette requête paramétrée nommée r1 qui retourne les enfants d'une personne donnée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
PARAMETERS pPers Long;
SELECT NumPersonne
FROM tblPersonne
WHERE NumPere=pPers;

Exemple pour la personne 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
NumPersonne
2
4

Ensuite cette fonction de comptage en VBA (nécessite la référence DAO)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function getNbDescendant(intNumPersonne As Integer, Optional odb As DAO.Database) As Integer
 
    Dim oQdf As DAO.QueryDef
    Dim oRst As DAO.Recordset
 
    If Not IsMissing(odb) Then Set odb = CurrentDb
    Set oQdf = odb.QueryDefs("r1")
    With oQdf
        .Parameters("pPers").Value = intNumPersonne
        Set oRst = .OpenRecordset
    End With
    With oRst
        While Not .EOF
            getNbDescendant = getNbDescendant + 1 + getNbDescendant(.Fields(0).Value, odb)
            .MoveNext
        Wend
        .Close
    End With
 
    Set oQdf = Nothing
    Set oRst = Nothing
 
End Function

Que l'on utilise ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
    MsgBox getNbDescendant(1)
End Sub

Et qui retourne bien 8

**Gebudi.** · 11/03/2007, 18h07

Voilà ce que j'ai fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function NbDescendants(n As Long)
 
Set rstenf = CurrentDb.OpenRecordset("Select * from Personne where num_pere=" & n & ";")
 
While Not rstenf.EOF
    nbenf = nbenf + 1
    NbDescendants (rstenf![NUM_Personne])
    rstenf.MoveNext
Wend
End Function

Mais la récursivité ne marche pas, il ne me compte que la première génération.

[Edit] Tofalu, je vais essayer ta solution et je te tiens au courant.
Merci en tout cas pour votre aide, ça fait plaisir!!!

**Gebudi.** · 11/03/2007, 18h21

Ca marche...presque.
En fait, avec ta solution tofalu, il compte bien le nombre d'enfants d'un père, mais si un homme a une fille, que cette fille a un enfant, ce dernier ne sera pas compté car c'est via la relation num_mere qu'ils sont reliés.

Je continue de regarder quand même de mon côté voir si je trouve, mais n'étant pas très habitué à DAO et ces objets, j'ai un peu de mal à tout comprendre.