Discussion :

[greg64]

j'ai fais une petite erreur il ne faut pas la ligne

Code :

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

qdf.execute

.

[DjBeGi]

trop peu de paramètres.
2 attendus

ca devient compliqué

[DjBeGi]

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

Voici ce que j'ai après les plusieurs modifications

[greg64]

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
Set qdf = Nothing
 
Exit_Res___mois_Click:
    Exit Sub
 
Err_Res___mois_Click:
    MsgBox Err.Description
    Resume Exit_Res___mois_Click
 
End Sub

si tu fais cela que se passe t-il ???

[DjBeGi]

meme message d'erreur

Code :

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

trop peu de paramètres. 2 attendus

[greg64]

va ds un module barre d'outils/références et regarde si DAO est cochée.

[greg64]

je viens de tester ton code avec une de mes requête et cela fonctionne correctement.
est ce que la variable que tu retourne est bien "resultat"

[DjBeGi]

Oui c'est cela.
Tu peux le voir dans la requete complete qui est plus haut

[greg64]

Microsoft DAO 3.6 Object Library.

[DjBeGi]

Oui c'est coché...
peut-etre est-ce le fait que je dois entrer des données (l'année et le mois) qui dérange

[greg64]

dans ta requête met une année et un mois en dur.
test le et dit moi.

[DjBeGi]

Alors ca fonctionne

mais avec ceci :

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'ai remis la ligne MsgBox rcs("resultat") sinon il ne se passait rien du tout.
Donc il me donne bien le résultat de juin 2006 (valeurs que j'ai entré dans ma requete)

[DjBeGi]

Mais ceci ne regle pas mon probleme...

[greg64]

voila une solution:

sur ton formulaire tu crée deux zones de texte que tu nomes annee et mois.

ensuite dans ta requête tu remplace 2006 par [Formulaires]![nom de ton formulaire]![annee] et juin par [Formulaires]![nom de ton formulaire]![mois].

ton problème est résolu.

Bon courage.

Au fait essaye de feuilleter un peu plus de la doc sur Access !!!

[DjBeGi]

heu non, j'ai encore cette erreur :
trop peu de paramètres, 2 attendus

[DjBeGi]

En plus ta technique m'arrange, si on arrive à la faire fonctionner.

Car j'ai aussi les requetes "CA d'un jour", "Résultat d'un mois", "Résultat d'un jour", etc etc...

Donc j'utiliserai mes zones de textes pour toutes ces requetes...

Merci donc, et en espérant qu'on trouve ce qui ne va pas

[DjBeGi]

Je suis allez lire dans la FAQ
"comment inclure des champs d'un formulaire dans une requete ?"

est-il possible de travailler avec cela ???

Code :

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

MonSQL = "Select * From MATABLE Where MONCHAMP = " & zdt

Zdt est la zone de texte de type numérique.

[greg64]

transmet moi ton prog mais ma méthode devrait marcher sans pb !

[DjBeGi]

Je n'ai changé mon code VB que sur le bouton "Res / mois" en guise de test.

A toi de voir si tu trouves ce qui ne va pas...Je n'ai plus d'idées.

[DjBeGi]

le voici