Discussion :

[DjBeGi]

Bonjour
J'ai quelques boutons disposés sur mon formulaire.
Seulement, lorsque je clique sur ceux-ci, ils m'éxécutent les requetes que j'ai préalablement créées dans une autre page...

j'aimerai que mes résultats s'affichent dans une petite zone directement dans mon formulaire, afin qu'il n'y ai pas d'autres pages qui s'ouvrent.

Est-ce possible ?

[greg64]

tu peux toujours afficher tes résultats dans des msgbox, c'est pas trés compliqué ...

[DjBeGi]

je me doute que ca ne doit pas etre compliqué...
Seulement je débute et un petit coup de pouce est le bienvenu

siouplé

[greg64]

monter moi le prog lié à un de tes boutons ... ce sera plus facil pour t'aider.

[DjBeGi]

je crée un bouton sur mon formulaire de cette facon...:

"boite a outil">"bouton de commande">"divers">"exécuter une requete">je sélectionne ma requete>je tape le texte de mon bouton>je nomme le bouton et voila...

[1tsiMat]

Tu peux afficher tes résultats dans des zones de textes, qui prennent la valeur de ta liste, je te conseille de chercher dans la FAQ j'ai trouvé ma solution là bas mais je la trouve plus

Bon courage

[greg64]

si tu vas sur le programme de ton bouton en fin de programme tu récupère ton résultat puis tu le met dans un msgbox, cela te permet d'avoir le résultat sur une boite dialogue c'est tjrs plus tape à l'oeil

[DjBeGi]

j'ai ca pour la programme 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
Private Sub Res___mois_Click()
On Error GoTo Err_Res___mois_Click
 
    Dim stDocName As String
 
    stDocName = "résultat d'un mois défini TTC"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
 
Exit_Res___mois_Click:
    Exit Sub
 
Err_Res___mois_Click:
    MsgBox Err.Description
    Resume Exit_Res___mois_Click
 
End Sub

[DjBeGi]

que dois-je modifier ?

je ne connais qu'un peu le langage SQL
Malheureusement, je ne maitrise pas le langage VB

merci pour votre attention

[greg64]

http://access.developpez.com/faq/?pa...s#UtilReqExist

aprés ton set rcs = ....
tu met un msgbox rcs

essaye et dit moi si c'est ok

[DjBeGi]

Aie aie aie...
je n'y comprend rien...

je sais que c'est beaucoup demandé, mais pourrais-tu me le montrer sur mon code ???

[DjBeGi]

help

[greg64]

salut

désolé j'étais en week end.
tu met ce code là

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim sSQL As String
Dim rs As DAO.Recordset
 
sSQL = "ici tu écris ta requête"
' Ouverture du recordset
Set rs = CurrentDb.OpenRecordset(sSQL)
' affichage du résultat
MsgBox rs
' Fermeture du Recordset
rs.Close

à la place de celui là

Code :

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

1
2
3
4
5
6
 
 
    Dim stDocName As String
 
    stDocName = "résultat d'un mois défini TTC"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

bon courage!

[DjBeGi]

il me répond : trop de paramètres, 2 attendus

[greg64]

pour me faciliter le travail met moi ton code.

[DjBeGi]

le voici, je l'ai modifié, comme tu me l'a dis

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
Private Sub Res___mois_Click()
On Error GoTo Err_Res___mois_Click
 
    Dim sSQL As String
Dim rs As DAO.Recordset
 
sSQL = "Résultat d'un mois défini"
' Ouverture du recordset
Set rs = CurrentDb.OpenRecordset(sSQL)
' affichage du résultat
MsgBox rs
' Fermeture du Recordset
rs.Close
 
Exit_Res___mois_Click:
    Exit Sub
 
Err_Res___mois_Click:
    MsgBox Err.Description
    Resume Exit_Res___mois_Click
 
End Sub

[greg64]

à la place

sSQL = "Résultat d'un mois défini"

ecrit ta requête sql

sSQL = "select a,b,c from table where condition"

[DjBeGi]

hum oui, sauf que voici ma requete :
(j'ai un peu honte de montrer ca)

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)=[Entrez l'année concernée (aaaa)]) and (month(echéance)=[Entrez le mois concerné (1à12)])
)
-
(SELECT (NZ (Sum(montant),0)/1.196) AS achatsdumois
FROM Mouvements
WHERE (Destination="fournisseur") AND (year(echéance)=[Entrez l'année concernée (aaaa)]) and (month(echéance)=[Entrez le mois concerné (1à12)])
) 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)=[Entrez l'année concernée (aaaa)]) and (month(echéance)=[Entrez le mois concerné (1à12)])
)
-
(SELECT (NZ (Sum(montant),0)/1.196) AS retoursfseurs
FROM Mouvements
WHERE (origine="fournisseur") AND (year(echéance)=[Entrez l'année concernée (aaaa)]) and (month(echéance)=[Entrez le mois concerné (1à12)])
) AS Resultatret
FROM Mouvements
GROUP BY "Résultat"),2) AS Resultat
FROM Mouvements
GROUP BY "resultat";

[greg64]

ce programme te permet d'exécuter une requête existante.
écrit ça

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim qdf As DAO.QueryDef 
Dim rcs As DAO.Recordset 
 
Set qdf = CurrentDb.QueryDefs("Résultat d'un mois défini") 
qdf.Execute                                
Set rcs = qdf.OpenRecordset             
MsgBox rcs("nom de ta variable résultat")
Set qdf = Nothing

à la place de ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim sSQL As String
Dim rs As DAO.Recordset
 
sSQL = "Résultat d'un mois défini"
' Ouverture du recordset
Set rs = CurrentDb.OpenRecordset(sSQL)
' affichage du résultat
MsgBox rs
' Fermeture du Recordset
rs.Close

[DjBeGi]

Code :

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

impossible d'éxécuter une requete de sélection

???