Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2
requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et
~sq_fConnexion_K).
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
3stone
Bonjour,
"Sonia LAMOURET"
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2 requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et ~sq_fConnexion_K).
Quelle version d'Access ?
Regarde dans le menu "Outils, Options, onglet Affichage"
Coche [] Objets masqués
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Bonjour,
"Sonia LAMOURET"
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2
requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et
~sq_fConnexion_K).
Quelle version d'Access ?
Regarde dans le menu "Outils, Options, onglet Affichage"
Coche [] Objets masqués
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2 requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et ~sq_fConnexion_K).
Quelle version d'Access ?
Regarde dans le menu "Outils, Options, onglet Affichage"
Coche [] Objets masqués
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Jessy Sempere [MVP]
Bonjour
Ces données proviennent de la table système qui se nomme : "MSysObjects"
Les noms de requêtes que tu donnes correspondent à des requêtes temporaires, si tu fais un compactage, elles disparaitront.
Par contre comment as-tu imprimé cette liste de requêtes ???
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Sonia LAMOURET" a écrit dans le message news:
Bonjour à tous.
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2 requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et ~sq_fConnexion_K).
Merci de me dire à quoi elles correspondent.
Bonjour
Ces données proviennent de la table système qui se nomme : "MSysObjects"
Les noms de requêtes que tu donnes correspondent à des requêtes temporaires,
si tu fais un compactage, elles disparaitront.
Par contre comment as-tu imprimé cette liste de requêtes ???
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Sonia LAMOURET" <slamouret@francelot.com> a écrit dans le message news:
us1OqJSAEHA.3184@TK2MSFTNGP09.phx.gbl...
Bonjour à tous.
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2
requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et
~sq_fConnexion_K).
Ces données proviennent de la table système qui se nomme : "MSysObjects"
Les noms de requêtes que tu donnes correspondent à des requêtes temporaires, si tu fais un compactage, elles disparaitront.
Par contre comment as-tu imprimé cette liste de requêtes ???
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Sonia LAMOURET" a écrit dans le message news:
Bonjour à tous.
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2 requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et ~sq_fConnexion_K).
Merci de me dire à quoi elles correspondent.
Sonia LAMOURET
je l'ai fait et je ne les vois toujours pas
merci quand même.
"3stone" a écrit dans le message de news: #
Bonjour,
"Sonia LAMOURET"
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2
requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et ~sq_fConnexion_K).
Quelle version d'Access ?
Regarde dans le menu "Outils, Options, onglet Affichage"
Coche [] Objets masqués
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
je l'ai fait et je ne les vois toujours pas
merci quand même.
"3stone" <threestone@cielreseau.be> a écrit dans le message de news:
#mtPJOSAEHA.2036@TK2MSFTNGP12.phx.gbl...
Bonjour,
"Sonia LAMOURET"
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a
2
requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et
~sq_fConnexion_K).
Quelle version d'Access ?
Regarde dans le menu "Outils, Options, onglet Affichage"
Coche [] Objets masqués
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2
requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et ~sq_fConnexion_K).
Quelle version d'Access ?
Regarde dans le menu "Outils, Options, onglet Affichage"
Coche [] Objets masqués
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Jessy Sempere [MVP]
Salut Pierre
Elle a du créer sa liste en parcourant la collection QueryDefs hors si la base n'est pas compactée, on retrouve dans cette collection toutes les requêtes existantes mais aussi les requêtes temporaires qui sont créés à ton insus lorsque tu modifis ou que tu créer une requête...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "3stone" a écrit dans le message news: #
Bonjour,
"Sonia LAMOURET"
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2
requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et ~sq_fConnexion_K).
Quelle version d'Access ?
Regarde dans le menu "Outils, Options, onglet Affichage"
Coche [] Objets masqués
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut Pierre
Elle a du créer sa liste en parcourant la collection QueryDefs
hors si la base n'est pas compactée, on retrouve dans cette
collection toutes les requêtes existantes mais aussi les requêtes
temporaires qui sont créés à ton insus lorsque tu modifis ou que
tu créer une requête...
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"3stone" <threestone@cielreseau.be> a écrit dans le message news:
#mtPJOSAEHA.2036@TK2MSFTNGP12.phx.gbl...
Bonjour,
"Sonia LAMOURET"
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a
2
requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et
~sq_fConnexion_K).
Quelle version d'Access ?
Regarde dans le menu "Outils, Options, onglet Affichage"
Coche [] Objets masqués
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Elle a du créer sa liste en parcourant la collection QueryDefs hors si la base n'est pas compactée, on retrouve dans cette collection toutes les requêtes existantes mais aussi les requêtes temporaires qui sont créés à ton insus lorsque tu modifis ou que tu créer une requête...
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "3stone" a écrit dans le message news: #
Bonjour,
"Sonia LAMOURET"
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2
requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et ~sq_fConnexion_K).
Quelle version d'Access ?
Regarde dans le menu "Outils, Options, onglet Affichage"
Coche [] Objets masqués
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Xavier HUE
Bonjour Sonia, bonjour Pierre
Je pense qu'il s'agit d'objets temporaires créés par Access lors de la modificaton de ces requêtes. Tu as dû trouver ces nom d'objets en listant une des tables systèmes de ta base.
Compresse ta base et normalement, ces noms devraient disparaitre.
Cordialement.
Bonjour Sonia, bonjour Pierre
Je pense qu'il s'agit d'objets temporaires créés par
Access lors de la modificaton de ces requêtes.
Tu as dû trouver ces nom d'objets en listant une des
tables systèmes de ta base.
Compresse ta base et normalement, ces noms devraient
disparaitre.
Je pense qu'il s'agit d'objets temporaires créés par Access lors de la modificaton de ces requêtes. Tu as dû trouver ces nom d'objets en listant une des tables systèmes de ta base.
Compresse ta base et normalement, ces noms devraient disparaitre.
Cordialement.
Sonia LAMOURET
Voici le code que j'ai utilisé :
'Dim db As DATABASE 'Dim rs As Recordset 'Dim i As Integer
' Set db = CurrentDb() ' Set rs = db.OpenRecordset("z_liste_requetes") ' For i = 0 To db.QueryDefs.Count - 1 ' rs.AddNew ' rs.Fields("nom_requetes") = db.QueryDefs(i).Name ' rs.Update ' Next i ' rs.Close ' db.Close
Merci pour ton aide
"Jessy Sempere [MVP]" a écrit dans le message de news: c24mtv$hj9$
Bonjour
Ces données proviennent de la table système qui se nomme : "MSysObjects"
Les noms de requêtes que tu donnes correspondent à des requêtes temporaires,
si tu fais un compactage, elles disparaitront.
Par contre comment as-tu imprimé cette liste de requêtes ???
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Sonia LAMOURET" a écrit dans le message news:
Bonjour à tous.
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2
requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et ~sq_fConnexion_K).
Merci de me dire à quoi elles correspondent.
Voici le code que j'ai utilisé :
'Dim db As DATABASE
'Dim rs As Recordset
'Dim i As Integer
' Set db = CurrentDb()
' Set rs = db.OpenRecordset("z_liste_requetes")
' For i = 0 To db.QueryDefs.Count - 1
' rs.AddNew
' rs.Fields("nom_requetes") = db.QueryDefs(i).Name
' rs.Update
' Next i
' rs.Close
' db.Close
Merci pour ton aide
"Jessy Sempere [MVP]" <jessy.sempere@prg.sncf.fr> a écrit dans le message de
news: c24mtv$hj9$1@muguet.sncf.fr...
Bonjour
Ces données proviennent de la table système qui se nomme : "MSysObjects"
Les noms de requêtes que tu donnes correspondent à des requêtes
temporaires,
si tu fais un compactage, elles disparaitront.
Par contre comment as-tu imprimé cette liste de requêtes ???
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Sonia LAMOURET" <slamouret@francelot.com> a écrit dans le message news:
us1OqJSAEHA.3184@TK2MSFTNGP09.phx.gbl...
Bonjour à tous.
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a
2
requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et
~sq_fConnexion_K).
'Dim db As DATABASE 'Dim rs As Recordset 'Dim i As Integer
' Set db = CurrentDb() ' Set rs = db.OpenRecordset("z_liste_requetes") ' For i = 0 To db.QueryDefs.Count - 1 ' rs.AddNew ' rs.Fields("nom_requetes") = db.QueryDefs(i).Name ' rs.Update ' Next i ' rs.Close ' db.Close
Merci pour ton aide
"Jessy Sempere [MVP]" a écrit dans le message de news: c24mtv$hj9$
Bonjour
Ces données proviennent de la table système qui se nomme : "MSysObjects"
Les noms de requêtes que tu donnes correspondent à des requêtes temporaires,
si tu fais un compactage, elles disparaitront.
Par contre comment as-tu imprimé cette liste de requêtes ???
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Sonia LAMOURET" a écrit dans le message news:
Bonjour à tous.
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2
requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et ~sq_fConnexion_K).
Merci de me dire à quoi elles correspondent.
Sonia LAMOURET
Merci pour ton aide "Xavier HUE" a écrit dans le message de news: 36aa01c40126$7babfaf0$ Bonjour Sonia, bonjour Pierre
Je pense qu'il s'agit d'objets temporaires créés par Access lors de la modificaton de ces requêtes. Tu as dû trouver ces nom d'objets en listant une des tables systèmes de ta base.
Compresse ta base et normalement, ces noms devraient disparaitre.
Cordialement.
Merci pour ton aide
"Xavier HUE" <elxavpub@bupfree.fr> a écrit dans le message de news:
36aa01c40126$7babfaf0$a601280a@phx.gbl...
Bonjour Sonia, bonjour Pierre
Je pense qu'il s'agit d'objets temporaires créés par
Access lors de la modificaton de ces requêtes.
Tu as dû trouver ces nom d'objets en listant une des
tables systèmes de ta base.
Compresse ta base et normalement, ces noms devraient
disparaitre.
Merci pour ton aide "Xavier HUE" a écrit dans le message de news: 36aa01c40126$7babfaf0$ Bonjour Sonia, bonjour Pierre
Je pense qu'il s'agit d'objets temporaires créés par Access lors de la modificaton de ces requêtes. Tu as dû trouver ces nom d'objets en listant une des tables systèmes de ta base.
Compresse ta base et normalement, ces noms devraient disparaitre.
Cordialement.
Jessy Sempere [MVP]
Oui c'est bien ce que je pensais, tu passes par le collection QueryDefs et c'est pour ça que tu as ce genre de nom de requête qui apparaît...
Rajoute une condition pour ajouter les noms de requête dans ta base.
Voici une petite fonction que tu peux utiliser si tu veux comme exemple
***************************************************** Public Function AddLstQryInTbl(strTable As String, strField As String)
Dim rst As Recordset, qry As QueryDef
Set rst = CurrentDb.OpenRecordset(strTable) With rst For Each qry In CurrentDb.QueryDefs If Left(qry.name, 1) <> "~" Then .AddNew .Fields(strField) = qry.name .Update End If Next End With rst.Close: Set rst = Nothing
End Function *****************************************************
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Sonia LAMOURET" a écrit dans le message news:
Voici le code que j'ai utilisé :
'Dim db As DATABASE 'Dim rs As Recordset 'Dim i As Integer
' Set db = CurrentDb() ' Set rs = db.OpenRecordset("z_liste_requetes") ' For i = 0 To db.QueryDefs.Count - 1 ' rs.AddNew ' rs.Fields("nom_requetes") = db.QueryDefs(i).Name ' rs.Update ' Next i ' rs.Close ' db.Close
Merci pour ton aide
Oui c'est bien ce que je pensais, tu passes par le collection QueryDefs
et c'est pour ça que tu as ce genre de nom de requête qui apparaît...
Rajoute une condition pour ajouter les noms de requête dans ta base.
Voici une petite fonction que tu peux utiliser si tu veux comme exemple
*****************************************************
Public Function AddLstQryInTbl(strTable As String, strField As String)
Dim rst As Recordset, qry As QueryDef
Set rst = CurrentDb.OpenRecordset(strTable)
With rst
For Each qry In CurrentDb.QueryDefs
If Left(qry.name, 1) <> "~" Then
.AddNew
.Fields(strField) = qry.name
.Update
End If
Next
End With
rst.Close: Set rst = Nothing
End Function
*****************************************************
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Sonia LAMOURET" <slamouret@francelot.com> a écrit dans le message news:
O1DwVmSAEHA.1600@tk2msftngp13.phx.gbl...
Voici le code que j'ai utilisé :
'Dim db As DATABASE
'Dim rs As Recordset
'Dim i As Integer
' Set db = CurrentDb()
' Set rs = db.OpenRecordset("z_liste_requetes")
' For i = 0 To db.QueryDefs.Count - 1
' rs.AddNew
' rs.Fields("nom_requetes") = db.QueryDefs(i).Name
' rs.Update
' Next i
' rs.Close
' db.Close
Oui c'est bien ce que je pensais, tu passes par le collection QueryDefs et c'est pour ça que tu as ce genre de nom de requête qui apparaît...
Rajoute une condition pour ajouter les noms de requête dans ta base.
Voici une petite fonction que tu peux utiliser si tu veux comme exemple
***************************************************** Public Function AddLstQryInTbl(strTable As String, strField As String)
Dim rst As Recordset, qry As QueryDef
Set rst = CurrentDb.OpenRecordset(strTable) With rst For Each qry In CurrentDb.QueryDefs If Left(qry.name, 1) <> "~" Then .AddNew .Fields(strField) = qry.name .Update End If Next End With rst.Close: Set rst = Nothing
End Function *****************************************************
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Sonia LAMOURET" a écrit dans le message news:
Voici le code que j'ai utilisé :
'Dim db As DATABASE 'Dim rs As Recordset 'Dim i As Integer
' Set db = CurrentDb() ' Set rs = db.OpenRecordset("z_liste_requetes") ' For i = 0 To db.QueryDefs.Count - 1 ' rs.AddNew ' rs.Fields("nom_requetes") = db.QueryDefs(i).Name ' rs.Update ' Next i ' rs.Close ' db.Close
Merci pour ton aide
Maxence HUBICHE
Bonjour,
Tu n'aurais pas un formulaire Connexion_F et un autre Connexion_K par hasard ? Tu as souvent des requêtes utilisées par le système pour remplir les formualires, les états ou les listes de ces derniers. Voilà pourquoi ces noms ;)
Ciao :) ======================================== Maxence HUBICHE Formateur & développeur indépendant Rédacteur Access sur http://www.developpez.com http://access.developpez.com/access/faq <<= Ici, la FAQ Access de developpez.com
.. "Sonia LAMOURET" a écrit dans le message de news:
Bonjour à tous.
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2 requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et ~sq_fConnexion_K).
Merci de me dire à quoi elles correspondent.
Bonjour,
Tu n'aurais pas un formulaire Connexion_F et un autre Connexion_K par hasard
?
Tu as souvent des requêtes utilisées par le système pour remplir les
formualires, les états ou les listes de ces derniers. Voilà pourquoi ces
noms ;)
Ciao :)
======================================== Maxence HUBICHE
Formateur & développeur indépendant
Rédacteur Access sur http://www.developpez.com
http://access.developpez.com/access/faq <<= Ici, la FAQ Access de
developpez.com
..
"Sonia LAMOURET" <slamouret@francelot.com> a écrit dans le message de news:
us1OqJSAEHA.3184@TK2MSFTNGP09.phx.gbl...
Bonjour à tous.
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2
requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et
~sq_fConnexion_K).
Tu n'aurais pas un formulaire Connexion_F et un autre Connexion_K par hasard ? Tu as souvent des requêtes utilisées par le système pour remplir les formualires, les états ou les listes de ces derniers. Voilà pourquoi ces noms ;)
Ciao :) ======================================== Maxence HUBICHE Formateur & développeur indépendant Rédacteur Access sur http://www.developpez.com http://access.developpez.com/access/faq <<= Ici, la FAQ Access de developpez.com
.. "Sonia LAMOURET" a écrit dans le message de news:
Bonjour à tous.
Je viens d'imprimer la liste de mes requêtes. Parmi cette liste, il y a 2 requêtes que je ne vois pas à l'écran (~sq_fConnexion_F et ~sq_fConnexion_K).
Merci de me dire à quoi elles correspondent.
Sonia LAMOURET
Merci
"Jessy Sempere [MVP]" a écrit dans le message de news: c24pok$jcp$
Oui c'est bien ce que je pensais, tu passes par le collection QueryDefs et c'est pour ça que tu as ce genre de nom de requête qui apparaît...
Rajoute une condition pour ajouter les noms de requête dans ta base.
Voici une petite fonction que tu peux utiliser si tu veux comme exemple
***************************************************** Public Function AddLstQryInTbl(strTable As String, strField As String)
Dim rst As Recordset, qry As QueryDef
Set rst = CurrentDb.OpenRecordset(strTable) With rst For Each qry In CurrentDb.QueryDefs If Left(qry.name, 1) <> "~" Then .AddNew .Fields(strField) = qry.name .Update End If Next End With rst.Close: Set rst = Nothing
End Function *****************************************************
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Sonia LAMOURET" a écrit dans le message news:
Voici le code que j'ai utilisé :
'Dim db As DATABASE 'Dim rs As Recordset 'Dim i As Integer
' Set db = CurrentDb() ' Set rs = db.OpenRecordset("z_liste_requetes") ' For i = 0 To db.QueryDefs.Count - 1 ' rs.AddNew ' rs.Fields("nom_requetes") = db.QueryDefs(i).Name ' rs.Update ' Next i ' rs.Close ' db.Close
Merci pour ton aide
Merci
"Jessy Sempere [MVP]" <jessy.sempere@prg.sncf.fr> a écrit dans le message de
news: c24pok$jcp$1@muguet.sncf.fr...
Oui c'est bien ce que je pensais, tu passes par le collection QueryDefs
et c'est pour ça que tu as ce genre de nom de requête qui apparaît...
Rajoute une condition pour ajouter les noms de requête dans ta base.
Voici une petite fonction que tu peux utiliser si tu veux comme exemple
*****************************************************
Public Function AddLstQryInTbl(strTable As String, strField As String)
Dim rst As Recordset, qry As QueryDef
Set rst = CurrentDb.OpenRecordset(strTable)
With rst
For Each qry In CurrentDb.QueryDefs
If Left(qry.name, 1) <> "~" Then
.AddNew
.Fields(strField) = qry.name
.Update
End If
Next
End With
rst.Close: Set rst = Nothing
End Function
*****************************************************
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Sonia LAMOURET" <slamouret@francelot.com> a écrit dans le message news:
O1DwVmSAEHA.1600@tk2msftngp13.phx.gbl...
Voici le code que j'ai utilisé :
'Dim db As DATABASE
'Dim rs As Recordset
'Dim i As Integer
' Set db = CurrentDb()
' Set rs = db.OpenRecordset("z_liste_requetes")
' For i = 0 To db.QueryDefs.Count - 1
' rs.AddNew
' rs.Fields("nom_requetes") = db.QueryDefs(i).Name
' rs.Update
' Next i
' rs.Close
' db.Close
"Jessy Sempere [MVP]" a écrit dans le message de news: c24pok$jcp$
Oui c'est bien ce que je pensais, tu passes par le collection QueryDefs et c'est pour ça que tu as ce genre de nom de requête qui apparaît...
Rajoute une condition pour ajouter les noms de requête dans ta base.
Voici une petite fonction que tu peux utiliser si tu veux comme exemple
***************************************************** Public Function AddLstQryInTbl(strTable As String, strField As String)
Dim rst As Recordset, qry As QueryDef
Set rst = CurrentDb.OpenRecordset(strTable) With rst For Each qry In CurrentDb.QueryDefs If Left(qry.name, 1) <> "~" Then .AddNew .Fields(strField) = qry.name .Update End If Next End With rst.Close: Set rst = Nothing
End Function *****************************************************
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Sonia LAMOURET" a écrit dans le message news:
Voici le code que j'ai utilisé :
'Dim db As DATABASE 'Dim rs As Recordset 'Dim i As Integer
' Set db = CurrentDb() ' Set rs = db.OpenRecordset("z_liste_requetes") ' For i = 0 To db.QueryDefs.Count - 1 ' rs.AddNew ' rs.Fields("nom_requetes") = db.QueryDefs(i).Name ' rs.Update ' Next i ' rs.Close ' db.Close