Access Pb de graphique - VB/VBA/VBS - Programmation
Marsh Posté le 21-08-2006 à 16:20:57
ACCESS je ne maitrise pas, mais tu peux faire une manip en utilisant Excel aussi, pour tes graphes notamment.
Marsh Posté le 21-08-2006 à 16:25:41
En fait, le but est de l'intégrer dans une base ACCESS afin de globaliser toutes les infos au même endroit justement. En effet, il me manque juste la possibilité d'intégrer ce graphique et de pouvoir le maîtriser par VB pour réussir. Merci quand même pour ta réponse!Si quelqu'un d'autre a une petite idée...
Marsh Posté le 21-08-2006 à 16:13:22
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 *****************************