Discussion :

[maringot]

Bonjour,

J'ai plusieurs formulaires (devis, facture..) qui contiennent des listes déroulantes de clients, mais celles-ci ne sont pas classées dans l'ordre alphabétique.
J'ai vérifié les relations dans les tables, j'ai vérifié dans les requêtes, toutes les listes sont classées par ordre alphabétique mais dès que je les met dans un formulaire c'est l'anarchie, il n'y a pas de logique dans la présentation de la liste car ce n'est ni classé par N°ID, ni par lettre, ni par date d'enregistrement...
Je n'y comprends rien, est-ce que quelqu'un aurait une idée pour résoudre ce problème ?
Avec mes remerciements,
Maringot

[maringot]

J'apporte une précision sur ma demande: dans les formulaires j'ai deux listes, une "client" qui est classée par ordre alphabétique, et une "site" et c'est celle-ci qui ne se classe pas par ordre alphabétique.
La liste "site" est en lien avec la liste client, c'est à dire que lorsque je choisi un client, la liste "site" présente les sites rattachés au client.

[accessisgood]

Bonjour,

tu peux mettre une requete triee comme source du formulaire

[maringot]

Bonjour accesisgood,

Que veux tu dire ? car dans les tables où il y a les relations, l'ordre des sites en "croissant". Dans les requêtes relatives aux formulaire, l'ordre des sites est "croissant" et pourtant tout est mélangé...

[tee_grandbois]

Bonjour maringot,
je pense que spécifier un tri dans les relations n'implique pas qu'il sera effectif dans le reste de la base, car contrairement à ce qu'on pourrait croire, l'ordre de tri n'est pas natif dans les objets (y compris les tables), il faut la spécifier.
C'est ici pour un formulaire :

[maringot]

Bonjour Tee_grandbois,

Et pour un champ on le précise où, car "Tri par" ne figure pas dans les propositions de données...

[tee_grandbois]

bonjour,

Et pour un champ on le précise où, car "Tri par" ne figure pas dans les propositions de données

je n'ai pas compris "ne figure pas dans les propositions de données".
Si cela concerne les sources de données du formulaire, les champs doivent être précisés dans la propriété "Tri par" :

[maringot]

Bonjour Tee_grandbois,

Ca ne fonctionne pas...alors je me demande si cela ne vient d'une procédure évènementielle sur activation qui est la suivante :

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
Private Sub Form_Current()
Dim strSQL As String
If Me.C_Sites__oui_non = "11" Then
strSQL = "SELECT [T-Sites].IDSites, [T-Sites].[S-Nom-Societe], [T-Sites].[S-Adr1], [T-Sites].[S-CP], [T-Sites].[S-Ville], [T-Sites].Payeur " _
& "From [T-Sites] " _
& "WHERE [T-Sites].Payeur = " & Me.IDClient & ";"
Me.IDSites.RowSource = strSQL
Me.IDSites.Requery
Me.IDSites.Visible = True
Me.Commande105.Visible = True
Else
Me.IDSites.Visible = False
Me.Commande105.Visible = False
End If
End Sub

Avec ce code, suivant si mes clients ont des "sites", le champ "IDSites" apparaît et est renseigné et donc c'est celui-ci qui n'est pas classé par ordre alphabétique malgré ordre "croissant" dans les relations des tables et dans les requêtes, rien n'y fait tout est en désordre.
C'est pourquoi je me demande si dans le code on ne peut pas ajouter quelque chose qui pourrait classer les sites ??

[Invité]

Bonjour

Tu n'as pas d'ordre dans ta requête, essayes de mettre un ORDER BY avec le nom du champ que tu souhaites en fin de celles-ci.

Philippe

[maringot]

Bonjour Philippe,

J'ai modifié le code comme 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
Private Sub Form_Current()
Dim strSQL As String
If Me.C_Sites__oui_non = "11" Then
strSQL = "SELECT [T-Sites].IDSites, [T-Sites].[S-Nom-Societe], [T-Sites].[S-Adr1], [T-Sites].[S-CP], [T-Sites].[S-Ville], [T-Sites].Payeur " _
& "From [T-Sites] ORDER BY [S-Nom-Societe]" _
& "WHERE [T-Sites].Payeur = " & Me.IDClient & ";"
Me.IDSites.RowSource = strSQL
Me.IDSites.Requery
Me.IDSites.Visible = True
Me.Commande105.Visible = True
Else
Me.IDSites.Visible = False
Me.Commande105.Visible = False
End If
End sub

Mais ça ne change rien

[maringot]

Complément d'info

Je l'ai également écrit comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim strSQL As String
If Me.C_Sites__oui_non = "11" Then
strSQL = "SELECT [T-Sites].IDSites, [T-Sites].[S-Nom-Societe], [T-Sites].[S-Adr1], [T-Sites].[S-CP], [T-Sites].[S-Ville], [T-Sites].Payeur " _
& "From [T-Sites] ORDER BY[T-Sites].[S-Nom-Societe]" _
& "WHERE [T-Sites].Payeur = " & Me.IDClient & ";"
Me.IDSites.RowSource = strSQL
Me.IDSites.Requery
Me.IDSites.Visible = True
Me.Commande105.Visible = True
Else
Me.IDSites.Visible = False
Me.Commande105.Visible = False
End If
End Sub

Mai là je n'ai plus rien qui s'affiche dans cette liste...donc il y a peut-être un problème avec les ponctuations, mais je ne connais pas assez le VBA pour savoir quoi faire

[tee_grandbois]

Mai là je n'ai plus rien qui s'affiche dans cette liste...donc il y a peut-être un problème avec les ponctuations, mais je ne connais pas assez le VBA pour savoir quoi faire

bonjour,
il manque un espace entre "[S-Nom-Societe]" _ et & "WHERE [T-Sites].Payeur = " & Me.IDClient & ";"

Code :

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

1
2
"[S-Nom-Societe] " _
& "WHERE [T-Sites].Payeur = " & Me.IDClient & ";"

[maringot]

Bonjour,

J'ai ajouté un espace :

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
Private Sub Form_Current()
Dim strSQL As String
If Me.C_Sites__oui_non = "11" Then
strSQL = "SELECT [T-Sites].IDSites, [T-Sites].[S-Nom-Societe], [T-Sites].[S-Adr1], [T-Sites].[S-CP], [T-Sites].[S-Ville], [T-Sites].Payeur " _
& "From [T-Sites] ORDER BY [T-Sites].[S-Nom-Societe] " _
& "WHERE [T-Sites].Payeur = " & Me.IDClient & ";"
Me.IDSites.RowSource = strSQL
Me.IDSites.Requery
Me.IDSites.Visible = True
Me.Commande105.Visible = True
Else
Me.IDSites.Visible = False
Me.Commande105.Visible = False
End If
End Sub

Mais rien n'y fait la liste n'affiche toujours rien...

[tee_grandbois]

Bonjour,
Est-ce que Me.ID_client est correctement renseigné ?
Ajoute un Debug.Print strSQL juste avant le End Sub pour voir ce que contient RowSource (Ctrl +G dans Visual Basic pour afficher la fenêtre d'exécution et voir le résultat du Debug). Tu peux ensuite copier le SQL dans une nouvelle requête pour savoir pourquoi il ne retourne rien.

[maringot]

Bonjour Tee_grandbois,

J'ai donc ajouté Debug.Print strSQL puis créé une requête SQL, et voici le message après "Exécuter":

"Erreur de syntaxe (opérateur absent) dans l'expression "[T-Sites].[S-Nom-Societe] WHERE [T-Sites].Payeur = 106"

106 étant le n° du client saisi dans le dernier formulaire de la liste. J'ai essayé avec d'autres clients et le n° change bien à chaque fois.

[tee_grandbois]

Bonjour,
postes le SQL complet car la syntaxe incorrecte est peut-être juste avant le bout de code que tu montres.
Merci.

[EDIT:] finalement, je pense que l'erreur vient du ORDER BY qui est mal placé, il doit se mettre après le WHERE

[maringot]

Bonjour,

Voici le résultat de la requête :


et lorsque je fais OK, "WHERE" est surligné


Donc effectivement le problème est peut-être là...

[tee_grandbois]

bonjour,
il manque toujours l'espace entre ORDER BY et [T-Sites].[S-Nom-Societe]

Code :

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

1
2
strSQL = "SELECT [T-Sites].IDSites, [T-Sites].[S-Nom-Societe], [T-Sites].[S-Adr1], [T-Sites].[S-CP], [T-Sites].[S-Ville], [T-Sites].Payeur " _
& "From [T-Sites] WHERE [T-Sites].Payeur = " & Me.IDClient & " ORDER BY [T-Sites].[S-Nom-Societe];"

[maringot]

Chapeau bas Tee_grandbois ! ça fonctionne parfaitement, enfin les listes sont classées.

Merci pour votre patience et votre persévérance.

Bien cordialement,
Maringot