Mad666 | bon en gros j'ai quelques zones de liste modifiable et lorsque je clique sur le bouton "ok", je vais lire les valeurs de ces zones de liste et j'en établit des critères pour mes requêtes.
Ca se présente comme ca :
Code :
- ...
- If choixVisu = "Par service" Then
- serv = choixServ.Value
- ElseIf choixVisu = "Par ligne" And choixFormat <> "Alarmes" Then
- MiseEnFormeLigne (Null)
- End If
- If choixFormat = "Graphique" Then
- If choixDonneesGraph = "Avance/Retard" Then
- GraphAR (Null)
- ElseIf choixDonneesGraph = "Temps de parcours" Then
- GraphTP (Null)
- End If
- End If
- ...
|
MiseEnFormeLigne :
Code :
- index1 = choix_arret.Column(3)
- index2 = choix_arret2.Column(3)
- ...
- db.Execute "DELETE * FROM selection_arrets"
- db.Execute ("INSERT INTO selection_arrets(arret) SELECT DISTINCT Lieu_fin_section FROM selectArretsLigneReq ;" )
|
GraphTP:
Code :
- db.Execute "INSERT INTO tppligne([Date],[Type_jour],Nom,Direction,Parcours,Voyage,Heure_théorique,Heure_passage,Index_parcours) SELECT [Date],Type_jour,Nom,Direction,Parcours,Voyage,Heure_théorique,Heure_passage,Index_parcours FROM tppl;"
- ...db.Execute "CREATE TABLE tpparcours (heure TIME, théo INTEGER, Moyenne INTEGER, " & rstLieux!Nom & " INTEGER);"
- ...
- mise en forme des données et calcul d'une moyenne et de diverses statistiques
|
Et après tout ca j'aboutis à un graphe. Le problème est que ce graphe ne ressort correctement les données qu'une fois de temps en temps. La plupart du temps, on croirait qu'il est tronqué ... |