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
André AVONS
Salut 1) Crees une Table ListeRequete Champs = NomRequete string et LibelleRequete cette table te servira a remplir ta liste si tu mets 2 colonnes avec le libelle qui est en fait la requete Sql Tu peux faire sur clic de la liste docmd.runsql me.Talistederequete.column(1) et la requete sera executée
2)Copies ce qui suit dans un nouveau module Function ListeDesRequetes() On Error GoTo erreur Dim DBS As Database Dim ListeRequete As QueryDefs, t As QueryDef Dim Requete As Object Dim matab As Recordset Dim x As String, libelle As String
Set DBS = CurrentDb
' Crée un nouvel objet Querydef. Set matab = DBS.OpenRecordset("ListeRequete") Set Liste = DBS.QueryDefs
For Each Requete In Liste x = Requete.Name If Left$(x, 4) <> "MSYS" Then matab.AddNew matab("NomRequete") = x Set t = DBS.QueryDefs(x) ' libelle = "Requete sur la table " & t.Properties(4) matab("LibelleRequete") = StrConv(libelle, 3) matab.Update End If Next Fin: matab.Close DBS.Close Set t = Nothing sset Liste = Noting Set DBS = Nothing Set matab = Nothing erreur: Resume Next
End Function -- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "bob" a écrit dans le message de news:bg6rbs$7vp$
Salut, Dans un formulaire, est-il possible d'avoir dans une liste déroulante la liste de toutes mes requetes. D'avance merci Didier
Salut
1) Crees une Table ListeRequete Champs = NomRequete string et LibelleRequete
cette table te servira a remplir ta liste si tu mets 2 colonnes avec le
libelle qui est en fait la requete Sql
Tu peux faire sur clic de la liste
docmd.runsql me.Talistederequete.column(1)
et la requete sera executée
2)Copies ce qui suit dans un nouveau module
Function ListeDesRequetes()
On Error GoTo erreur
Dim DBS As Database
Dim ListeRequete As QueryDefs, t As QueryDef
Dim Requete As Object
Dim matab As Recordset
Dim x As String, libelle As String
Set DBS = CurrentDb
' Crée un nouvel objet Querydef.
Set matab = DBS.OpenRecordset("ListeRequete")
Set Liste = DBS.QueryDefs
For Each Requete In Liste
x = Requete.Name
If Left$(x, 4) <> "MSYS" Then
matab.AddNew
matab("NomRequete") = x
Set t = DBS.QueryDefs(x) '
libelle = "Requete sur la table " & t.Properties(4)
matab("LibelleRequete") = StrConv(libelle, 3)
matab.Update
End If
Next
Fin:
matab.Close
DBS.Close
Set t = Nothing
sset Liste = Noting
Set DBS = Nothing
Set matab = Nothing
erreur:
Resume Next
End Function
--
@+
André
Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"bob" <bob@aol.com> a écrit dans le message de
news:bg6rbs$7vp$1@news-reader2.wanadoo.fr...
Salut,
Dans un formulaire, est-il possible d'avoir dans une liste déroulante la
liste de toutes mes requetes.
D'avance merci
Didier
Salut 1) Crees une Table ListeRequete Champs = NomRequete string et LibelleRequete cette table te servira a remplir ta liste si tu mets 2 colonnes avec le libelle qui est en fait la requete Sql Tu peux faire sur clic de la liste docmd.runsql me.Talistederequete.column(1) et la requete sera executée
2)Copies ce qui suit dans un nouveau module Function ListeDesRequetes() On Error GoTo erreur Dim DBS As Database Dim ListeRequete As QueryDefs, t As QueryDef Dim Requete As Object Dim matab As Recordset Dim x As String, libelle As String
Set DBS = CurrentDb
' Crée un nouvel objet Querydef. Set matab = DBS.OpenRecordset("ListeRequete") Set Liste = DBS.QueryDefs
For Each Requete In Liste x = Requete.Name If Left$(x, 4) <> "MSYS" Then matab.AddNew matab("NomRequete") = x Set t = DBS.QueryDefs(x) ' libelle = "Requete sur la table " & t.Properties(4) matab("LibelleRequete") = StrConv(libelle, 3) matab.Update End If Next Fin: matab.Close DBS.Close Set t = Nothing sset Liste = Noting Set DBS = Nothing Set matab = Nothing erreur: Resume Next
End Function -- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "bob" a écrit dans le message de news:bg6rbs$7vp$
Salut, Dans un formulaire, est-il possible d'avoir dans une liste déroulante la liste de toutes mes requetes. D'avance merci Didier
bob
Merci bc ça marche nickel
"3stone" a écrit dans le message de news:
Salut,
bob
Dans un formulaire, est-il possible d'avoir dans une liste déroulante la liste de toutes mes requetes.
Colle ceci comme RowSource (contenu) de ta liste déroulante, et comme RowSourceType (origine source), tu mets "Table/requête" :
SELECT MsysObjects.Name AS ObjectName FROM MsysObjects WHERE (((Left$([Name],1))<>"~") AND ((Left$([Name],4))<>"Msys") AND ((MsysObjects.Type)=5) AND ((MsysObjects.Flags)=0)) ORDER BY MsysObjects.Name;
NB: Il est déconseillé lire ou de manipuler les tables systèmes... Ce n'est pas pour rien quelles portent leurs noms ;-)
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
Merci bc ça marche nickel
"3stone" <3stone@skynet.be> a écrit dans le message de news:
eBvhiNjVDHA.2248@TK2MSFTNGP10.phx.gbl...
Salut,
bob <bob@aol.com>
Dans un formulaire, est-il possible d'avoir dans une liste déroulante la
liste de toutes mes requetes.
Colle ceci comme RowSource (contenu) de ta liste déroulante,
et comme RowSourceType (origine source), tu mets "Table/requête" :
SELECT MsysObjects.Name AS ObjectName
FROM MsysObjects
WHERE (((Left$([Name],1))<>"~")
AND ((Left$([Name],4))<>"Msys")
AND ((MsysObjects.Type)=5)
AND ((MsysObjects.Flags)=0))
ORDER BY MsysObjects.Name;
NB: Il est déconseillé lire ou de manipuler les tables systèmes...
Ce n'est pas pour rien quelles portent leurs noms ;-)
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------
Dans un formulaire, est-il possible d'avoir dans une liste déroulante la liste de toutes mes requetes.
Colle ceci comme RowSource (contenu) de ta liste déroulante, et comme RowSourceType (origine source), tu mets "Table/requête" :
SELECT MsysObjects.Name AS ObjectName FROM MsysObjects WHERE (((Left$([Name],1))<>"~") AND ((Left$([Name],4))<>"Msys") AND ((MsysObjects.Type)=5) AND ((MsysObjects.Flags)=0)) ORDER BY MsysObjects.Name;
NB: Il est déconseillé lire ou de manipuler les tables systèmes... Ce n'est pas pour rien quelles portent leurs noms ;-)
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
André AVONS
Salut Ca c'est interressant, ou peut on trouver la collection de MsysObjects. Je vais chercher mais tu as peut etre ca -- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "3stone" a écrit dans le message de news:
Salut,
bob
Dans un formulaire, est-il possible d'avoir dans une liste déroulante la liste de toutes mes requetes.
Colle ceci comme RowSource (contenu) de ta liste déroulante, et comme RowSourceType (origine source), tu mets "Table/requête" :
SELECT MsysObjects.Name AS ObjectName FROM MsysObjects WHERE (((Left$([Name],1))<>"~") AND ((Left$([Name],4))<>"Msys") AND ((MsysObjects.Type)=5) AND ((MsysObjects.Flags)=0)) ORDER BY MsysObjects.Name;
NB: Il est déconseillé lire ou de manipuler les tables systèmes... Ce n'est pas pour rien quelles portent leurs noms ;-)
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------
Salut
Ca c'est interressant, ou peut on trouver la collection de
MsysObjects.
Je vais chercher mais tu as peut etre ca
--
@+
André
Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"3stone" <3stone@skynet.be> a écrit dans le message de
news:eBvhiNjVDHA.2248@TK2MSFTNGP10.phx.gbl...
Salut,
bob <bob@aol.com>
Dans un formulaire, est-il possible d'avoir dans une liste déroulante la
liste de toutes mes requetes.
Colle ceci comme RowSource (contenu) de ta liste déroulante,
et comme RowSourceType (origine source), tu mets "Table/requête" :
SELECT MsysObjects.Name AS ObjectName
FROM MsysObjects
WHERE (((Left$([Name],1))<>"~")
AND ((Left$([Name],4))<>"Msys")
AND ((MsysObjects.Type)=5)
AND ((MsysObjects.Flags)=0))
ORDER BY MsysObjects.Name;
NB: Il est déconseillé lire ou de manipuler les tables systèmes...
Ce n'est pas pour rien quelles portent leurs noms ;-)
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------
Salut Ca c'est interressant, ou peut on trouver la collection de MsysObjects. Je vais chercher mais tu as peut etre ca -- @+ André
Quelques liens avec des exemples, des utilitaires et des compléments pour Access http://access.seneque.free.fr/ http://www.self-access.com/ http://www.mvps.org/accessfr/ http://mypage.bluewin.ch/w.stucki/ http://access.jessy.free.fr/ http://www.anor.fr.st "3stone" a écrit dans le message de news:
Salut,
bob
Dans un formulaire, est-il possible d'avoir dans une liste déroulante la liste de toutes mes requetes.
Colle ceci comme RowSource (contenu) de ta liste déroulante, et comme RowSourceType (origine source), tu mets "Table/requête" :
SELECT MsysObjects.Name AS ObjectName FROM MsysObjects WHERE (((Left$([Name],1))<>"~") AND ((Left$([Name],4))<>"Msys") AND ((MsysObjects.Type)=5) AND ((MsysObjects.Flags)=0)) ORDER BY MsysObjects.Name;
NB: Il est déconseillé lire ou de manipuler les tables systèmes... Ce n'est pas pour rien quelles portent leurs noms ;-)
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/ --------------------------------------