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
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
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
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
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
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
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
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
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
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
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
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
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
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
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 >
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" <Leyley39@discussions.microsoft.com> a écrit dans le message de
news:5800915D-3AB5-4174-B4AB-EFA14E59465D@microsoft.com...
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
>
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 >
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
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
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
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 > >
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" <Leyley39@discussions.microsoft.com> a écrit dans le message de
news:5800915D-3AB5-4174-B4AB-EFA14E59465D@microsoft.com...
> 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
> >
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 > >
