Discussion :

[lptht]

Bonjour,

Quand je sélectionne une personne dans la combobox "CboPersonne", j'exécute une requête qui donne le nombre de prêt de cette personne, par mois sur les 12 derniers mois.
Je me suis donc inspiré de ce tutoriel.

Cependant, je bute sur l'erreur suivante:

Erreur d'exécution '3075':
Erreur de syntaxe (opérateur absent) dans l'expression <<(((Thistorique.Personne)= ... <13))>>

Mon code est le suivant:

Code :

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

1
2
3
4
5
6
7
8
9
Dim Sql As String
 
Sql = "TRANSFORM Count(Thistorique.Pret) AS CompteDePret"
Sql = Sql & " SELECT MonthName(Month([DatePret])) AS Mois"
Sql = Sql & " FROM Thistorique"
Sql = Sql & " WHERE (((Thistorique.Personne) = " & Me.CboPersonne & ") And ((DateDiff(" & "m" & "; #[DatePret]#; #Date()#)) < 13))"
Sql = Sql & " GROUP BY MonthName(Month([DatePret])), DateDiff(" & "m" & ";[DatePret];Date())"
Sql = Sql & " ORDER BY DateDiff(" & "m" & ";[DatePret];Date()) DESC"
Sql = Sql & " PIVOT Thistorique.Personne;"

Quelqu'un aurait-il une suggestion?

[madefemere]

Bonjour,

J'écrirais (en enlevant les parenthèses dans la clause Where) :
Dim Sql As String

Code :

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

1
2
3
4
5
6
7
Sql = "TRANSFORM Count(Thistorique.Pret) AS CompteDePret"
Sql = Sql & " SELECT MonthName(Month([DatePret])) AS Mois"
Sql = Sql & " FROM Thistorique"
Sql = Sql & " WHERE Thistorique.Personne = " & Me.CboPersonne & " And DateDiff('m',[DatePret], Date()) < 13"
Sql = Sql & " GROUP BY MonthName(Month([DatePret])), DateDiff('m',[DatePret],Date())"
Sql = Sql & " ORDER BY DateDiff('m',[DatePret],Date()) DESC"
Sql = Sql & " PIVOT Thistorique.Personne;"

Cordialement,

[lptht]

Après enlevé les parenthèses dans la clause Where (Sauf pour les DateDiff) et modifier la syntaxe 'm', j'ai toujours le message d'erreur.

Une autre idée?

Il faut aussi savoir que la cboPersonne renvoie :

Code :

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

"NOM" & " " & "Prenom

L'espace entre le nom et le prénom peut-il être à l'origine de cette erreur?

[Robert1957]

Bonjour lptht, madefemere,

Je suis un peu surpris du message d'erreur, est-ce que Me.CboPersonne te retourne bien quelque chose? Parce que la syntaxe n'est pas bonne tu devrais avoir une erreur de compatibilité. Ton champ est texte donc tu devrais avoir:

Code :

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

WHERE Thistorique.Personne = " &  chr(34) & Me.CboPersonne & chr(34) & " And DateDiff('m',[DatePret], Date()) < 13"

Les valeurs textes doivent être encadré par des ", ce que fait le chr(34).

Bonne journée

[lptht]

Yes, super ça marche! Merci beaucoup Robert1957!

Maintenant, si je veux remplacer la valeur de ma combobox par "Jacques", suffit-il de mettre :

Code :

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

WHERE Thistorique.Personne = " &  "Jacques" & " And DateDiff('m',[DatePret], Date()) < 13"

Et d'une manière général, existe-t-il un tuto clair sur ce type de questions?

[madefemere]

Bonjour,

Trois tuto qui te permettrait d'avancer :
- Tuto sur bases VBA de Maxenxe Hubiche
- Tuto de Cafeine pour apprendre à déboguer en VBA
- Tuto de LedZeppII sur intégration instruction SQL en VBA.

Si ton problème est résolu, pense à le mettre en RESOLU.

Cordialement,