Discussion :

[greg64]

???

[DjBeGi]

tu voulais peut-etre simplement le code

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
Private Sub Res___mois_Click()
On Error GoTo Err_Res___mois_Click
 
    Dim qdf As DAO.QueryDef
    Dim rcs As DAO.Recordset
 
    Set qdf = CurrentDb.QueryDefs("Résultat d'un mois défini")
    Set rcs = qdf.OpenRecordset
    MsgBox rcs("resultat")
    Set qdf = Nothing
 
Exit_Res___mois_Click:
    Exit Sub
 
Err_Res___mois_Click:
    MsgBox Err.Description
    Resume Exit_Res___mois_Click
 
End Sub

et voici la requete

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
SELECT ROUND((SELECT (SELECT (NZ (Sum(montant),0)/1.196) AS ventesdumois
FROM Mouvements
WHERE (Origine="client") AND (year(echéance)=[Formulaires]![menu]![annee]) and (month(echéance)=[Formulaires]![menu]![mois])
)
-
(SELECT (NZ (Sum(montant),0)/1.196) AS achatsdumois
FROM Mouvements
WHERE (Destination="fournisseur") AND (year(echéance)=[Formulaires]![menu]![annee]) and (month(echéance)=[Formulaires]![menu]![mois])
) AS Résultat
FROM Mouvements
GROUP BY "Résultat")
-
(SELECT (SELECT (NZ (Sum(montant),0)/1.196) AS retoursclient
FROM Mouvements
WHERE (Destination="client") AND (year(echéance)=[Formulaires]![menu]![annee]) and (month(echéance)=[Formulaires]![menu]![mois])
)
-
(SELECT (NZ (Sum(montant),0)/1.196) AS retoursfseurs
FROM Mouvements
WHERE (origine="fournisseur") AND (year(echéance)=[Formulaires]![menu]![annee]) and (month(echéance)=[Formulaires]![menu]![mois])
) AS Resultatret
FROM Mouvements
GROUP BY "Résultat"),2) AS Resultat
FROM Mouvements
GROUP BY "resultat";

[greg64]

lorsque tu test ton programme qu'écrit tu dans tes deux zones de textes.
dans ton formulaire vérifie bien que les noms de tes zones de texte sont bien annee et mois.
en mode création tu clique sur la zone de texte (pas sur l'étiquette) et tu regarde les noms.

[DjBeGi]

Dans "mois", j'écris 6
Dans "annee", j'écris 2006

Lorsque j'éxécute ma requete, cela marche et me donne bien le résultat exact de juin.
Mais lorsque je lance le clic bouton, cela m'indique l'erreur habituelle

Code :

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

trop peu de paramètres, 2 attendus

Mes boutons sont bien nommés "mois" et "annee" (annee sans accent)

je pense donc que l'erreur vient du programme VB si ma requete fonctionne...

[greg64]

lorsque tu clique directement sur ta requête dans l'onglet requête d'acces il y a des boites de dialogue qui apparaissent te demandant de saisir le mois et l'année ???

ton formulaire s'appelle bien menu ?

tu dois vérifier toutes les petites erreurs possibles.

[DjBeGi]

Lorsque je clique directement sur ma requete, elle s'éxécute selon ce qui est inscrit dans mes zones de texte "mois" et "annee" sur mon formulaire.
Il n'y a aucune boite de dialogue qui s'ouvre.

Mon formulaire se nomme bien "menu"

je fouille pour trouver de petites erreurs mais je ne trouve rien

[DjBeGi]

J'ai trouvé une solution.
Le probleme résidait dans le fait que les chiffres tapés dans les zones de textes sont "en mémoire" selon ce qu'on m'a dit...

Alors j'ai créé une nouvelle table appellée "parametres"
Dans cette table, il y a la clé primaire "numpara", et des champs "jour", "mois", "annee" et "nbrjour".

J'ai donc modifié ma requete en conséquence.

De plus j'ai créé 2 nouvelles requetes, une de suppression, et une d'ajout.

Suppression :

Code :

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

1
2
3
DELETE *
FROM parametres
WHERE NumPara=1;

ajout :

Code :

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

1
2
INSERT INTO parametres ( Numpara, jour, mois, annee, nbrjour )
VALUES (1, formulaires!menu!jour, formulaires!menu!mois, formulaires!menu!annee, formulaires!menu!nbrjour);

Donc je voudrais ne travailler que sur une unique ligne qui serait "actualiser" a chaque fois que je change les valeurs de mes zones de texte sur mon formulaire "menu"...

Ce que je cherche a faire maintenant, c'est modifier mon programme VB sur clic bouton...

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
Private Sub Res___mois_Click()
On Error GoTo Err_Res___mois_Click
 
    Dim qdf As dao.QueryDef
Dim rcs As dao.Recordset
 
Set qdf = CurrentDb.QueryDefs("Résultat d'un mois défini")
Set rcs = qdf.OpenRecordset
MsgBox rcs("resultat")
Set qdf = Nothing
 
Exit_Res___mois_Click:
    Exit Sub
 
Err_Res___mois_Click:
    MsgBox Err.Description
    Resume Exit_Res___mois_Click
 
End Sub

j'aimerai donc rajouter dans cette instuction VB, l'éxécution de mes 2 nouvelles requetes, dans l'ordre bien précis : suppression, puis ajout

Ce qui fait qu'a chaque clic bouton, l'enregistrement de ma table "parametres" sera modifié

Pourriez-vous donc m'indiquer ce qu'il faut que je rajoute dans mon instruction VB afin qu'elle exécute aussi ces 2 requetes ?

[DjBeGi]

Bon, j'ai réglé mon probleme, mes boutons fonctionnent.

Voici mon code VB

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub Res___mois_Click()
On Error GoTo Err_Res___mois_Click
 
Dim qdf As dao.QueryDef
Dim rcs As dao.Recordset
Dim sSql As String
 
Dim dbsNorthwind As Database
Dim strSQLChange As String
Dim strSQLRestore As String
Dim qdfChange As QueryDef
Dim rstFonction As Recordset
Dim errLoop As Error
 
 
Set qdf = CurrentDb.QueryDefs("effacer parametres")
qdf.Execute
 
strSQLChange = "INSERT INTO parametres ( Numpara, jour, mois, annee, nbrjour ) " _
& "VALUES (1," & Me.Jour.Value & "," & Me.Mois.Value & "," & Me.Annee.Value & "," & IIf(IsNull(Me.NbrJour.Value), 0, Me.NbrJour.Value) & ")"
 
 
Set dbsNorthwind = OpenDatabase("c-ent.mdb")
 
Set qdfChange = dbsNorthwind.CreateQueryDef("", _
      strSQLChange)
 
ExecuteQueryDef qdfChange, rstFonction
 
 
Set qdf = CurrentDb.QueryDefs("Résultat d'un mois défini")
Set rcs = qdf.OpenRecordset
 
MsgBox rcs("resultat") & " €"
 
Set qdf = Nothing
 
Exit_Res___mois_Click:
    Exit Sub
 
Err_Res___mois_Click:
    MsgBox Err.Description
    Resume Exit_Res___mois_Click
 
End Sub

c'est un peu du charabia, mais je débute dans ce domaine.

Merci à Greg64 qui m'a aidé a avancer dans ce probleme

A bientot