Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access classement par ordre alpha

classement par ordre alpha

7 réponses
Avatar
Leyley39
Bonjour

j'ai fait un code VBA pour un menu déroulant. Je voudrais que la liste dans
le menu soit par ordre alphabétique mais si je rajoute OrderBy TACHE, ca me
dit erreur de syntaxe. Où est l'erreur :
SQL = "Select N°_LISTE_TACHE, TACHE, N°_LISTE_ACTIVITE FROM LISTE_TACHE
WHERE N°_LISTE_ACTIVITE =" & lngIDCat OrderBy TACHE
--
Merci de votre aide

Leyley39
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Eric
Bonjour,

SQL = "Select N°_LISTE_TACHE, TACHE, N°_LISTE_ACTIVITE FROM LISTE_TACHE
WHERE N°_LISTE_ACTIVITE =" & lngIDCat & " Order By TACHE;"

devrait fonctionner

Leyley39 a écrit :
Bonjour

j'ai fait un code VBA pour un menu déroulant. Je voudrais que la liste dans
le menu soit par ordre alphabétique mais si je rajoute OrderBy TACHE, ca me
dit erreur de syntaxe. Où est l'erreur :
SQL = "Select N°_LISTE_TACHE, TACHE, N°_LISTE_ACTIVITE FROM LISTE_TACHE
WHERE N°_LISTE_ACTIVITE =" & lngIDCat OrderBy TACHE



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Avatar
Leyley39
Ca dit maintenant
Erreur de compilation ; Attendu : Expression.

J'avais essayé avec les " mais soit ils ne sont pas au bon endroit soit ce
n'est pas ce qu'il manque. Ce devrait pourtant être simple d'après ce que
disent les bouquins. Je planche la dessus depuis des heures. Je ne voudrais
pas resaisir ma table en ordre alphabéthique. Ca ne règlerait pas vraiment le
problème puisque je serai amenée à rajouter des items dans la tables.
--
Merci de votre aide

Leyley39


"Eric" a écrit :

Bonjour,

SQL = "Select N°_LISTE_TACHE, TACHE, N°_LISTE_ACTIVITE FROM LISTE_TACHE
WHERE N°_LISTE_ACTIVITE =" & lngIDCat & " Order By TACHE;"

devrait fonctionner

Leyley39 a écrit :
> Bonjour
>
> j'ai fait un code VBA pour un menu déroulant. Je voudrais que la liste dans
> le menu soit par ordre alphabétique mais si je rajoute OrderBy TACHE, ca me
> dit erreur de syntaxe. Où est l'erreur :
> SQL = "Select N°_LISTE_TACHE, TACHE, N°_LISTE_ACTIVITE FROM LISTE_TACHE
> WHERE N°_LISTE_ACTIVITE =" & lngIDCat OrderBy TACHE

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Avatar
Eric
re,

Tu es sûr que lngIDCat est renseigné ?
Si tu fais un Debug.Print SQL derrière la définition du SQL, que
s'affiche-t-il dans la fenêtre Exécution ?

Leyley39 a écrit :
Ca dit maintenant
Erreur de compilation ; Attendu : Expression.

J'avais essayé avec les " mais soit ils ne sont pas au bon endroit soit ce
n'est pas ce qu'il manque. Ce devrait pourtant être simple d'après ce que
disent les bouquins. Je planche la dessus depuis des heures. Je ne voudrais
pas resaisir ma table en ordre alphabéthique. Ca ne règlerait pas vraiment le
problème puisque je serai amenée à rajouter des items dans la tables.



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Avatar
Leyley39
Ing est bien renseigné. Voici mon code entier qui fonctionne très bien mais
avec des listes non triés :


Private Sub cmbactivite_AfterUpdate()
Dim IngIDCat As Long
Dim SQL As String

''Vérifie que l'on a cliqué sur une catégorie pour éviter le Null''
If Not IsNumeric(Me!cmbactivite) Then Exit Sub
Me.Tag = Me.cmbactivite.Value
'' Affecte la valeur de N°_LISTE_ACTIVITE à la variable IgnIDCat''
lngIDCat = Me!cmbactivite
''Construit la chaîne SQL avec l'activité concernée''
SQL = "Select N°_LISTE_TACHE, TACHE, N°_LISTE_ACTIVITE FROM LISTE_TACHE
WHERE N°_LISTE_ACTIVITE =" & lngIDCat

'' Affecte la chaîne SQL à la liste des tâches ''
cmbtache.RowSource = SQL
''Déverrouille la liste des tâches ''
cmbtache.Enabled = True
'' Donne le focus la liste des tâches''
cmbtache.SetFocus
''Déroule la liste des tâches ''
cmbtache.Dropdown

End Sub

Si on ajoute OrderBy, ca bloque.

--
Merci de votre aide

Leyley39


"Eric" a écrit :

re,

Tu es sûr que lngIDCat est renseigné ?
Si tu fais un Debug.Print SQL derrière la définition du SQL, que
s'affiche-t-il dans la fenêtre Exécution ?

Leyley39 a écrit :
> Ca dit maintenant
> Erreur de compilation ; Attendu : Expression.
>
> J'avais essayé avec les " mais soit ils ne sont pas au bon endroit soit ce
> n'est pas ce qu'il manque. Ce devrait pourtant être simple d'après ce que
> disent les bouquins. Je planche la dessus depuis des heures. Je ne voudrais
> pas resaisir ma table en ordre alphabéthique. Ca ne règlerait pas vraiment le
> problème puisque je serai amenée à rajouter des items dans la tables.

--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Avatar
Michel__D
Bonjour,

Essaye avec ceci :
SQL = "SELECT [N°_LISTE_TACHE], [TACHE], [N°_LISTE_ACTIVITE]" & _
" FROM [LISTE_TACHE]" & _
" WHERE [N°_LISTE_ACTIVITE]=" & lngIDCat & _
" ORDER BY [TACHE];"



"Leyley39" a écrit dans le message de
news:
Ing est bien renseigné. Voici mon code entier qui fonctionne très bien mais
avec des listes non triés :


Private Sub cmbactivite_AfterUpdate()
Dim IngIDCat As Long
Dim SQL As String

''Vérifie que l'on a cliqué sur une catégorie pour éviter le Null''
If Not IsNumeric(Me!cmbactivite) Then Exit Sub
Me.Tag = Me.cmbactivite.Value
'' Affecte la valeur de N°_LISTE_ACTIVITE à la variable IgnIDCat''
lngIDCat = Me!cmbactivite
''Construit la chaîne SQL avec l'activité concernée''
SQL = "Select N°_LISTE_TACHE, TACHE, N°_LISTE_ACTIVITE FROM LISTE_TACHE
WHERE N°_LISTE_ACTIVITE =" & lngIDCat

'' Affecte la chaîne SQL à la liste des tâches ''
cmbtache.RowSource = SQL
''Déverrouille la liste des tâches ''
cmbtache.Enabled = True
'' Donne le focus la liste des tâches''
cmbtache.SetFocus
''Déroule la liste des tâches ''
cmbtache.Dropdown

End Sub

Si on ajoute OrderBy, ca bloque.

--
Merci de votre aide

Leyley39


"Eric" a écrit :

> re,
>
> Tu es sûr que lngIDCat est renseigné ?
> Si tu fais un Debug.Print SQL derrière la définition du SQL, que
> s'affiche-t-il dans la fenêtre Exécution ?
>
> Leyley39 a écrit :
> > Ca dit maintenant
> > Erreur de compilation ; Attendu : Expression.
> >
> > J'avais essayé avec les " mais soit ils ne sont pas au bon endroit soit ce
> > n'est pas ce qu'il manque. Ce devrait pourtant être simple d'après ce que
> > disent les bouquins. Je planche la dessus depuis des heures. Je ne voudrais
> > pas resaisir ma table en ordre alphabéthique. Ca ne règlerait pas vraiment le
> > problème puisque je serai amenée à rajouter des items dans la tables.
>
> --
> A+
> Eric
> http://www.mpfa.info/
> Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
>


Avatar
Eric
Tu écris bien Order by en 2 mots et non comme tu l'écris sur ton post :
> Si on ajoute OrderBy


Leyley39 a écrit :
Ing est bien renseigné. Voici mon code entier qui fonctionne très bien mais
avec des listes non triés :


Private Sub cmbactivite_AfterUpdate()
Dim IngIDCat As Long
Dim SQL As String

''Vérifie que l'on a cliqué sur une catégorie pour éviter le Null''
If Not IsNumeric(Me!cmbactivite) Then Exit Sub
Me.Tag = Me.cmbactivite.Value
'' Affecte la valeur de N°_LISTE_ACTIVITE à la variable IgnIDCat''
lngIDCat = Me!cmbactivite
''Construit la chaîne SQL avec l'activité concernée''
SQL = "Select N°_LISTE_TACHE, TACHE, N°_LISTE_ACTIVITE FROM LISTE_TACHE
WHERE N°_LISTE_ACTIVITE =" & lngIDCat

'' Affecte la chaîne SQL à la liste des tâches ''
cmbtache.RowSource = SQL
''Déverrouille la liste des tâches ''
cmbtache.Enabled = True
'' Donne le focus la liste des tâches''
cmbtache.SetFocus
''Déroule la liste des tâches ''
cmbtache.Dropdown

End Sub

Si on ajoute OrderBy, ca bloque.




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Avatar
Leyley39
Ca marche impec. Un gros merci.
--


Leyley39


"Michel__D" a écrit :

Bonjour,

Essaye avec ceci :
SQL = "SELECT [N°_LISTE_TACHE], [TACHE], [N°_LISTE_ACTIVITE]" & _
" FROM [LISTE_TACHE]" & _
" WHERE [N°_LISTE_ACTIVITE]=" & lngIDCat & _
" ORDER BY [TACHE];"



"Leyley39" a écrit dans le message de
news:
> Ing est bien renseigné. Voici mon code entier qui fonctionne très bien mais
> avec des listes non triés :
>
>
> Private Sub cmbactivite_AfterUpdate()
> Dim IngIDCat As Long
> Dim SQL As String
>
> ''Vérifie que l'on a cliqué sur une catégorie pour éviter le Null''
> If Not IsNumeric(Me!cmbactivite) Then Exit Sub
> Me.Tag = Me.cmbactivite.Value
> '' Affecte la valeur de N°_LISTE_ACTIVITE à la variable IgnIDCat''
> lngIDCat = Me!cmbactivite
> ''Construit la chaîne SQL avec l'activité concernée''
> SQL = "Select N°_LISTE_TACHE, TACHE, N°_LISTE_ACTIVITE FROM LISTE_TACHE
> WHERE N°_LISTE_ACTIVITE =" & lngIDCat
>
> '' Affecte la chaîne SQL à la liste des tâches ''
> cmbtache.RowSource = SQL
> ''Déverrouille la liste des tâches ''
> cmbtache.Enabled = True
> '' Donne le focus la liste des tâches''
> cmbtache.SetFocus
> ''Déroule la liste des tâches ''
> cmbtache.Dropdown
>
> End Sub
>
> Si on ajoute OrderBy, ca bloque.
>
> --
> Merci de votre aide
>
> Leyley39
>
>
> "Eric" a écrit :
>
> > re,
> >
> > Tu es sûr que lngIDCat est renseigné ?
> > Si tu fais un Debug.Print SQL derrière la définition du SQL, que
> > s'affiche-t-il dans la fenêtre Exécution ?
> >
> > Leyley39 a écrit :
> > > Ca dit maintenant
> > > Erreur de compilation ; Attendu : Expression.
> > >
> > > J'avais essayé avec les " mais soit ils ne sont pas au bon endroit soit ce
> > > n'est pas ce qu'il manque. Ce devrait pourtant être simple d'après ce que
> > > disent les bouquins. Je planche la dessus depuis des heures. Je ne voudrais
> > > pas resaisir ma table en ordre alphabéthique. Ca ne règlerait pas vraiment le
> > > problème puisque je serai amenée à rajouter des items dans la tables.
> >
> > --
> > A+
> > Eric
> > http://www.mpfa.info/
> > Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
> >