Pour lister mes requ=EAtes j'ai r=E9dig=E9 ceci :
-grace =E0 certain d'entre vous d'ailleurs=85-
'ouvre le fichier texte apr=E9s l'avoir =E9ventuellent cr=E9=E9
Set oFileText =3D FSO.OpenTextFile(strFichier, ForWriting, True)
'oFileText.writeBlanklines (3)
'pour chaque requ=EAte
For Each Qry In db.QueryDefs
'si la requete n'est pas syst=E9me c=E0d non pr=E9c=E9d=E9e d'un tilde
If Left(Qry.Name, 2) =3D "Q_" Then
'=E9crit le nom de la requ=EAte et son code SQL
With oFileText
'=E9crit une ligne blanche
.writeBlanklines (1)
'ecrit le nom de la requ=EAte suivi de la date de
version
.writeline Qry.Name & " -version du : " & Date & "-"
'saute 1 ligne et =E9crit le SQL
.writeBlanklines (1)
.writeline Qry.SQL
'marque la fin de la requ=EAte
.writeBlanklines (1)
End With
End If
Next Qry
mais en lieu et place de " -version du : " & Date & "-"
je veux ( mais je n'exige pas, quoique ) reprendre la date de
modification
-et pour le plaisir : la date de cr=E9ation "cr=E9=E9"-
tel qu'elle apparait dans les objets "requ=EAtes", comment faire ?
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,
Essaie: .writeline Qry.Name & " créée le : " & qry.DateCreated & " et modifiée le :" & qry.LastUpdated
à la place de .writeline Qry.Name & " -version du : " & Date & "-"
Le Nordiste a écrit :
Pour lister mes requêtes j'ai rédigé ceci : -grace à certain d'entre vous d'ailleurs…-
'ouvre le fichier texte aprés l'avoir éventuellent créé Set oFileText = FSO.OpenTextFile(strFichier, ForWriting, True) 'oFileText.writeBlanklines (3) 'pour chaque requête For Each Qry In db.QueryDefs 'si la requete n'est pas systéme càd non précédée d'un tilde If Left(Qry.Name, 2) = "Q_" Then 'écrit le nom de la requête et son code SQL With oFileText 'écrit une ligne blanche .writeBlanklines (1) 'ecrit le nom de la requête suivi de la date de version .writeline Qry.Name & " -version du : " & Date & "-" 'saute 1 ligne et écrit le SQL .writeBlanklines (1) .writeline Qry.SQL 'marque la fin de la requête .writeBlanklines (1) End With End If Next Qry
mais en lieu et place de " -version du : " & Date & "-" je veux ( mais je n'exige pas, quoique ) reprendre la date de modification -et pour le plaisir : la date de création "créé"- tel qu'elle apparait dans les objets "requêtes", comment faire ?
Merci de votre aide,
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Essaie:
.writeline Qry.Name & " créée le : " & qry.DateCreated & " et modifiée
le :" & qry.LastUpdated
à la place de
.writeline Qry.Name & " -version du : " & Date & "-"
Le Nordiste a écrit :
Pour lister mes requêtes j'ai rédigé ceci :
-grace à certain d'entre vous d'ailleurs…-
'ouvre le fichier texte aprés l'avoir éventuellent créé
Set oFileText = FSO.OpenTextFile(strFichier, ForWriting, True)
'oFileText.writeBlanklines (3)
'pour chaque requête
For Each Qry In db.QueryDefs
'si la requete n'est pas systéme càd non précédée d'un tilde
If Left(Qry.Name, 2) = "Q_" Then
'écrit le nom de la requête et son code SQL
With oFileText
'écrit une ligne blanche
.writeBlanklines (1)
'ecrit le nom de la requête suivi de la date de
version
.writeline Qry.Name & " -version du : " & Date & "-"
'saute 1 ligne et écrit le SQL
.writeBlanklines (1)
.writeline Qry.SQL
'marque la fin de la requête
.writeBlanklines (1)
End With
End If
Next Qry
mais en lieu et place de " -version du : " & Date & "-"
je veux ( mais je n'exige pas, quoique ) reprendre la date de
modification
-et pour le plaisir : la date de création "créé"-
tel qu'elle apparait dans les objets "requêtes", comment faire ?
Merci de votre aide,
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Essaie: .writeline Qry.Name & " créée le : " & qry.DateCreated & " et modifiée le :" & qry.LastUpdated
à la place de .writeline Qry.Name & " -version du : " & Date & "-"
Le Nordiste a écrit :
Pour lister mes requêtes j'ai rédigé ceci : -grace à certain d'entre vous d'ailleurs…-
'ouvre le fichier texte aprés l'avoir éventuellent créé Set oFileText = FSO.OpenTextFile(strFichier, ForWriting, True) 'oFileText.writeBlanklines (3) 'pour chaque requête For Each Qry In db.QueryDefs 'si la requete n'est pas systéme càd non précédée d'un tilde If Left(Qry.Name, 2) = "Q_" Then 'écrit le nom de la requête et son code SQL With oFileText 'écrit une ligne blanche .writeBlanklines (1) 'ecrit le nom de la requête suivi de la date de version .writeline Qry.Name & " -version du : " & Date & "-" 'saute 1 ligne et écrit le SQL .writeBlanklines (1) .writeline Qry.SQL 'marque la fin de la requête .writeBlanklines (1) End With End If Next Qry
mais en lieu et place de " -version du : " & Date & "-" je veux ( mais je n'exige pas, quoique ) reprendre la date de modification -et pour le plaisir : la date de création "créé"- tel qu'elle apparait dans les objets "requêtes", comment faire ?
Merci de votre aide,
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Le Nordiste
merci Eric
Tout à fait ce que je recherchais ;
Si j'avais su chercher les propriètés je n'aurais pas fait appel à ta compétence.
merci Eric
Tout à fait ce que je recherchais ;
Si j'avais su chercher les propriètés je n'aurais pas fait appel à ta
compétence.
Et pour la "DESCRIPTION" quel est le "mot qui va bien , Merci.
Eric
Bonsoir,
Là il va falloir faire appel à une fonction car la description est une propriété du 'document' et non de la requête si je puis dire.
Function fDescription(NomRequete As String) As String On Error Goto Err_Description Dim doc as Document, bd as Database Set bd = CurrentDb fDescription½.Containers!Tables.Document(NomRequete).Properties!Description Set bd=Nothing Exit Function Err_Description: Resume Next End Function
Et dans ton code tu mets : .writeline Qry.Name & " créée le : " & qry.DateCreated & " et modifiée le :" & qry.LastUpdated & " Role : " & fDescription(qry.Name)
Le Nordiste a écrit :
Et pour la "DESCRIPTION" quel est le "mot qui va bien , Merci.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonsoir,
Là il va falloir faire appel à une fonction car la description est une
propriété du 'document' et non de la requête si je puis dire.
Function fDescription(NomRequete As String) As String
On Error Goto Err_Description
Dim doc as Document, bd as Database
Set bd = CurrentDb
fDescription½.Containers!Tables.Document(NomRequete).Properties!Description
Set bd=Nothing
Exit Function
Err_Description:
Resume Next
End Function
Et dans ton code tu mets :
.writeline Qry.Name & " créée le : " & qry.DateCreated & " et modifiée
le :" & qry.LastUpdated & " Role : " & fDescription(qry.Name)
Le Nordiste a écrit :
Et pour la "DESCRIPTION" quel est le "mot qui va bien ,
Merci.
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Là il va falloir faire appel à une fonction car la description est une propriété du 'document' et non de la requête si je puis dire.
Function fDescription(NomRequete As String) As String On Error Goto Err_Description Dim doc as Document, bd as Database Set bd = CurrentDb fDescription½.Containers!Tables.Document(NomRequete).Properties!Description Set bd=Nothing Exit Function Err_Description: Resume Next End Function
Et dans ton code tu mets : .writeline Qry.Name & " créée le : " & qry.DateCreated & " et modifiée le :" & qry.LastUpdated & " Role : " & fDescription(qry.Name)
Le Nordiste a écrit :
Et pour la "DESCRIPTION" quel est le "mot qui va bien , Merci.
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Eric
re,
Le dim doc as document sert à rien. Remplaces : Dim doc as Document, bd as Database
par
Dim bd as Database
Eric a écrit :
Bonsoir,
Là il va falloir faire appel à une fonction car la description est une propriété du 'document' et non de la requête si je puis dire.
Function fDescription(NomRequete As String) As String On Error Goto Err_Description Dim doc as Document, bd as Database Set bd = CurrentDb fDescription½.Containers!Tables.Document(NomRequete).Properties!Description
Set bd=Nothing Exit Function Err_Description: Resume Next End Function
Et dans ton code tu mets : .writeline Qry.Name & " créée le : " & qry.DateCreated & " et modifiée le :" & qry.LastUpdated & " Role : " & fDescription(qry.Name)
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
re,
Le dim doc as document sert à rien. Remplaces :
Dim doc as Document, bd as Database
par
Dim bd as Database
Eric a écrit :
Bonsoir,
Là il va falloir faire appel à une fonction car la description est une
propriété du 'document' et non de la requête si je puis dire.
Function fDescription(NomRequete As String) As String
On Error Goto Err_Description
Dim doc as Document, bd as Database
Set bd = CurrentDb
fDescription½.Containers!Tables.Document(NomRequete).Properties!Description
Set bd=Nothing
Exit Function
Err_Description:
Resume Next
End Function
Et dans ton code tu mets :
.writeline Qry.Name & " créée le : " & qry.DateCreated & " et modifiée
le :" & qry.LastUpdated & " Role : " & fDescription(qry.Name)
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Le dim doc as document sert à rien. Remplaces : Dim doc as Document, bd as Database
par
Dim bd as Database
Eric a écrit :
Bonsoir,
Là il va falloir faire appel à une fonction car la description est une propriété du 'document' et non de la requête si je puis dire.
Function fDescription(NomRequete As String) As String On Error Goto Err_Description Dim doc as Document, bd as Database Set bd = CurrentDb fDescription½.Containers!Tables.Document(NomRequete).Properties!Description
Set bd=Nothing Exit Function Err_Description: Resume Next End Function
Et dans ton code tu mets : .writeline Qry.Name & " créée le : " & qry.DateCreated & " et modifiée le :" & qry.LastUpdated & " Role : " & fDescription(qry.Name)
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr