SELECT DISTINCT Dépenses.LieuDépenses FROM Dépenses WHERE UNION SELECT "(TOUS)" as bogus FROM Dépenses;
Ici un court extrait de la fonction utlisée en MAJ de cette liste déroulante:
Dim maBD As Database, rst As Recordset, leNbre As Long, monSQL As String, meF As Form, meS As Form
Set maBD = CurrentDb
Set meF = Forms!frmRechComplexe
leNbre = 0
If meF!ListeEndroits = "(tous)" Then
monSQL = "SELECT * " _
& " FROM dépenses WHERE dépenses.DateDépenses =#" & Format$(meF!ListeDate, "mm/dd/yyyy") & "#"
Else
monSQL = "SELECT * " _
& " FROM dépenses WHERE dépenses.DateDépenses =#" & Format$(meF!ListeDate, "mm/dd/yyyy") & "#" _
& " AND dépenses.LieuDépenses= '" & meF!ListeEndroits & "'"
End If
Set rst = maBD.OpenRecordset(monSQL)
Désolé pour les petits caractères, c'est le fait de copier coller aui m'a fait ça.
@+
Guy FALESSE
"laurent" a écrit dans le message de news:d6ca01c43a49$d21b88e0$ Bonjour,
Dans une Liste déroulante j'aimerais rajouter comme choix les possibilités "Aucun" ou "*" ou "tous".
Comment paramétrer cette liste sachant que les données qui permettent d'alimenter cette liste proviennent d'une table
Merci.
www.eztree-msdn.com \(Laurent Jordi\) Enlever le s à infos pour me contacter par mail
Salut,
Bonne réponse au bémol près qu'il faudra sans doute un code pour lier la liste au champ de la table mère
SELECT DISTINCT Dépenses.Code,Dépenses.LieuDépenses FROM Dépenses WHERE UNION SELECT - Code, Libellé as LieuDépenses FROM PT_Tous WHERE Code=1 ^ | ne pas oublier de mettre le - devant le code de l'élément de la table PT_Tous
PT_Tous est une table qui contient les valeurs de type
1,Tous ou 2,Nouveau ou 3,Aucun filtre
etc...
Il vaut mieu faire correspondre le nom des colonnes si on veut y accéder par leur nom Il vaut mieu éviter les accents car si un jour tu veux faire migrer l'appli vers SQL Server ça rique de compliquer les choses...
@+
LJ
www.eztree-msdn.com www.ezlogic.mc
"Guy FALESSE" a écrit dans le message de news:
Salut,
Pour une fois, je peux dépanner :-)
A mettre dans données de ta liste déroulante
SELECT DISTINCT Dépenses.LieuDépenses FROM Dépenses WHERE UNION SELECT "(TOUS)" as bogus FROM Dépenses;
Ici un court extrait de la fonction utlisée en MAJ de cette liste déroulante:
Dim maBD As Database, rst As Recordset, leNbre As Long, monSQL As String, meF As Form, meS As Form
Set maBD = CurrentDb
Set meF = Forms!frmRechComplexe
leNbre = 0
If meF!ListeEndroits = "(tous)" Then
monSQL = "SELECT * " _
& " FROM dépenses WHERE dépenses.DateDépenses =#" & Format$(meF!ListeDate, "mm/dd/yyyy") & "#"
Else
monSQL = "SELECT * " _
& " FROM dépenses WHERE dépenses.DateDépenses =#" & Format$(meF!ListeDate, "mm/dd/yyyy") & "#" _
& " AND dépenses.LieuDépenses= '" & meF!ListeEndroits & "'"
End If
Set rst = maBD.OpenRecordset(monSQL)
Désolé pour les petits caractères, c'est le fait de copier coller aui m'a fait ça.
@+
Guy FALESSE
"laurent" a écrit dans le message de news:d6ca01c43a49$d21b88e0$ Bonjour,
Dans une Liste déroulante j'aimerais rajouter comme choix les possibilités "Aucun" ou "*" ou "tous".
Comment paramétrer cette liste sachant que les données qui permettent d'alimenter cette liste proviennent d'une table
Merci.
Salut,
Bonne réponse au bémol près qu'il faudra sans doute un code pour lier la
liste au champ de la table mère
SELECT DISTINCT Dépenses.Code,Dépenses.LieuDépenses FROM Dépenses WHERE
UNION SELECT
- Code, Libellé as LieuDépenses FROM PT_Tous WHERE Code=1
^
| ne pas oublier de mettre le - devant le code de l'élément de la table
PT_Tous
PT_Tous est une table qui contient les valeurs de type
1,Tous
ou
2,Nouveau
ou
3,Aucun filtre
etc...
Il vaut mieu faire correspondre le nom des colonnes si on veut y accéder par
leur nom
Il vaut mieu éviter les accents car si un jour tu veux faire migrer l'appli
vers SQL Server ça rique de compliquer les choses...
@+
LJ
www.eztree-msdn.com
www.ezlogic.mc
"Guy FALESSE" <guy.falesse@skynet.be> a écrit dans le message de
news:uayZQNmOEHA.628@TK2MSFTNGP11.phx.gbl...
Salut,
Pour une fois, je peux dépanner :-)
A mettre dans données de ta liste déroulante
SELECT DISTINCT Dépenses.LieuDépenses FROM Dépenses WHERE UNION SELECT
"(TOUS)" as bogus FROM Dépenses;
Ici un court extrait de la fonction utlisée en MAJ de cette liste
déroulante:
Dim maBD As Database, rst As Recordset, leNbre As Long, monSQL As String,
meF As Form, meS As Form
Set maBD = CurrentDb
Set meF = Forms!frmRechComplexe
leNbre = 0
If meF!ListeEndroits = "(tous)" Then
monSQL = "SELECT * " _
& " FROM dépenses WHERE dépenses.DateDépenses =#" & Format$(meF!ListeDate,
"mm/dd/yyyy") & "#"
Else
monSQL = "SELECT * " _
& " FROM dépenses WHERE dépenses.DateDépenses =#" & Format$(meF!ListeDate,
"mm/dd/yyyy") & "#" _
& " AND dépenses.LieuDépenses= '" & meF!ListeEndroits & "'"
End If
Set rst = maBD.OpenRecordset(monSQL)
Désolé pour les petits caractères, c'est le fait de copier coller aui m'a
fait ça.
@+
Guy FALESSE
"laurent" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:d6ca01c43a49$d21b88e0$a001280a@phx.gbl...
Bonjour,
Dans une Liste déroulante j'aimerais rajouter comme choix
les possibilités "Aucun" ou "*" ou "tous".
Comment paramétrer cette liste sachant que les données qui
permettent d'alimenter cette liste proviennent d'une table
Bonne réponse au bémol près qu'il faudra sans doute un code pour lier la liste au champ de la table mère
SELECT DISTINCT Dépenses.Code,Dépenses.LieuDépenses FROM Dépenses WHERE UNION SELECT - Code, Libellé as LieuDépenses FROM PT_Tous WHERE Code=1 ^ | ne pas oublier de mettre le - devant le code de l'élément de la table PT_Tous
PT_Tous est une table qui contient les valeurs de type
1,Tous ou 2,Nouveau ou 3,Aucun filtre
etc...
Il vaut mieu faire correspondre le nom des colonnes si on veut y accéder par leur nom Il vaut mieu éviter les accents car si un jour tu veux faire migrer l'appli vers SQL Server ça rique de compliquer les choses...
@+
LJ
www.eztree-msdn.com www.ezlogic.mc
"Guy FALESSE" a écrit dans le message de news:
Salut,
Pour une fois, je peux dépanner :-)
A mettre dans données de ta liste déroulante
SELECT DISTINCT Dépenses.LieuDépenses FROM Dépenses WHERE UNION SELECT "(TOUS)" as bogus FROM Dépenses;
Ici un court extrait de la fonction utlisée en MAJ de cette liste déroulante:
Dim maBD As Database, rst As Recordset, leNbre As Long, monSQL As String, meF As Form, meS As Form
Set maBD = CurrentDb
Set meF = Forms!frmRechComplexe
leNbre = 0
If meF!ListeEndroits = "(tous)" Then
monSQL = "SELECT * " _
& " FROM dépenses WHERE dépenses.DateDépenses =#" & Format$(meF!ListeDate, "mm/dd/yyyy") & "#"
Else
monSQL = "SELECT * " _
& " FROM dépenses WHERE dépenses.DateDépenses =#" & Format$(meF!ListeDate, "mm/dd/yyyy") & "#" _
& " AND dépenses.LieuDépenses= '" & meF!ListeEndroits & "'"
End If
Set rst = maBD.OpenRecordset(monSQL)
Désolé pour les petits caractères, c'est le fait de copier coller aui m'a fait ça.
@+
Guy FALESSE
"laurent" a écrit dans le message de news:d6ca01c43a49$d21b88e0$ Bonjour,
Dans une Liste déroulante j'aimerais rajouter comme choix les possibilités "Aucun" ou "*" ou "tous".
Comment paramétrer cette liste sachant que les données qui permettent d'alimenter cette liste proviennent d'une table
Merci.
Merci à tous les deux ..
J'essaie tout de suite..
-----Message d'origine----- Bonjour,
Dans une Liste déroulante j'aimerais rajouter comme choix les possibilités "Aucun" ou "*" ou "tous".
Comment paramétrer cette liste sachant que les données qui
permettent d'alimenter cette liste proviennent d'une table
Merci.
.
Merci à tous les deux ..
J'essaie tout de suite..
-----Message d'origine-----
Bonjour,
Dans une Liste déroulante j'aimerais rajouter comme choix
les possibilités "Aucun" ou "*" ou "tous".
Comment paramétrer cette liste sachant que les données
qui
permettent d'alimenter cette liste proviennent d'une table
