VBA ACCESS SQL

Bonjour,

Je cherche à faire afficher le résultat d'une requête dans un champ de mon menu général, la requête fonctionne mais quand je la transforme en VBA, je me retrouve avec une erreur au niveau du "mm" au niveau de la fonction format dans le SQL ...

Je voudrais que cette requête affiche la somme du champ Montant Facturé pour le mois en cours

Surement quelque chose de bête mais je ne maîtrise pas assez pour savoir ..

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim SQL As String Dim rst As Recordset Dim DateNow As Date Dim Maintenant As String   DateNow = Now() Maintenant = Format(DateNow, "mm")   DoCmd.SetWarnings False   SQL = "SELECT Sum(T_ImportInterventionsClean.[Montant Facturé]) AS [SommeDeMontant Facturé] " & _ "From T_ImportInterventionsClean " & _ "GROUP BY Format([T_ImportInterventionsClean]![Début intervention],"mm") " & _ "HAVING (((Format([T_ImportInterventionsClean]![Début intervention],"mm"))= " & Maintenant & "));"   Set rst = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)   Forms("Menu Général Access").Controls("T_FacturableMois") = rst("[Montant Facturé]")   rst.Close   End Sub

---

Merci d'avance,

Bonne journée,

bonsoir,

Code:

---

1 2	DateNow = Now() Maintenant = Format(DateNow, "mm")

---

- il est inutile de créer des variables si on n'en a pas besoin: Now() est une fonction qui est utilisable dans SQL, alors pourquoi s'en priver ?
- en VBA tout les guillemets se trouvant entre les guillemets de la chaine doivent être doublés (""mm"") ou remplacés par des apostrophes ('mm'):

Code:

---

1 2 3 4

SQL = "SELECT Sum(T_ImportInterventionsClean.[Montant Facturé]) AS [SommeDeMontant Facturé] " & _ "From T_ImportInterventionsClean " & _ "GROUP BY Format([T_ImportInterventionsClean]![Début intervention],'mm') " & _ "HAVING (((Format([T_ImportInterventionsClean]![Début intervention],'mm')) = Format(Now(), 'mm') ));"

---

Super, merci beaucoup ! Ca fonctionne