Discussion :

[Jefty]

* Bonjour, *

J'ai une zone de texte fonctionnant à partir d'une requête.
Elle ce remplit donc avec différentes valeurs.
Je voudrais que pour un clic sur la zone de texte, cela affiche le résultat d'une autre requête dans une liste box situer en pied de formulaire.

J'ai écrit ce 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
20
21
22
23
24
25
26
27
28
Private Sub txtNomTypStat_click()
Dim NomStat As String
Dim SQL As String
 
' On récupère le nom de la statistique sélectionnée
    NomStat = txtNomTypStat.Value
    ' On constitue la requête de sélection des actions de la statistiques en question
    SQL = "SELECT TypeStatistique.NomTypStat, ActionRealisee.ActionReal, ActionRealisee.DateActionReal, Acteur.NomActeur" _
        & "FROM TypeStatistique INNER JOIN (Statistique INNER JOIN (Acteur INNER JOIN ActionRealisee ON Acteur.NumActeur = ActionRealisee.NumActeur) ON Statistique.NumStat = ActionRealisee.NumStat) ON TypeStatistique.NumTypStat = Statistique.NumTypStat" _
        & " WHERE Year(Date) = Year(DateActionReal) And Month(Date) = Month(DateActionReal)" _
        & " AND TypeStatistique.NomTypStat = NomStat"
 
    ' Avec la liste des actions de cette statistique :
    With Me.lstDetaille
        ' Liste à 4 colonnes
        .ColumnCount = 4
        ' La colonne liée est la première
        .BoundColumn = 1
        ' Taille colonne
        .ColumnWidths = ""
        ' La liste est remplie via une requête
        .RowSourceType = "Table/requête"
        ' On affecte la requête SQL à la liste
        .RowSource = SQL
        ' On force son raffraîchissement
     Call .Requery
    End With
End Sub

Le résultat est une liste box vide, on dirait qu'il ne récupère pas la valeur de la zone de texte au clic.
J'ai essayer cette requête avec le mode création, elle fonctionne.
Y à t'il une fonction pour récupéré la valeur d'une zone de texte sur un clic?

Merci d'avance.

[Jefty]

Personne ne peut m'aider?

[Kawabaumga]

Bonjour,

Il me semble que ta requête est fausse.
Ton NomStat ne peut être directement dans les doubles quotes

Code sql :

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

1
2
3
4
 SQL = "SELECT TypeStatistique.NomTypStat, ActionRealisee.ActionReal, ActionRealisee.DateActionReal, Acteur.NomActeur" _
        & "FROM TypeStatistique INNER JOIN (Statistique INNER JOIN (Acteur INNER JOIN ActionRealisee ON Acteur.NumActeur = ActionRealisee.NumActeur) ON Statistique.NumStat = ActionRealisee.NumStat) ON TypeStatistique.NumTypStat = Statistique.NumTypStat" _
        & " WHERE Year(Date) = Year(DateActionReal) And Month(Date) = Month(DateActionReal)" _
        & " AND TypeStatistique.NomTypStat = '" & NomStat & "'"

[Jefty]

Toujours le même problème, même après modif :/

[Kawabaumga]

Qu'obtiens tu en exécutant la requête?

[Jefty]

Un tableau vide, aucune erreur.
Le tableau on le voit dans la liste box, on voit bien les différentes colonnes, mais c'est vide.

[Kawabaumga]

Es-tu sûr de ta requête?
Je ne suis vraiment pas sûr de ce que je vais dire, mais pour moi tu t'es trompé dans les INNER JOIN ... ON

[Jefty]

J'ai essayer comme ça:

Code :

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

1
2
3
4
5
6
SQL = "SELECT TypeStatistique.NomTypStat, ActionRealisee.ActionReal, ActionRealisee.DateActionReal, Acteur.NomActeur" _
        & "FROM TypeStatistique INNER JOIN Statistique ON TypeStatistique.NumTypStat = Statistique.NumTypStat" _
        & "AND Statistique INNER JOIN ActionRealisee ON Statistique.NumStat = ActionRealisee.NumStat" _
        & "AND Acteur INNER JOIN ActionRealisee ON Acteur.NumActeur = ActionRealisee.NumActeur" _
        & " WHERE Year(Date) = Year(DateActionReal) And Month(Date) = Month(DateActionReal)" _
        & " AND TypeStatistique.NomTypStat = '" & NomStat & "'"

Et comme ça

Code :

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

1
2
3
4
5
6
 SQL = "SELECT TypeStatistique.NomTypStat, ActionRealisee.ActionReal, ActionRealisee.DateActionReal, Acteur.NomActeur" _
        & "FROM TypeStatistique INNER JOIN Statistique ON TypeStatistique.NumTypStat = Statistique.NumTypStat" _
        & " INNER JOIN ActionRealisee ON Statistique.NumStat = ActionRealisee.NumStat" _
        & " INNER JOIN ActionRealisee ON Acteur.NumActeur = ActionRealisee.NumActeur" _
        & " WHERE Year(Date) = Year(DateActionReal) And Month(Date) = Month(DateActionReal)" _
        & " AND TypeStatistique.NomTypStat = '" & NomStat & "'"

Tableaux toujours vide.


Je vois pas trop

[Kawabaumga]

Attention dans la deuxième requête, tu as un INNER JOIN en double

Code sql :

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

1
2
3
4
5
6
SQL = "SELECT TypeStatistique.NomTypStat, ActionRealisee.ActionReal, ActionRealisee.DateActionReal, Acteur.NomActeur" _
        & "FROM TypeStatistique INNER JOIN Statistique ON TypeStatistique.NumTypStat = Statistique.NumTypStat" _
        & " INNER JOIN ActionRealisee ON Statistique.NumStat = ActionRealisee.NumStat" _
        & " INNER JOIN ActionRealisee (as tu essayé en mettant Acteur au lieu de ActionRealisee?)ON Acteur.NumActeur = ActionRealisee.NumActeur" _
        & " WHERE Year(Date) = Year(DateActionReal) And Month(Date) = Month(DateActionReal)" _
        & " AND TypeStatistique.NomTypStat = '" & NomStat & "'"

Sinon donnes le schéma de tes 3 tables

[Jefty]

Je viens d'essayer, listbox toujours vide malheureusement :/

Les relations:

[Kawabaumga]

à quoi correspond "Date"?

[Jefty]

A la fonction Date.
Celle-ci retourne la date du jours.

[Geache]

1) Après la ligne

NomStat = txtNomTypStat.Value

Si tu fais un msgbox NomStat,

Est-ce que ton application te donne la valeur affichée à l'écran ?

Je pose la question, parce que je me demande si ton problème n'est pas dû à l'enregistrement courant. A savoir, au moment du click, toutes les valeurs de l'enregistrement courant sont-elles connues de ton application ?

2) Si tu exécutes ta requête, avec le critère NomStat introduit manuellement (par exemple "Test"), cette requête te renvoit-elle le résultat escompté ?

[Jefty]

Il me donne la valeur
Truc de fou hein
Zut j'avais mal compris le petit 2.
Je test:

Il retourne la bonne valeur au MsBox
Mais quand je donne un valeur de ma table, il ne retourne rien.
Donc le problème vient de la requête, mais où...

[Geache]

Tu peux nous donner le dernier SQL = que tu utilises, stp ?

[Jefty]

Code :

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

1
2
3
4
5
6
SQL = "SELECT TypeStatistique.NomTypStat, ActionRealisee.ActionReal, ActionRealisee.DateActionReal, Acteur.NomActeur" _
        & "FROM TypeStatistique INNER JOIN Statistique ON TypeStatistique.NumTypStat = Statistique.NumTypStat" _
        & " INNER JOIN ActionRealisee ON Statistique.NumStat = ActionRealisee.NumStat" _
        & " INNER JOIN Acteur ON ActionRealisee.NumActeur = Acteur.NumActeur" _
        & " WHERE Year(Date) = Year(DateActionReal) And Month(Date) = Month(DateActionReal)" _
        & " AND TypeStatistique.NomTypStat ='Processus P7'"

[Geache]

Et toutes tes tables contiennent au moins une valeur pour ce cas précis ?

[Jefty]

Oui.

[Geache]

Ton critère : Processus P7 est bien orthographié ? Tu n'as pas un problème d'espace dans ta table par exemple ? ProcessusP7 au lieu de Processus P7 ?

[Jefty]

Non et j'ai test avec deux autres Nom