Discussion :

[Hydatid]

Bonjour, sous Access 2003 j’ai un formulaire avec une zone de liste (Liste32) j’y affiche selon la lettre écrite dans une zone texte (Texte42) des médicaments, je voudrais que la liste soit triée selon l’ordre alphabétique, Le code qui fonctionne est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim SQL As String
 Dim SQLWhere As String
   SQL = "SELECT CodRemed, Specialite, Classe " & _
        "FROM Remed " & _
        "WHERE Remed!CodRemed <> 0"
    SQL = SQL & "And Remed!Classe like '*" & Me.Texte42.Value & "*' "
  SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
  SQL = SQL & ";"
 Me.Liste32.RowSource = SQL
 Me.Liste32.Requery

Lorsque j’ajoute : "ORDER BY Remed.Specialite;" après WHERE cela ne marche pas !
Que dois je faire, MERCI

[spaiku]

Bonjour,

1ère chose à faire en urgence : éditer ton premier post pour y mettre les balises de code. Sinon les modérateurs vont faire à peu près cette tête là :

Ensuite, quand tu dis ça ne marche pas : as-tu un message d'erreur ? La liste s'affiche-t-elle correctement (c a d avec ton filtre), mais sans tri ? Peux-tu poster le code qui ne marche pas ?

Enfin, je ne comprends pas très bien ta ligne

Code :

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

SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))

L'utilises-tu ailleurs dans la fonction ? Parce que sinon, je ne vois pas à quoi elle sert.

[micniv]

salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim SQL As String
 Dim SQLWhere As String
   SQL = "SELECT CodRemed, Specialite, Classe "  _
         & " FROM Remed "  _
        & " WHERE Remed!CodRemed <> 0" _
        & " And Remed!Classe like '*" & Me.Texte42.Value & "*' " _
       & " ORDER BY Specialite ;"
 
 Me.Liste32.RowSource = SQL
 Me.Liste32.Requery

comme spaiku, ta ligne SQLWhere = ... ne te sert à rien dans ce que tu nous montres

[Hydatid]

Bonsoir, Merci de ta réponse Spaiku.
Cela ne marche pas cad la liste reste vide. Le code écrit dans la procédure clique du bouton fonctionne bien : la liste affiche les médicaments selon le critère spécifié dans la zone texte42. Le code SQLWhere permet de trouver tous les mots contenant la lettre spécifiée.

[Hydatid]

Bonsoir, Merci de ta réponse micniv.
Ton code marche à merveilles, effectivement sans SQLWhere.
Je vous remercie tous les deux !
A plus