[AC-2003] Tri d'un état par une requête impossible

[electrosat03]

Salut,

J'ai un état qui a une requête comme source, le code sql est modifier suivant un tri choisi par choix par l'utilisateur, nom ou date.

Mais lorsque j'édite l'état, le tri ne s'effectue pas alors que si j'exécute la requête, le tri est bien opéré.

Je ne vois pas d'où cela peu venir.

Merci pour votre aide

[keita]

bonjour
Tu le fais dans l'etat lui-meme avec le bouton de regroupement(Trier et Grouper). tu choisit le champ et l'ordre de tri.
@+

[electrosat03]

Salut,

Oui, je connais, mais les users n'ont pas accès à ça, tout est avec forms et questions.

Donc il y a un choix par l'utilisateur et suivant ça, la requête est réécrite puis l'état est ouvert.

Voila

[ClaudeLELOUP]

Bonjour electrosat03,

Mais lorsque j'édite l'état, le tri ne s'effectue pas alors que si j'exécute la requête, le tri est bien opéré.

C'est que ton état n'utilise pas la source que tu crois.

le code sql est modifié suivant un tri choisi par choix par l'utilisateur, nom ou date.

Peux-tu montrer ton code où tu modifies la source.

Il faut ouvrir l'état en mode design, modifier le source, et seulement ouvrir l'état en mode normal.

[electrosat03]

Salut,

Voici le code sur le form qui ouvre l'état

Code :

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Private Sub Cmd_DétailPresta_Click()
    On Error GoTo Err_Cmd_DétailPresta_Click
 
    Dim Msg As String
    Dim stDocName As String
    Dim message, Title, Default, MyValue
    Dim GStrWhere As String
    Dim ChangeSQL As String
    Dim qdf As QueryDef
 
    stDocName = "E_stat_presta_cli"
 
    If CurrentProject.AllReports(stDocName).IsLoaded Then
        DoCmd.Close acReport, (stDocName), acSaveNo
    End If
 
    Beep
 
    GoSub message
 
    'DoCmd.Close acForm, "F_filtré"
 
 
    If CurrentProject.AllReports(stDocName).IsLoaded Then
        DoCmd.Close acReport, (stDocName), acSaveNo
    End If
 
    If MyValue = 1 Then 'Tri par Date
        ChangeSQL = "SELECT T_saisie_presta.employé, T_Générale.refcli, T_saisie_presta.NomRaisonSociale, T_saisie_presta.DatePresta, T_saisie_presta.TempsPresta, T_saisie_presta.LibelléPresta, T_saisie_presta.Remarques, T_Employés.taux, [tempspresta]*[taux] AS production, T_saisie_presta.Num" & _
                    " FROM T_Générale INNER JOIN (T_Employés INNER JOIN T_saisie_presta ON T_Employés.employé = T_saisie_presta.employé) ON T_Générale.NomRaisonSociale = T_saisie_presta.NomRaisonSociale" & _
                    " WHERE (((T_saisie_presta.NomRaisonSociale) Like [formulaires]![F_client_ld]![LD_NomRaisonSociale]) AND ((T_saisie_presta.Num)=0))" & _
                    " ORDER BY T_saisie_presta.DatePresta;"
 
        Set qdf = CurrentDb.QueryDefs("R_production")
        qdf.SQL = ChangeSQL
        Set qdf = Nothing
        DoCmd.OpenReport stDocName, acViewPreview, , GStrWhere ', , "Clients avant 3000"
    End If
 
    If MyValue = 2 Then 'Tri par Nom
        ChangeSQL = "SELECT T_saisie_presta.employé, T_Générale.refcli, T_saisie_presta.NomRaisonSociale, T_saisie_presta.DatePresta, T_saisie_presta.TempsPresta, T_saisie_presta.LibelléPresta, T_saisie_presta.Remarques, T_Employés.taux, [tempspresta]*[taux] AS production, T_saisie_presta.Num" & _
                    " FROM T_Générale INNER JOIN (T_Employés INNER JOIN T_saisie_presta ON T_Employés.employé = T_saisie_presta.employé) ON T_Générale.NomRaisonSociale = T_saisie_presta.NomRaisonSociale" & _
                    " WHERE (((T_saisie_presta.NomRaisonSociale) Like [formulaires]![F_client_ld]![LD_NomRaisonSociale]) AND ((T_saisie_presta.Num)=0))" & _
                    " ORDER BY T_saisie_presta.employé, T_saisie_presta.DatePresta;"
 
        Set qdf = CurrentDb.QueryDefs("R_production")
        qdf.SQL = ChangeSQL
        Set qdf = Nothing
        DoCmd.OpenReport stDocName, acViewPreview
    End If
 
    Exit Sub
 
message:
    'Définit le message.
    message = "Cette édition présente la liste 'Presta client' sur base du tri des " & vbCrLf & _
                vbCrLf & "1 - Dates" & _
                vbCrLf & "2 - Noms employés" & _
                vbCrLf & vbCrLf & vbTab & "Entrez une valeur comprise entre 1 et 2"
    Title = "Tri des prestations du client"    ' Définit le titre.
    Default = "1"    ' Définition la valeur par défaut.
    ' Affiche le message, le titre et la valeur par défaut.
    MyValue = InputBox(message, Title, Default)
 
    If MyValue = "" Then Exit Sub
 
    If MyValue < 1 Or MyValue > 2 Then
        message = MsgBox("Entrez 1 ou 2", vbCritical + vbOKCancel, "Erreur")
        If message = vbCancel Then Exit Sub
        GoSub message
    End If
 
    Return

La source de l'état est bien la requête modifiée par le code.

Merci

[ClaudeLELOUP]

Bonjour,

Essaie comme ceci :

Code :

1
2
3
4
5
6
7
8
9
10
If MyValue = 1 Then 'Tri par Date
        ChangeSQL = "SELECT T_saisie_presta.employé, T_Générale.refcli, T_saisie_presta.NomRaisonSociale, T_saisie_presta.DatePresta, T_saisie_presta.TempsPresta, T_saisie_presta.LibelléPresta, T_saisie_presta.Remarques, T_Employés.taux, [tempspresta]*[taux] AS production, T_saisie_presta.Num" & _
                    " FROM T_Générale INNER JOIN (T_Employés INNER JOIN T_saisie_presta ON T_Employés.employé = T_saisie_presta.employé) ON T_Générale.NomRaisonSociale = T_saisie_presta.NomRaisonSociale" & _
                    " WHERE (((T_saisie_presta.NomRaisonSociale) Like [formulaires]![F_client_ld]![LD_NomRaisonSociale]) AND ((T_saisie_presta.Num)=0))" & _
                    " ORDER BY T_saisie_presta.DatePresta;"
 
        DoCmd.OpenReport stDocName, acViewDesign
        Reports!stDocName.RecordSource = ChangeSQL
        DoCmd.OpenReport stDocName, acViewPreview
    End If

[keita]

bonjour
Essaie le code de ClaudeLELOUP; mais à ce code j"ajouterais ceci:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If MyValue = 1 Then 'Tri par Date
        ChangeSQL = "SELECT T_saisie_presta.employé, T_Générale.refcli, T_saisie_presta.NomRaisonSociale, T_saisie_presta.DatePresta, T_saisie_presta.TempsPresta, T_saisie_presta.LibelléPresta, T_saisie_presta.Remarques, T_Employés.taux, [tempspresta]*[taux] AS production, T_saisie_presta.Num" & _
                    " FROM T_Générale INNER JOIN (T_Employés INNER JOIN T_saisie_presta ON T_Employés.employé = T_saisie_presta.employé) ON T_Générale.NomRaisonSociale = T_saisie_presta.NomRaisonSociale" & _
                    " WHERE (((T_saisie_presta.NomRaisonSociale) Like [formulaires]![F_client_ld]![LD_NomRaisonSociale]) AND ((T_saisie_presta.Num)=0))" & _
                    " ORDER BY T_saisie_presta.DatePresta;"
 
        DoCmd.OpenReport stDocName, acViewDesign
        Reports!stDocName.RecordSource = ChangeSQL
'=======================================================
        Reports!stDocName.OrderByOn = True
        Reports!stDocName.OrderBy "DatePresta"
        Reports!stDocName.FilterOn = True
'=======================================================
        DoCmd.OpenReport stDocName, acViewPreview
End If

si DatePresta n'est pas un champ de regroupement.

@+

[electrosat03]

Salut,

Cela ne marche pas.

Alors que la requête fonctionne correctement, le tri est bon.

A+

[ClaudeLELOUP]

Bonjour,

C'est que tu as défini des tris et/ou des regroupements qui prennent le pas sur ceux de ta requête. Si non, j'ai testé avant de te répondre.

[electrosat03]

Salut,

Non, l'état à la requête comme source que je réécris par le code en fonction du choix de l'utilisateur.

Il n'y a rien comme tri ou regroupement dans l'état.

A+

[ClaudeLELOUP]

Peux-tu poster une BDD compatible Access2000 ?

[electrosat03]

Non, je ne peux pas.

De plus, la BDD est trop volumineuse et confidentielle, désolé.

J'ai déjà pourtant fait des états trié et réécrites par code sans problème.

Je ne vois pas ce qui cloche.

Merci pour ton aide

[Just_Jon]

Bonjour,
Je sais que ce post date un peu mais j'ai rencontré le même problème et trouvé la réponse.
Pour ma part, le tri ne se faisait pas dans l'état car j'avais un champ pour compter le nombre d'enregistrement de type "=Compte([<Champ>])".
En le supprimant, le tri s'effectue comme dans la requête.
En espérant que cela sera utile...