Discussion :

[C15nantes]

Bonjour à tous et à toutes,

Le code suivant me crée la requête R Cotis_DuesAG :

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
Public Sub Cotis_DuesAG(NumDebut As Integer)
  Dim sSql As String
  Dim q As QueryDef
  sSql = "SELECT [T Adhérents].N°Adherent, [T Adhérents].Titre, [T Adhérents].Nom, [T Adhérents].Prenom, " _
          & " [T Adhérents].DateAdhesion, [T Adhérents].Adresse, IIf(Mid([T Adhérents].CP,3,1)='-', Mid([T Adhérents].CP , InStr([T Adhérents].CP,'-')+1), [T Adhérents].CP) AS CP1, [T Adhérents].Ville, [T Adhérents].Pays, " _
          & "[Du" & Format(NumDebut - 4, "00") & "]+[Du" & Format(NumDebut - 3, "00") & "]" _
          & "+[Du" & Format(NumDebut - 2, "00") & "]+[Du" & Format(NumDebut - 1, "00") & "]" _
          & "+[Du" & Format(NumDebut + 0, "00") & "]" _
          & " AS [Total dû], " _
               & "[T Adhérents].Du" & Format(NumDebut - 4, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 3, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 2, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 1, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut + 0, "00") & "," _
               & " FROM [T Adhérents] " _
               & " DCount("*",[R Cotis_DuesAG],"N°Adherent <" & [N°Adherent])+1 AS N°ligne, " _
               & " WHERE ((([T Adhérents].Adherent) = True)) ORDER BY [T Adhérents].Nom, [T Adhérents].Prenom;"
  Set q = CurrentDb.QueryDefs("R Cotis_DuesAG")
  q.SQL = sSql
  
End Sub

J'ai modifié la requête initiale en rajoutant la ligne en rouge pour avoir une colonne "N°ligne" me permettant de numéroter les enregistrements obtenus.
Le débogueur me signale une erreur de syntaxe dans cette ligne.
Par ailleurs cette ligne est-elle bien placée dans la procédure dans la mesure où il est fait référence à R Cotis_DuesAG qui est définie plus loin ?

Merci de votre aide.

A+

C15

[User]

Bonjour,

J'essaierais ceci :

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
Public Sub Cotis_DuesAG(NumDebut As Integer)
  Dim sSql As String
  Dim q As QueryDef
  sSql = "SELECT [T Adhérents].N°Adherent, [T Adhérents].Titre, [T Adhérents].Nom, [T Adhérents].Prenom, " _
          & " [T Adhérents].DateAdhesion, [T Adhérents].Adresse, IIf(Mid([T Adhérents].CP,3,1)='-', Mid([T Adhérents].CP , InStr([T Adhérents].CP,'-')+1), [T Adhérents].CP) AS CP1, [T Adhérents].Ville, [T Adhérents].Pays, " _
          & "[Du" & Format(NumDebut - 4, "00") & "]+[Du" & Format(NumDebut - 3, "00") & "]" _
          & "+[Du" & Format(NumDebut - 2, "00") & "]+[Du" & Format(NumDebut - 1, "00") & "]" _
          & "+[Du" & Format(NumDebut + 0, "00") & "]" _
          & " AS [Total dû], " _
               & "[T Adhérents].Du" & Format(NumDebut - 4, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 3, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 2, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 1, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut + 0, "00") & "," _
               & " FROM [T Adhérents] " _
               & " DCount("*","[T Adhérents]","([T Adhérents].Adherent = True) and [N°Adherent]<" & [N°Adherent])+1 AS [N°ligne], " _
               & " WHERE ([T Adhérents].Adherent = True) ORDER BY [T Adhérents].Nom, [T Adhérents].Prenom;"
  Set q = CurrentDb.QueryDefs("R Cotis_DuesAG")
  q.SQL = sSql
 
End Sub

Par contre j'aurais une question :

Le N°Ligne dépend de l'ordre [T Adhérents].Nom, [T Adhérents].Prenom ou du numéro d'adhérent ?

Cdlt,

[nico84]

Bonjour,

Pour que le compteur fonctionne il doit être dans le SELECT et suivre les mêmes règles que le WHERE et l'ORDER BY. Enfin comme on interroge 2 fois la même table il faut utiliser des alias :

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
Public Sub Cotis_DuesAG(NumDebut As Integer)
  Dim sSql As String
  Dim q As QueryDef
  sSql = "SELECT N°Adherent, Titre, Nom, Prenom, " _
          & " DateAdhesion, Adresse, IIf(Mid(CP,3,1)='-', Mid(CP , InStr(CP,'-')+1), CP) AS CP1, Ville, Pays, " _
          & "[Du" & Format(NumDebut - 4, "00") & "]+[Du" & Format(NumDebut - 3, "00") & "]" _
          & "+[Du" & Format(NumDebut - 2, "00") & "]+[Du" & Format(NumDebut - 1, "00") & "]" _
          & "+[Du" & Format(NumDebut + 0, "00") & "]" _
          & " AS [Total dû], " _
               & "Du" & Format(NumDebut - 4, "00") & "," _
               & "Du" & Format(NumDebut - 3, "00") & "," _
               & "Du" & Format(NumDebut - 2, "00") & "," _
               & "Du" & Format(NumDebut - 1, "00") & "," _
               & "Du" & Format(NumDebut + 0, "00") & "," _
               & "(select count(*) from [T Adhérents] x where Adherent and x.nom<a.nom or (x.nom=a.nom and x.prenom<=a.prenom)) as numligne" _
               & " FROM [T Adhérents] a " _
                & " WHERE Adherent ORDER BY Nom, Prenom;"
  Set q = CurrentDb.QueryDefs("R Cotis_DuesAG")
  q.SQL = sSql
 
End Sub

En l'occurence ça peut se faire aussi avec un Dcount je pense...

[C15nantes]

Bonjour,

désolé, cela ne fonctionne pas.
Par ailleurs, le N° ligne dépend de l'ordre N°Adhérent

Merci d'avance.
C15

Bonjour,

J'essaierais ceci :

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
Public Sub Cotis_DuesAG(NumDebut As Integer)
  Dim sSql As String
  Dim q As QueryDef
  sSql = "SELECT [T Adhérents].N°Adherent, [T Adhérents].Titre, [T Adhérents].Nom, [T Adhérents].Prenom, " _
          & " [T Adhérents].DateAdhesion, [T Adhérents].Adresse, IIf(Mid([T Adhérents].CP,3,1)='-', Mid([T Adhérents].CP , InStr([T Adhérents].CP,'-')+1), [T Adhérents].CP) AS CP1, [T Adhérents].Ville, [T Adhérents].Pays, " _
          & "[Du" & Format(NumDebut - 4, "00") & "]+[Du" & Format(NumDebut - 3, "00") & "]" _
          & "+[Du" & Format(NumDebut - 2, "00") & "]+[Du" & Format(NumDebut - 1, "00") & "]" _
          & "+[Du" & Format(NumDebut + 0, "00") & "]" _
          & " AS [Total dû], " _
               & "[T Adhérents].Du" & Format(NumDebut - 4, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 3, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 2, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 1, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut + 0, "00") & "," _
               & " FROM [T Adhérents] " _
               & " DCount("*","[T Adhérents]","([T Adhérents].Adherent = True) and [N°Adherent]<" & [N°Adherent])+1 AS [N°ligne], " _
               & " WHERE ([T Adhérents].Adherent = True) ORDER BY [T Adhérents].Nom, [T Adhérents].Prenom;"
  Set q = CurrentDb.QueryDefs("R Cotis_DuesAG")
  q.SQL = sSql
 
End Sub

Par contre j'aurais une question :

Le N°Ligne dépend de l'ordre [T Adhérents].Nom, [T Adhérents].Prenom ou du numéro d'adhérent ?

Cdlt,

[C15nantes]

Bonjour,

Désolé mais je ne comprends pas ce que tu ceux dire par
& " FROM [T Adhérents] a " _

Code :

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

x.nom<a.nom

et à quoi correspond le x après Where

Merci de ta réponse

Bonjour,

Pour que le compteur fonctionne il doit être dans le SELECT et suivre les mêmes règles que le WHERE et l'ORDER BY. Enfin comme on interroge 2 fois la même table il faut utiliser des alias :

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
Public Sub Cotis_DuesAG(NumDebut As Integer)
  Dim sSql As String
  Dim q As QueryDef
  sSql = "SELECT N°Adherent, Titre, Nom, Prenom, " _
          & " DateAdhesion, Adresse, IIf(Mid(CP,3,1)='-', Mid(CP , InStr(CP,'-')+1), CP) AS CP1, Ville, Pays, " _
          & "[Du" & Format(NumDebut - 4, "00") & "]+[Du" & Format(NumDebut - 3, "00") & "]" _
          & "+[Du" & Format(NumDebut - 2, "00") & "]+[Du" & Format(NumDebut - 1, "00") & "]" _
          & "+[Du" & Format(NumDebut + 0, "00") & "]" _
          & " AS [Total dû], " _
               & "Du" & Format(NumDebut - 4, "00") & "," _
               & "Du" & Format(NumDebut - 3, "00") & "," _
               & "Du" & Format(NumDebut - 2, "00") & "," _
               & "Du" & Format(NumDebut - 1, "00") & "," _
               & "Du" & Format(NumDebut + 0, "00") & "," _
               & "(select count(*) from [T Adhérents] x where Adherent and x.nom<a.nom or (x.nom=a.nom and x.prenom<=a.prenom)) as numligne" _
               & " FROM [T Adhérents] a " _
                & " WHERE Adherent ORDER BY Nom, Prenom;"
  Set q = CurrentDb.QueryDefs("R Cotis_DuesAG")
  q.SQL = sSql
 
End Sub

En l'occurence ça peut se faire aussi avec un Dcount je pense...

[nico84]

x et a sont des alias pour distinguer les 2 appels de la même table

[User]

Il faudrait enlever la virgule après as numligne.

Quand vous dites que ça ne fonctionne pas, avez-vous un message d'erreur ?


Cdlt

[C15nantes]

Bonjour User,

Le débogueur m'annonce une erreur de compil / attente fin d'instruction.
N'y aurait-il pas un problème de parenthèse dans le critère de Dcount ?

Merci
C15

[User]

Essayez ceci :

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
 
Public Sub Cotis_DuesAG(NumDebut As Integer)
  Dim sSql As String
  Dim q As QueryDef
  sSql = "SELECT [T Adhérents].N°Adherent, [T Adhérents].Titre, [T Adhérents].Nom, [T Adhérents].Prenom, " _
          & " [T Adhérents].DateAdhesion, [T Adhérents].Adresse, IIf(Mid([T Adhérents].CP,3,1)='-', Mid([T Adhérents].CP , InStr([T Adhérents].CP,'-')+1), [T Adhérents].CP) AS CP1, [T Adhérents].Ville, [T Adhérents].Pays, " _
          & "[Du" & Format(NumDebut - 4, "00") & "]+[Du" & Format(NumDebut - 3, "00") & "]" _
          & "+[Du" & Format(NumDebut - 2, "00") & "]+[Du" & Format(NumDebut - 1, "00") & "]" _
          & "+[Du" & Format(NumDebut + 0, "00") & "]" _
          & " AS [Total dû], " _
               & "[T Adhérents].Du" & Format(NumDebut - 4, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 3, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 2, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut - 1, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut + 0, "00") & "," _         
               & " DCount('*','[T Adhérents]','(Adherent = True) and [N°Adherent]<' & [N°Adherent])+1 AS [N°ligne] " _
               & " FROM [T Adhérents] " _
               & " WHERE (Adherent = True) ORDER BY [T Adhérents].Nom, [T Adhérents].Prenom;"
  MsgBox  sSql
  Set q = CurrentDb.QueryDefs("R Cotis_DuesAG")
  q.SQL = sSql
 
End Sub

J'ai mis un :

Code :

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

MsgBox  sSql

Pour que vous puissiez contrôler la synthaxe du SQL avant son affectation.

Cdlt,

[nico84]

N'y aurait-il pas un problème de parenthèse dans le critère de Dcount ?

Il y a surtout embrouille entre les " limiteurs de string et les " des arguments du dcount (pour lequel on peut utiliser ')
C'est pour éviter ce genre de problème que je trouve plus lisible (et plus standard et moins limité) l'utilisation d'un sous select

[User]

Il y a surtout embrouille entre les " limiteurs de string et les " des arguments du dcount (pour lequel on peut utiliser ')
C'est pour éviter ce genre de problème que je trouve plus lisible (et plus standard et moins limité) l'utilisation d'un sous select

Tu as raison Nico, (difficile d'être au four et au moulin !), j'avais oublié qu'on était déjà dans une chaîne et je n'ai pas voulu lui proposer une sous-requête voulant rester au plus proche de son code :

Code :

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

& " DCount('*','[T Adhérents]','(Adherent = True) and [N°Adherent]<' & [N°Adherent])+1 AS [N°ligne] " _

De plus il faudrait s'entendre :

Est-ce nécessaire de trier par nom et prénom, dans la mesure ou on souhaire avoir le N°Ligne correspondant au [N°Adherent] ?

Cdlt,

[C15nantes]

Bonsoir à tous les 2,

J'ai combiné vos 2 réponses. Effectivement il faut toujours se méfier des strings

Maintenant que tout est corrigé, je peux vous rassurer, s'il en était besoin, vos 2 procédures marchent parfaitement.


Par ailleurs, au niveau du tri, je le fais ensuite et ailleurs.

En effet, cette requête est la source d'un publipostage par mail fait avec Word pour des adhérents d'une association.
Or il y a une limitation de 500 mails max par envoi et/ou par jour.
Lors de mon publipostage, je ferai un tri sur le N° de ligne et ainsi je pourrai sélectionner par exemple les 400 premiers adhérents pour un 1er envoi, et les 150 autres pour un 2 ième.

Merci encore de votre aide

Bonne soirée

C15

Cette discussion peut-être considéré comme résolue...mais je ne sais pas comment le déclarer

[C15nantes]

Bonjour,

Je reviens dans le fil de la discussion.
En effet, la numérotation des lignes fonctionne bien, mais contrairement à ce que je pensais, lors du publipostage, cela ne répond pas à ce que j'attendais.

Ma requête est la suivante :

Code :

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

1
2
3
4
SELECT [T Adhérents].N°Adherent, [T Adhérents].Titre, [T Adhérents].Nom, [T Adhérents].Prenom, [T Adhérents].DateAdhesion, [T Adhérents].Email, [T Adhérents].Adresse, IIf(Mid([T Adhérents].CP,3,1)='-',Mid([T Adhérents].CP,InStr([T Adhérents].CP,'-')+1),[T Adhérents].CP) AS CP1, [T Adhérents].Ville, [T Adhérents].Pays, [Du13]+[Du14]+[Du15]+[Du16]+[Du17] AS [Total dû], [T Adhérents].Du13, [T Adhérents].Du14, [T Adhérents].Du15, [T Adhérents].Du16, [T Adhérents].Du17, DCount('*','[T Adhérents]','(Adherent = True) and [N°Adherent]<' & [N°Adherent])+1 AS N°ligne
FROM [T Adhérents]
WHERE ((([T Adhérents].Adherent)=True))
ORDER BY [T Adhérents].Nom, [T Adhérents].Prenom;

J'ai donc une numérotation de toutes mes lignes, avec ou sans adresse Email.

Or je voudrais numéroter les lignes après n'avoir filtrer que les emails.
Si je modifie ma requête ainsi :

Code :

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

1
2
3
4
SELECT [T Adhérents].N°Adherent, [T Adhérents].Titre, [T Adhérents].Nom, [T Adhérents].Prenom, [T Adhérents].DateAdhesion, [T Adhérents].Email, [T Adhérents].Adresse, IIf(Mid([T Adhérents].CP,3,1)='-',Mid([T Adhérents].CP,InStr([T Adhérents].CP,'-')+1),[T Adhérents].CP) AS CP1, [T Adhérents].Ville, [T Adhérents].Pays, [Du13]+[Du14]+[Du15]+[Du16]+[Du17] AS [Total dû], [T Adhérents].Du13, [T Adhérents].Du14, [T Adhérents].Du15, [T Adhérents].Du16, [T Adhérents].Du17, DCount('*','[T Adhérents]','(Adherent = True) and [N°Adherent]<' & [N°Adherent])+1 AS N°ligne
FROM [T Adhérents]
WHERE ((([T Adhérents].Email)<>" ") AND (([T Adhérents].Adherent)=True))
ORDER BY [T Adhérents].Nom, [T Adhérents].Prenom;

la numérotation n'est pas continue.

Comment numéroter les lignes après le filtre sur les Emails ?

Merci de votre aide.

A+

c15

[User]

Bonjour,

Il faut que le critère de la requête corresponde au critère de la fonction de domaine DCount :

Code sql :

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

1
2
3
4
SELECT [T Adhérents].N°Adherent, [T Adhérents].Titre, [T Adhérents].Nom, [T Adhérents].Prenom, [T Adhérents].DateAdhesion, [T Adhérents].Email, [T Adhérents].Adresse, IIf(Mid([T Adhérents].CP,3,1)='-',Mid([T Adhérents].CP,InStr([T Adhérents].CP,'-')+1),[T Adhérents].CP) AS CP1, [T Adhérents].Ville, [T Adhérents].Pays, [Du13]+[Du14]+[Du15]+[Du16]+[Du17] AS [Total dû], [T Adhérents].Du13, [T Adhérents].Du14, [T Adhérents].Du15, [T Adhérents].Du16, [T Adhérents].Du17, DCount('*','[T Adhérents]','(Adherent = True) and ([Email)<>' ') and [N°Adherent]<' & [N°Adherent])+1 AS N°ligne
FROM [T Adhérents]
WHERE ((([T Adhérents].Email)<>" ") AND (([T Adhérents].Adherent)=True))
ORDER BY [T Adhérents].Nom, [T Adhérents].Prenom;

C'est la 1ère idée qui me vient

Cdlt,

[C15nantes]

Bonjour,

Merci de cette réponse qui fonctionne parfaitement.
J'ai juste eu à corriger une erreur de saisie dans Dcount

Code :

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

([Email)<>' ')

J'ai remplacé la ) après Email par ] et le tour est joué.

Merci encore
A+

C15