Discussion :

[Gaston62]

Bonjour à tous,

Dans un formulaire Access j'ai la commande SQL suivante :

Code :

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

1
2
3
4
GraphQuery = "SELECT tblListeGraphActeurs.Acteur, " & _
             "DCount(""*"", ""qryGrandEcran"", ""ACTEURS LIKE '*"" & Replace([tblListeGraphActeurs].[Acteur], ""'"", ""''"") & ""*'"") AS occurrences " & _
             "FROM tblListeGraphActeurs " & _
             "WHERE DCount(""*"", ""qryGrandEcran"", ""ACTEURS like '*"" & Replace([tblListeGraphActeurs].[Acteur], ""'"", ""''"") & ""*'"") >= " & Parameter & ";"

Cette requête est ensuite envoyé à Excel pour créer un graphique.
Celle-ci fonctionne parfaitement, mais j'aimerais intercepter le cas où j’obtiens un résultat "vide", c.à.d. qu'aucun record ne correspond à la requête.

J'ai rajouté ce bout de code...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim rs As DAO.Recordset
Dim result As Variant
 
Set rs = CurrentDb.OpenRecordset(GraphQuery)
If Not rs.EOF And Not rs.BOF Then
    result = rs!occurrences
    MsgBox "Occurrences: " & result
Else
    MsgBox "Aucun résultat"
End If
rs.Close
Set rs = Nothing

...il détecte bien lorsque le résultat est vide, mais lorsqu'il n'est pas vide j'obtiens des résultats pour "result" qui me semble incohérents.

Pour "Parameter" de 1 à 23, "result" = 23
Pour "Parameter" de 24 à 27, "result" = 27
Pour "Parameter" de 28 à 47, "result" = 47
Pour "Parameter" 48, "result" = 48
Pour "Parameter" de 49 à 50, "result" = Aucun résultat

Si quelqu'un a une idée...

[Gaston62]

Je rajoute quelques copies d'écrans pour plus de clarté :

Le formulaire pour créer des graphiques. Les boutons représentent le nombre minimum de films par acteur (Parameter)




Le formulaire pour créer une liste d'acteurs qui sera utilisé pour le graphique




Le résultat dans Excel

[User]

Bonjour,

Pour "Parameter" de 49 à 50, "result" = Aucun résultat

Que contient exactement Parameter dans ce cas ?

Au vu du graphique il n'y a pas d'acteur avec plus de 48 films.

pouvez-vous donner des exemples de valeurs pour le champ ACTEURS de la requête qryGrandEcran (peut-il y avoir des quotes ('))

Cdlt

[Gaston62]

Bonjour User,

Que contient exactement Parameter dans ce cas ?

La variable "Parameter" contient tout simplement une valeur allant de 1 à 50.

Au vu du graphique il n'y a pas d'acteur avec plus de 48 films.

En effet, et là, la réponse "Aucun résultat" est correcte.
Le graph montre le cas où "Parameter" = 10, et est basé sur la liste visible dans la deuxième capture d'écran.

pouvez-vous donner des exemples de valeurs pour le champ ACTEURS de la requête qryGrandEcran (peut-il y avoir des quotes ('))

Dans le champ ACTEURS de la requête qryGrandEcran, il y a les acteurs qui jouent dans le film, séparé par une virgule.
Par exemple : JEAN DASTE, LOUIS DE GONZAGUE, DELPHIN, RAPHAEL DILIGENT, MADAME EMILE, LEON LARIVE, ROBERT LE FLON, LOUIS LEFEBVRE, GILBERT PRUCHON, DU VERRON
Il peut-y avoir des apostrophes comme dans le nom de BARBARA O'NEIL, mais j'ai prévu le cas en doublant les guillemets.

[Gaston62]

Au vu du graphique il n'y a pas d'acteur avec plus de 48 films.

La réponse est seulement incorrecte quand il y a quelque chose, quand il y aucune occurrence la réponse est correcte et donne "Aucun résultat".

[User]

Dans le champ ACTEURS de la requête qryGrandEcran, il y a les acteurs qui jouent dans le film, séparé par une virgule.
Par exemple : JEAN DASTE, LOUIS DE GONZAGUE, DELPHIN, RAPHAEL DILIGENT, MADAME EMILE, LEON LARIVE, ROBERT LE FLON, LOUIS LEFEBVRE, GILBERT PRUCHON, DU VERRON
Il peut-y avoir des apostrophes comme dans le nom de BARBARA O'NEIL, mais j'ai prévu le cas en doublant les guillemets.

Dans GraphQuery, si vous doublez les quotes pour [tblListeGraphActeurs].[Acteur], j'aurais tendance à le faire aussi pou le champ ACTEURS :

Code :

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

1
2
3
4
GraphQuery = "SELECT tblListeGraphActeurs.Acteur, " & _
             "DCount(""*"", ""qryGrandEcran"", ""Replace(ACTEURS, ""'"", ""''"") like LIKE '*"" & Replace([tblListeGraphActeurs].[Acteur], ""'"", ""''"") & ""*'"") AS occurrences " & _
             "FROM tblListeGraphActeurs " & _
             "WHERE DCount(""*"", ""qryGrandEcran"", ""Replace(ACTEURS, ""'"", ""''"") like '*"" & Replace([tblListeGraphActeurs].[Acteur], ""'"", ""''"") & ""*'"") >= " & Parameter & ";"

A vue de nez, je ne peux pas tester..

[Gaston62]

En fait, je pense que ça ne pourras pas fonctionner.
On fait le compte du nombre de films pour chaque acteur de la table [tblListeGraphActeurs].[Acteur]
On filtre ceux dont le nombre sont égal ou supérieur au paramètre (variable "Parameter")
Il y a donc une série de valeurs correspondant au nombre de films par acteur.
Dans l'exemple présent j'ai une série de 11 valeurs :

ALAIN DELON : 23
ANNIE GIRARDOT : 14
BOURVIL : 27
CHARLES CHAPLIN : 16
CLINT EASTWOOD : 19
FERNANDEL : 47
JAMES STEWART : 15
JEAN GABIN : 48
JEAN-PAUL BELMONDO : 18
LINO VENTURA : 39
LOUIS DE FUNES : 41

Si "Parameter" vaut par exemple 17, mon graph sera constitué de :

ALAIN DELON : 23
BOURVIL : 27
CLINT EASTWOOD : 19
FERNANDEL : 47
JEAN GABIN : 48
JEAN-PAUL BELMONDO : 18
LINO VENTURA : 39
LOUIS DE FUNES : 41

Mais j'ai une série de 8 valeurs ! Donc impossible de donner une valeur unique.
La réponse qui est donnée c'est la valeur du premier acteur de la liste après filtrage.
Dans l'exemple ci-dessus : 23.

Avec "Parameter" = 25, mon graph sera constitué de :

BOURVIL : 27
FERNANDEL : 47
JEAN GABIN : 48
LINO VENTURA : 39
LOUIS DE FUNES : 41

...et la valeur donnée sera 27.

Je devrai donc créer une variable du type tableau (Variant)...

...ou me limiter à l'interception d'une réponse vide pour empêcher la génération du graphique.

Code :

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

1
2
3
4
5
6
7
8
9
 
Set rs = CurrentDb.OpenRecordset(GraphQuery)
If Not rs.EOF And Not rs.BOF Then
    Call OuvrirGraphique(GraphName, GraphQuery, GraphTitle)
Else
    MsgBox "Aucun résultat"
End If
rs.Close
Set rs = Nothing

[User]

...
Avec "Parameter" = 25, mon graph sera constitué de :

BOURVIL : 27
FERNANDEL : 47
JEAN GABIN : 48
LINO VENTURA : 39
LOUIS DE FUNES : 41

...et la valeur donnée sera 27.

Je devrai donc créer une variable du type tableau (Variant)...

...ou me limiter à l'interception d'une réponse vide pour empêcher la génération du graphique.

J'avais compris merci, mais rien ne vous empêche de passer la chaîne sql GraphQuery comme source d'une zone de liste, ou d'un sous-formulaire comme cela vous aurez le graphique, plus les données sous forme tabulaire.

[Gaston62]

Bonne idée, je regarde ça et je reviens vers vous.

Bonne soirée !

[Gaston62]

Bonjour User,

J'ai rajouté ce petit bout de...

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
Dim rs As DAO.Recordset
Dim resultArray As Variant
Dim i As Long, j As Long
 
    ' Ouverture du recordset avec la requête SQL GraphQuery
    Set rs = CurrentDb.OpenRecordset(GraphQuery)
 
    If Not rs.EOF Then
        ' Récupérer toutes les lignes et colonnes, structure (ligne, colonne)
        resultArray = rs.GetRows
        ' parcourir le tableau
        For i = LBound(resultArray, 2) To UBound(resultArray, 2)
            For j = LBound(resultArray, 1) To UBound(resultArray, 1)
                Debug.Print resultArray(j, i)
            Next j
        Next i
    End If
 
    rs.Close
    Set rs = Nothing

...mais je n'obtiens toujours que le premier enregistrement de la requête dans ma fenêtre d'exécution :

ALAIN DELON
23

Y a-t-il une erreur dans la récupération du tableau ?

[Gaston62]

Bonjour User,

Avec le code suivant ça marche !

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim result As DAO.Recordset
Set result = CurrentDb.OpenRecordset(GraphQuery, dbOpenDynaset)
'Debug.Print result!Acteur
 
Do While Not result.EOF
    Debug.Print result!Acteur & " : " & result!Occurrences
    result.MoveNext
Loop

Je referme donc cette discussion et te remercie pour ton aide.

[User]

Bonjour,

S'agit-il de réaliser un débogage ?

[Gaston62]

Bonjour User,

Initialement oui, ensuite je me suis laisser prendre au jeu, et j'ai voulu aller plus loin.
J'ai donc fais des tests avec un MsgBox ou un sous-formulaire.

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
 
Dim result As DAO.Recordset
Dim resultat As String
Dim réponse As Integer
Set result = CurrentDb.OpenRecordset(GraphQuery, dbOpenDynaset)
 
    If Not result.EOF And Not result.BOF Then
        If IsNull(result) Then
            ' Gérer le cas Null ici
            MsgBox "Le résultat est Null"
        Else
            ' Traitement normal
            If Me.chkDispQry.Value = True Then
                Do While Not result.EOF
                    ' Imprimer tous les enregistrements (Acteur : occurrences)
'                    Debug.Print result!Acteur & " : " & result!occurrences
                    ' Construire la chaîne de résultat pour la boite de message
                    resultat = resultat & result("Acteur") & " : " & result("occurrences") & " films" & vbCrLf
                    result.MoveNext
                Loop
'                DoCmd.OpenForm "frmSQLacteurs"
'                Forms!frmSQLacteurs!txtSQLacteurs.Value = resultat
'                Forms!frmSQLacteurs!cmdCancel.SetFocus
                réponse = MsgBox(resultat, vbOKCancel + vbInformation, "Résultat de la requête SQL")
                If réponse = vbOK Then
                    result.Close
                    Set result = Nothing
'                    MsgBox "On lance le graphique"
                    GoTo graph
                Else
                    result.Close
                    Set result = Nothing
                    GoTo nograph
                End If
            End If
        End If
    Else
        ' Si aucun enregistrement
        MsgBox "Aucun résultat"
        GoTo nograph
    End If
graph:
    Call OuvrirGraphique(GraphName, GraphQuery, GraphTitle)
nograph:

Ça marche plutôt bien, mais j'ai encore un petit souci avec le tri de "Occurrences" provenant de la requête SQL.
Je fais un tri descendant, mais comme il n'y a pas de zéros non-significatifs j'obtiens ce genre de tri :



J'ai essayé de modifier la commande SQL :

Code :

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

1
2
3
4
5
6
 
    GraphQuery = "SELECT tblListeGraphActeurs.Acteur, " & _
                 "DCount(""*"", ""qryGrandEcran"", ""ACTEURS LIKE '*"" & Replace([tblListeGraphActeurs].[Acteur], ""'"", ""''"") & ""*'"") AS occurrences " & _
                 "FROM tblListeGraphActeurs " & _
                 "WHERE DCount(""*"", ""qryGrandEcran"", ""ACTEURS like '*"" & Replace([tblListeGraphActeurs].[Acteur], ""'"", ""''"") & ""*'"") >= " & Parameter & " " & _
                 "ORDER BY DCount (""*"", ""qryGrandEcran"", ""ACTEURS LIKE '*"" & Replace([tblListeGraphActeurs].[Acteur], ""'"", ""''"") & ""*'"") DESC;"

en rajoutant :

Code :

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

Format(COUNT(*), "00")

ce qui donne :

Code :

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

1
2
3
4
5
6
 
    GraphQuery = "SELECT tblListeGraphActeurs.Acteur, " & _
                 "DCount format(""*"", ""qryGrandEcran"", ""ACTEURS LIKE '*"" & Replace([tblListeGraphActeurs].[Acteur], ""'"", ""''"") & ""*'""), "00") AS occurrences " & _
                 "FROM tblListeGraphActeurs " & _
                 "WHERE DCount(""*"", ""qryGrandEcran"", ""ACTEURS like '*"" & Replace([tblListeGraphActeurs].[Acteur], ""'"", ""''"") & ""*'"") >= " & Parameter & " " & _
                 "ORDER BY DCount (""*"", ""qryGrandEcran"", ""ACTEURS LIKE '*"" & Replace([tblListeGraphActeurs].[Acteur], ""'"", ""''"") & ""*'"") DESC;"

, mais ça génère une erreur de syntaxe.
Je dois faire une erreur quelque part.

Si vous avez une idée...

[tee_grandbois]

bonsoir,
en toute logique c'est la formule entière qui doit être formatée (donc la fonction DCount incluse)

Code :

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

1
2
3
4
5
    GraphQuery = "SELECT tblListeGraphActeurs.Acteur, " & _
                 "format(DCount(""*"", ""qryGrandEcran"", ""ACTEURS LIKE '*"" & Replace([tblListeGraphActeurs].[Acteur], ""'"", ""''"") & ""*'""), ""00"") AS occurrences " & _
                 "FROM tblListeGraphActeurs " & _
                 "WHERE DCount(""*"", ""qryGrandEcran"", ""ACTEURS like '*"" & Replace([tblListeGraphActeurs].[Acteur], ""'"", ""''"") & ""*'"") >= " & Parameter & " " & _
                 "ORDER BY format(DCount(""*"", ""qryGrandEcran"", ""ACTEURS LIKE '*"" & Replace([tblListeGraphActeurs].[Acteur], ""'"", ""''"") & ""*'""),""00"") DESC;"

si je ne me suis pas trompé quelque part avec cette profusion de guillemets ...

[Gaston62]

Bonjour tee_grandbois,

C'est un plaisir de te retrouver !

Ta solution est la bonne :



Décidément, je patauge toujours dans les guillemets et les apostrophes

Merci et bonne soirée à tous les deux !