Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access export du texte des requètes : Application.SaveAsText

export du texte des requètes : Application.SaveAsText

1 réponse
Avatar
Le Nordiste
Bonjour tertous,

Je suis sous acces 2003 et essaye d'extraire le teste SQL de mes
requ=E8tes,
j'ai bien trouv=E9 ce code sur le site, mais il bloqi=3Due =E0 chacune de
mes requ=E8tes.
'=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
' Purpose: Documents the database to a series of text files
'
' Author: Arvin Meyer
' Date: June 02, 1999
' Comment: Uses the undocumented [Application.SaveAsText] syntax
' To reload use the syntax [Application.LoadFromText]
'=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
On Error GoTo Err_DocDatabase

Dim dbs As Database
Dim cnt As Container

Dim doc As Document
Dim i As Integer

Set dbs =3D CurrentDb() ' use CurrentDb() to refresh Collections

For i =3D 0 To dbs.QueryDefs.Count - 1
Application.SaveAsText acQuery, dbs.QueryDefs(i).Name, "D:\" &
dbs.QueryDefs(i).Name & ".txt"
Next i

'=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D

Mes noms de requ=E8tes sont de la forme : ENTITE_periode_usage_donnees.


Merci pour votre aide
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
Pierre CFI [mvp]
bonjour
je viens d'essayer, çà marche, mais tu veux sauvegarder quoi ??
çà bloque ou ??

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

"Le Nordiste" a écrit dans le message de news:

Bonjour tertous,

Je suis sous acces 2003 et essaye d'extraire le teste SQL de mes
requètes,
j'ai bien trouvé ce code sur le site, mais il bloqi=ue à chacune de
mes requètes.
'=================================================================== ' Purpose: Documents the database to a series of text files
'
' Author: Arvin Meyer
' Date: June 02, 1999
' Comment: Uses the undocumented [Application.SaveAsText] syntax
' To reload use the syntax [Application.LoadFromText]
'=================================================================== On Error GoTo Err_DocDatabase

Dim dbs As Database
Dim cnt As Container

Dim doc As Document
Dim i As Integer

Set dbs = CurrentDb() ' use CurrentDb() to refresh Collections

For i = 0 To dbs.QueryDefs.Count - 1
Application.SaveAsText acQuery, dbs.QueryDefs(i).Name, "D:" &
dbs.QueryDefs(i).Name & ".txt"
Next i

'===================================================================
Mes noms de requètes sont de la forme : ENTITE_periode_usage_donnees.


Merci pour votre aide