Discussion :

[NoBru]

Bonjour,
J'ai une table PERSONNE qui contient les champs TELEPHONE, NOM, PRENOM, ADRESSE, etc...
J'ai la requête suivante

Code :

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

1
2
3
4
SELECT PERSONNE.Tel_Maison, "est à" AS [est à], PERSONNE.NomFamille, PERSONNE.Prénom
FROM PERSONNE
WHERE (((PERSONNE.Tel_Maison)<>" " And (PERSONNE.Tel_Maison) Is Not Null))
ORDER BY PERSONNE.Tel_Maison, PERSONNE.NomFamille, PERSONNE.Prénom;

L'exécution de la Requête donne:

• 04 42 42 42 42 est à DUPOND Jean
  04 42 42 42 42 est à DUPOND Martine
  04 42 42 42 42 est à DUPOND Alain
  04 42 42 42 43 est à DURAND Paul
  04 42 42 42 44 est à BREMOND Nathan

Le souci, vous l'aurez compris, c'est que les personnes qui vivent sous le même toit, ben, ils ont le même numéro de Téléphone !
Le but est donc d'améliorer cette requête afin de ne pas avoir plusieurs fois le même Numéro
J'ai essayer les instructions suivantes sans succès:

Code :

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

1
2
3
Select DistinctRow 
Select Distinct
BY First

Si je pouvais arriver, de façon "simple" à une liste comme celle-ci:

• 04 42 42 42 42 est à DUPOND Jean, Martine, Alain
  04 42 42 42 43 est à DURAND Paul
  04 42 42 42 44 est à BREMOND Nathan

se serait l'idéal

D'avance Merci

[Heureux-oli]

Tu peux faire un group by, mais alors il faut éliminer les prénoms. Ce sont les prénoms qui différencient ten enregistrements.

[NoBru]

C'est bien ce que je me disais, car j'ai essayer :

Code :

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

1
2
3
4
5
SELECT PERSONNE.Tel_Maison, "est à" AS [est à], PERSONNE.NomFamille, PERSONNE.Prénom
FROM PERSONNE
GROUP BY PERSONNE.Tel_Maison, "est à", PERSONNE.NomFamille, PERSONNE.Prénom
HAVING (((PERSONNE.Tel_Maison)<>" " And (PERSONNE.Tel_Maison) Is Not Null))
ORDER BY PERSONNE.Tel_Maison, PERSONNE.NomFamille, PERSONNE.Prénom;

mais cela ne change rien...
En effet, le prénom m'est indispensable pour différencier les mêmes famille (oncle, tante etc...)

[Mors_Ubyte]

Et si tu dis que tu veux le premier de chaque PERSONNE.Tel_Maison :

Code :

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

SELECT First(PERSONNE.Tel_Maison)...

[NoBru]

Nan, que néni, j'ai déjà essayé...

[mcdotta]

Hello, No Bru....


Il faut que tu procèdes en deux temps mais malheureusement tu vas devoir recourir à du code et une table qui stockera les info que tu désires.

Ta table s'appelle PERSONNE et la nouvelle tmpPERSONNE ; cette nouvelle table a pour champ :
fldTel_Maison
fldNomFamille
fldPrénoms

Voici le code ci-dessous, c'est un peu brut de fonderie, attention je l'ai écrit directement sur Développez.com donc je n'ai pas testé.

Laisse nous savoir si cela te convient

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Sub AlimenteTable()
 
   dim strSQL as string
   dim recSET as New ADODB.recordset
   dim recSETPrénom as New ADODB.recordset
   dim recSETTmp as New ADODB.recordset
   dim strPrénoms as string
 
   strSQL = "SELECT DISTINCT PERSONNE.Tel_Maison,   
   strSQL = strSQL & " PERSONNE.NomFamille
   strSQL = strSQL & "  FROM PERSONNE 
   strSQL = strSQL & " WHERE (((PERSONNE.Tel_Maison)<>" " And 
   strSQL = strSQL & " (PERSONNE.Tel_Maison) Is Not Null)) 
   recSET.Open strSQL, currentProject.connection,adOpenKeyset, adLockOptimistic   
 
   strSQL = "DELETE tmpPERSONNE FROM tmpPERSONNE"
   CurrentProject.Connection.Execute strSQL
   CurrentProject.Connection.Errors.Clear
 
   strSQL = "SELECT tmpPERSONNE.* FROM tmpPERSONNE"
   recSETPrénoms, currentProject.connection,adOpenKeyset, adLockOptimistic   
 
   if recSET.EOF = false and recSET.BOF = false then
      Do While Not recSET.EOF
          recSETPrénoms.AddNew
             recSETPrénoms![fldTel_Maison] = recSET![Tel_Maison]
             recSETPrénoms![fldNomFamille] = recSET![NomFamille]
 
             strSQL = "SELECT PERSONNE.* FROM PERSONNE"
             strSQL = strSQL & "WHERE PERSONNE.Tel_Maison='" 
             strSQL = strSQL & recSET![Tel_Maison] &"'"
             recSETTmp..Open strSQL, currentProject.connection,adOpenKeyset, adLockOptimistic   
 
             If recSETTmp.EOF = false and recSETTmp.BOF = False then
                  Do While Not recSETTmp.EOF
                       if strPrénoms="" then
                           strPrénoms = recsetTMP![PRENOM]
                       else
                          strPrénoms = strPrénoms & "," & recsetTMP![PRENOM]
                       endif
                       recSETTMP.MoveNext
                 Loop
             Endif
             recSETTMP.Close
             recSETPrénoms![fldPrénoms] = strPrénoms
             recSETPrénoms.Update
        recSET.MoveNext
     Loop
  endif
 recSET.Close
recSETTMP.Close
End Sub

[Petogaz]

salut,

une fonction qu'a développée Tofalu et qui répond à ton problème http://access.developpez.com/sources...QLLigneColonne

[NoBru]

Boudu !!!
Ben, j'va cogiter tous ça,
En tous K, merci infiniment à tous
J'vous tiens au courant
@+

[NoBru]

Bonjour,
Eh bien oui, grâce à vous mon problème est résolu !

Un grand merci à "mcdotta" qui m'a filé un code qui, à quelques adaptations prêts, fonctionne à merveille
(il manquait entre autre dans le tout premier strSQL

Code :

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

ORDER BY PERSONNE.Tel_Maison, PERSONNE.NomFamille

mais j'étais prévenu)
@+

[mcdotta]

C'est coool.

Merci pour ton feed-back

Mc