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 : 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
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,