Erreur syntaxe code création requête

**C15nantes** · 22/09/2015, 11h24

Bonjour à tous et à toutes,

Grâce à l'un d'entre vous, j'ai obtenu il y a pas mal de temps un code pour créer une requête déclenchée par un bouton de commande placé sur un formulaire.

Dans celui-ci, je saisis une valeur (par exemple 12, valeur de référence) et grâce à ce bouton je créé un requête qui doit m'afficher entre autre
le champ total du (= Du12+Du13+Du14+Du15+16).
C'est en fait la somme : valeur de référence +1 + 2 + 3 + 4
La modification que j'ai faite du code initial fonctionnait, ma requête m'affichait bien le total du attendu.

Je me suis aperçu qu'il me fallait faire aussi apparaitre dans ma requête les champs Du12, Du13, Du14, Du15 et Du16.

J'ai modifié le code en conséquence pour rajouter ces nouveaux champs.
J'ai donc écrit 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
Public Sub Cotis_Dues(NumDebut As Integer)
  Dim sSql As String
  Dim q As QueryDef
  sSql = "SELECT [T Adhérents].N°Adherent, [T Adhérents].Nom, [T Adhérents].Prenom, " _
          & "[Du" & Format(NumDebut, "00") & "]+[Du" & Format(NumDebut + 1, "00") & "]" _
          & "+[Du" & Format(NumDebut + 2, "00") & "]+[Du" & Format(NumDebut + 3, "00") & "]" _
          & "+[Du" & Format(NumDebut + 4, "00") & "]" _
          & " AS [Total dû]" _
               & "[T Adhérents].Du" & Format(NumDebut, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut + 1, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut + 2, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut + 3, "00") & "," _
               & "[T Adhérents].Du" & Format(NumDebut + 4, "00") & "," _
          & " FROM [T Adhérents] " _
          & " WHERE ((([T Adhérents].Adherent) = True)) ORDER BY [T Adhérents].Nom, [T Adhérents].Prenom;"
  Set q = CurrentDb.QueryDefs("R Cotis_Dues")
  q.SQL = sSql
End Sub

Ne maitrisant pas (et le mot est faible) l’écriture de code, j'obtiens un message indiquant une erreur de syntaxe (ponctuation ?).

Ce n'est certainement rien pour l'un d'entre vous de corriger cela.

Merci d'avance pour votre réponse.

A+

C15Nantes

**ClaudeLELOUP** · 22/09/2015, 11h49

Bonjour,

Je crois me souvenir que tu avais bricolé une base exemple non confidentielle. Peux-tu la poster pour illustrer ta question ?

**C15nantes** · 22/09/2015, 12h09

Bonjour Claude,

Je n'ai plus hélas cette base non confidentielle, perdue dans le crash d'un disque externe.

A défaut je t'adresse des copies écrans du formulaire de saisie et de la requête que je veux obtenir au final.

Si je me souviens bien, c'est toi qui m'avais donné le code.

Merci d'avance

A+

C15Nantes

**ClaudeLELOUP** · 22/09/2015, 13h09

Je n'ai plus hélas cette base non confidentielle, perdue dans le crash d'un disque externe.

Mon matériel est meilleur que le tien !

En P.J., la db en question (modifiée pour supprimer « Du 17 »)

Pour ce qui est de ton code, ta ligne 13 aurait dû être :

Code :

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

& "[T Adhérents].Du" & Format(NumDebut + 4, "00")  _

(Pas de virgule après le dernier !)

**C15nantes** · 22/09/2015, 14h14

Rebonjour Claude,

Merci, cela marche parfaitement, la discussion peut être considérée comme résolue;

Quant à mon matériel, il fatigue de plus en plus et j'ai bien l'intention de le remplacer sous peu.

Bonne fin d'après/midi

A+

C15Nantes

**C15nantes** · 23/09/2015, 10h29

Bonjour à tous et à toutes

Je reviens sur ce fil pour poser une question supplémentaire.

Dans la base concernée (en PJ), j'ai formulaire F suivi paiement des cotisations.

J'y récapitule les cotisations payées, non payées... entre les années Du12 à Du16 (du fait que par mon formulaire1 j'ai saisi 12 comme année de référence).
C'est l'année de référence + les 4 suivantes qui m'intéressent

Comment corriger ces contrôles
Texte62 à 66
Texte50 à 54
Texte36 à 40
Du16_étiquette à Du12_étiquette

pour que cela actualisé par rapport à mon année de référence ?
L'année prochaine, ce sont les données du13 à du 17 qui m'intéresseront.

Merci de votre aide

A+

C15Nantes

20150923C15nantesBase_test_2000.zip

**ClaudeLELOUP** · 23/09/2015, 12h01

Bonjour,

Ce serait beaucoup plus simple que tu désignes le N° de départ qui t'intéresse à l'ouverture du formulaire du paiement des cotisations, au lieu de passer d'abord par la création de la requête.

Qu'en penses-tu ?

**C15nantes** · 23/09/2015, 14h04

Bonjour Claude

Le seul truc, c'est que le requête sert au trésorier pour le rappel des cotisations envoyé avec la convocation à l'assemblée générale.
Donne moi la solution simple, je verrai si je peux m'en contenter

Merci
C15Nantes