Je crée une requête ainsi :
Set qry = CurrentDb.CreateQueryDef("tmp", SQL)
Et je souhaiterais obtenir et/ou modifier ses propriétés
Avec ce code :
For Each Property In qry.Properties
Debug.Print Property
Next
j'obtiens tout un tas de propriétés (nom, date de création, modification,
SQL etc...) mais je ne sais pas dans quel ordre ni à quels items elles
correspondent.
J'aimerais par exemple y ajouter une description et le nom du créateur
Environ$("UserName").
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
Gilbert
Bonjour,
Essaie avec
For Each Property In qry.Properties Debug.Print Property.Name, Property.Type, Property.Value Next
Pour ajouter une propriété:
Dim Propriete As DAO.Property Dim rqte As DAO.QueryDef
Set rqte = Db.QueryDefs(LeNomDeTaRequete) Set Propriete = Db.CreateProperty("Description", dbText, Nz(Me.Commentaire, " ")) rqte.Properties.Append Propriete Set Propriete = Nothing Set rqte = Nothing
Gilbert
"JPG" a écrit dans le message de news:
Bonjour,
Je crée une requête ainsi : Set qry = CurrentDb.CreateQueryDef("tmp", SQL)
Et je souhaiterais obtenir et/ou modifier ses propriétés
Avec ce code : For Each Property In qry.Properties Debug.Print Property Next j'obtiens tout un tas de propriétés (nom, date de création, modification, SQL etc...) mais je ne sais pas dans quel ordre ni à quels items elles correspondent.
J'aimerais par exemple y ajouter une description et le nom du créateur Environ$("UserName").
Comment faire ???
Merci beaucoup pour votre aide
Bonjour,
Essaie avec
For Each Property In qry.Properties
Debug.Print Property.Name, Property.Type, Property.Value
Next
Pour ajouter une propriété:
Dim Propriete As DAO.Property
Dim rqte As DAO.QueryDef
Set rqte = Db.QueryDefs(LeNomDeTaRequete)
Set Propriete = Db.CreateProperty("Description", dbText,
Nz(Me.Commentaire, " "))
rqte.Properties.Append Propriete
Set Propriete = Nothing
Set rqte = Nothing
Gilbert
"JPG" <jpg@jpg.fr> a écrit dans le message de
news:600640D9-C1FE-430D-ADD7-55AE9AA84936@microsoft.com...
Bonjour,
Je crée une requête ainsi :
Set qry = CurrentDb.CreateQueryDef("tmp", SQL)
Et je souhaiterais obtenir et/ou modifier ses propriétés
Avec ce code :
For Each Property In qry.Properties
Debug.Print Property
Next
j'obtiens tout un tas de propriétés (nom, date de création, modification,
SQL etc...) mais je ne sais pas dans quel ordre ni à quels items elles
correspondent.
J'aimerais par exemple y ajouter une description et le nom du créateur
Environ$("UserName").
For Each Property In qry.Properties Debug.Print Property.Name, Property.Type, Property.Value Next
Pour ajouter une propriété:
Dim Propriete As DAO.Property Dim rqte As DAO.QueryDef
Set rqte = Db.QueryDefs(LeNomDeTaRequete) Set Propriete = Db.CreateProperty("Description", dbText, Nz(Me.Commentaire, " ")) rqte.Properties.Append Propriete Set Propriete = Nothing Set rqte = Nothing
Gilbert
"JPG" a écrit dans le message de news:
Bonjour,
Je crée une requête ainsi : Set qry = CurrentDb.CreateQueryDef("tmp", SQL)
Et je souhaiterais obtenir et/ou modifier ses propriétés
Avec ce code : For Each Property In qry.Properties Debug.Print Property Next j'obtiens tout un tas de propriétés (nom, date de création, modification, SQL etc...) mais je ne sais pas dans quel ordre ni à quels items elles correspondent.
J'aimerais par exemple y ajouter une description et le nom du créateur Environ$("UserName").
Comment faire ???
Merci beaucoup pour votre aide
JPG
Génial ! ça marche exactement, même mieux que je ne l'espérais !!!
MERCI GILBERT !!!
Génial !
ça marche exactement, même mieux que je ne l'espérais !!!