requêtes et realisations de courbes

**PAUL87** · 15/12/2005, 16h15

bonjour,
Dans ma table principale, j'ai un champ " x " et un champ date en format jj/mm/aaa.
le champ " x " est rempli par une liste de choix provenant d'une autre table
je souhaite faire une courbe de progression mensuelle... idealement cumulative
cad le nombre de fois que l'on retrouve un champ " x " identique par mois(de la meme année)
je souhaiteraique le formulaire qui présente cette/ces courbes soit doté d'une liste déroulante qui permet de selectionner l'affichage de la coube en fonction du champ" x" sélectionné
Quelqu'un peut-il m'aiguiller sur la piste à suivre
merci

**vciofolo** · 15/12/2005, 17h05

Salutation,

Tu peux essayer ça (un textbox tb_janvier pour le nombre du mois de janvier, un textbox tb_fevrier ....)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Sub lb_listeX_AfterUpdate()
Me.tb_janvier = DLookup("count([X])", "table1", "[date] > #" & DateSerial(Year(Now), 1, 1) & "# and [date] < #" & DateSerial(Year(Now), 2, 0) & "# and [X] = """ & Me.lb_listeX & """")
Me.tb_fevrier = DLookup("count([X])", "table1", "[date] > #" & DateSerial(Year(Now), 2, 1) & "# and [date] < #" & DateSerial(Year(Now), 3, 0) & "# and [X] = """ & Me.lb_listeX & """")
...
 
Me.tb_decembre = DLookup("count([X])", "table1", "[date] > #" & DateSerial(Year(Now), 12, 1) & "# and [date] < #" & DateSerial(Year(Now), 13, 0) & "# and [X] = """ & Me.lb_listeX & """")
 
me.requery
End Sub

Ca devrait marcher

**PAUL87** · 15/12/2005, 19h31

après avoir crée une zone de liste (liste2)

SELECT Patients.NomEtude FROM Patients GROUP BY Patients.NomEtude ORDER BY Patients.NomEtude;

et une zone de texte "janvier"
je teste ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub liste2_AfterUpdate()
Me.janvier = DLookup("count([*])", "PATIENTS", "[date_Inclusion] > #" & DateSerial(Year(Now), 1, 1) & "# and [date] < #" & DateSerial(Year(Now), 2, 0) & "# and [X] = """ & Me.Liste2 & """")
 
Me.Requery
End Sub

mais rien....un oulbi... peut-etre au niveau de "count([*]"
ou du source controle de ma zone te texte...
pas de débogage proposé

**PAUL87** · 15/12/2005, 22h47

je n'arrive pas a faire la relation entre la zone de liste et la zone de texte...

**PAUL87** · 15/12/2005, 23h16

ben ça alors!!!!
j'ai reçu un mail de notification de réponse et ....rien ne s'affiche..

**PAUL87** · 16/12/2005, 08h25

bonjour,
pourriez vous me préciser à quoi correspond [X] dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DLookup("count([X])"

j'ai essayé des nom de champ, clé primaire....rien
maintenant lorsque je sélectionne une donnee dans la zone de liste,
j'ai "0" qui s'affiche dans la zone de texte (ce devrait etre "1")
merci

**vciofolo** · 16/12/2005, 10h11

C'est toi qui a mis X pour le nom du champs ...

Dans ma table principale, j'ai un champ " x " et un champ date en format jj/mm/aaa

Alors si ton champ s'appel "toto", ton champ date s'appel "date_toto" et que la liste s'appel "lb_toto" tu mets dans le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Me.tb_janvier = DLookup("count([toto])", "table1", "[date_toto] > #" & DateSerial(Year(Now), 1, 1) & "# and [date_toto] < #" & DateSerial(Year(Now), 2, 0) & "# and [X] = """ & Me.lb_toto & """")

=> faire F1 sur "Dlookup" pour + d'info sur la fonction.

**PAUL87** · 16/12/2005, 10h24

ça fonctionne nettement mieux...merci
maintenant et afin de réaliser ma courbe "cumulative"
il faut que je puisse aditionner les résultats d'un mois sur l'autre afin d'afficher une progression (ou pas!!)

**vciofolo** · 16/12/2005, 10h29

je comprends pas trop ce que tu veux faire.
Si c'est juste faire la somme sur l'année, tu fais un controle "tb_annee" et tu ajoute le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Me.tb_annee = DLookup("count([toto])", "table1", "[date_toto] > #" & DateSerial(Year(Now), 1, 1) & "# and [date_toto] < #" & DateSerial(Year(Now), 13, 0) & "# and [X] = """ & Me.lb_toto & """")

**PAUL87** · 16/12/2005, 10h37

non non,
ce que je voudrais, c'est réaliser une courbe nombre/mois
dans laquelle le resultat de janvier viendrai s'ajouter au résultat de fevrier, le résultat(cumulé) de fevrier viendrait s'ajouter au résultat de mars.....et ainsi de suite...
ce qui me permettrai au niveau graphique de mettre en évidence une progression...

**vciofolo** · 16/12/2005, 10h56

Perso je ferais un doc Excel avec tout mis en page + le graphique. Puis un bouton commande qui remplit ce doc et l'enregistre.

Tu sais faire ou tu as besoin d'aide pour le code ?
Si ça t'interesse, fais signe

**PAUL87** · 16/12/2005, 11h02

J'aurais surement besoin d'aide!!!
sutrout pour

Puis un bouton commande qui remplit ce doc et l'enregistre.

mais je vais faire des essais perso
et en cas de problèmes, je relance le post....
MERCI BEAUCOUP !!!

**Muhad'hib** · 16/12/2005, 11h38

Voici un code que j'utilise souvent pour ce genre de chose :

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
23
24
25
26
27
28
29
30
31
 
Private Sub bc_courbe_Click()
Dim ExcelSheet As Object
Dim Chemin As String
Dim I As Integer
 
'chercher le fichier excel source
I = Len(CurrentDb.Name)
Do Until Mid(CurrentDb.Name, I, 1) = "\"
    I = I - 1
Loop
Chemin = Left(CurrentDb.Name, I) & "Excel\courbe.xls"
Set ExcelSheet = GetObject(Chemin)
ExcelSheet.Application.Visible = False
ExcelSheet.Application.Windows("courbe.xls").Visible = True
ExcelSheet.Worksheets(1).Select
 
With ExcelSheet.activesheet
    'tu copie tes données avec la synthaxe :
    .cells(numdelaligne, numdelacolonne) = donnée_a_copiée
 
End With
Chemin = Left(CurrentDb.Name, I) & "Documents\Courbe " & Me.lb_listeX & " " & Year(Now) & ".xls"
If Dir(Chemin) & "" <> "" Then Kill Chemin
 
ExcelSheet.SaveAs Chemin
MsgBox "Courbes enregistrées dans " & Chemin & ".", vbOKOnly, "Courbes"
 
ExcelSheet.Application.Visible = True
Set ExcelSheet = Nothing 
End Sub

Tu dois créer un rep "Excel" dans le répertoire de ton appli, y mettre le fichier "courbe.xls".
Tu dois créer un rep "Documents" dans le répertoire de ton appli.

Le code est à mettre sur l'événement click d'un bouton.
Il faut ajouter la gestion des erreurs.

Fais des recherches dans le site il y a plein de tutos, de codes sources ... qui traitent de ce genre de besoin (et bien mieux que moi)

A+

**PAUL87** · 16/12/2005, 12h26

Problème avec ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .cells(numdelaligne, numdelacolonne) = donnée_a_copiée

erreur de compil, variable non définie

**cafeine** · 16/12/2005, 12h28

Envoyé par PAUL87

Problème avec ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .cells(numdelaligne, numdelacolonne) = donnée_a_copiée

erreur de compil, variable non définie

c'était un code pour t'inspirer, pas pour copier / coller, à toi d'adapter ...

**PAUL87** · 16/12/2005, 12h39

oui biensur,
mais N° de ligne et N° de colonne
correspondent au coordonnées du tableau excel

**Muhad'hib** · 16/12/2005, 14h53

Merci Caféine,

Tu remplaces "numdelaligne" par le numéro de la ligne où tu veux copier les données. Idem pour "numdelacolonne".
Par exemple :
.cells(1, 2) = "Courbes pour 2005"
et tu rempliras la cellule A1 avec le texte "Courbes pour 2005"

**PAUL87** · 17/12/2005, 11h39

bonjour,
bon,j'avance à petits pas... l'ouverture et le stockage des courbes se fait bien...j'ai localisé lignes et colonnes dans .cells
mais que dois-je mettre dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 .cells(7, 2) = "mars"

il faut remplacer la valeur "mars" par la valeur chiffrée....sinim affichage de......... "mars "

**PAUL87** · 17/12/2005, 11h43

oups....

apres suppression des ........."" ça marche nettement mieux...

**PAUL87** · 17/12/2005, 11h51

Par contre et là c'est un peu plus compliqué...pour moi dans le tableau excel,
je souhaite avoir les 2 valeurs (mensuelles+cumulées) qui s'affichent afin d'avoir 2 courbes
comme excel calcule et affiche les valeurs cumulées....comment faire pour n'avoir a rentrer en . cells.... que les valeurs "brutes mensuelles"...?

requêtes et realisations de courbes

Access

Discussions similaires

Partager

Partager