Bonjour à tous.
J'ai un code qui m'exécute une requête directement dans VBA. J'aimerais savoir quel genre de code je dois générer pour qu'il affiche les résultats de ma requête directement dans un graphique. Je ne vois pas comment le faire, et je ne sais même pas si c'est possible! En gros, ma requête va me chercher un nombre de commandes ar mois. J'aimerais que Access m'affiche un graphique avec les résultats de cette requête en histogramme. Et, si c'est possible, j'aimerais alors pouvoir afficher plusieurs infos pour un même mois.
Merci d'avance!
Voici mon code :
Private Sub Form_Open(Cancel As Integer)
'********* Début : Déclaration des variables **********************************
Dim oDb As DAO.Database
Dim oRst As DAO.Recordset
Dim SqlReq1 As String
'********* Fin : Déclaration des variables ***********************************
'********* Début : Recherche des enregistrements de la table Tb_anomalies ***********
Set oDb = CurrentDb
SqlReq1 = "SELECT Tb_anomalies.Date_estimee, Tb_anomalies.Date_cloture, " & _
"Count(Tb_anomalies.Date_estimee) AS Nb " & _
"FROM Tb_anomalies " & _
"WHERE (((Tb_anomalies.Date_estimee) Is Not Null) " & _
"AND ((Tb_anomalies.Date_cloture <= Tb_anomalies.Date_estimee))) " & _
"GROUP BY Date_estimee, Date_cloture"
Set oRst = oDb.OpenRecordset(SqlReq1)
'********* Début : Récupération des infos de la table Tb_anomalies ***************
'Seulement en test pour l'instant
While Not oRst.EOF
MsgBox ("Date estimée = " & oRst.Fields(0).Value)
oRst.MoveNext
Wend
'********* Début : Libération des objets *****************************
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing
'********* Fin : Libération des objets *****************************
