Fichier d'exportation avec SQL

Version imprimable

Bonjour,

J'ai sa
Code:

1 2 3 4 5 SQLManufacture = "SELECT Tbl_TransfertJournee.Str_Ref, Tbl_TransfertJournee.Bool_Manufacture, Tbl_TransfertJournee.Bool_TypeTransfert" & _ " FROM Tbl_TransfertJournee" & _ " WHERE Tbl_TransfertJournee.Bool_Manufacture=True;" DoCmd.TransferText acExportDelim, "KanbanManufactureSpecExp", SQLManufacture, "C:\...\KanbanManufacture.txt"
Cela ne fonctionne pas... Il me met Erreur d'execution 7871 :
Le nom de table entré n'est pas conforme aux règles d'affectation des noms d'objet Microsoft Office access.
Au lieu d'inséré un objet access, on peut inséré une requete sql préalablement définie plus haut ? (ici SQLMANUFACTURE)

18/01/2013, 14h26
jimbolion

Couda T

Bonjour,

Consulte ce lien :

http://msdn.microsoft.com/en-us/libr...ffice.10).aspx

Tu verras que tu ne peux passer dans le troisième argument qu'une table ou une requête stockée et pas le contenu d'une variable !

Ce lien t'explique comment créer une requête et la stocker :

http://msdn.microsoft.com/en-us/libr...ffice.12).aspx

Tu pourras alors aisément effectuer ton Transfert

Bonne journée !
18/01/2013, 15h02
Counda_T

Je vais voir sa !
Merci bien !

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim oDb As DAO.Database
Dim Req As QueryDef
 
'Instancie l'objet database
Set oDb = CurrentDb
 
With oDb
' Créé temporairement une requête
      Set Req = oDb.CreateQueryDef("Request", _
         "SELECT Tbl_TransfertJournee.Str_Ref, Tbl_TransfertJournee.Bool_Manufacture, Tbl_TransfertJournee.Bool_TypeTransfert" & _
         " FROM Tbl_TransfertJournee" & _
         " WHERE Bool_Manufacture=False And Bool_TypeTransfert=False;")
 
        DoCmd.TransferText acExportDelim, "KanbanSpecExp", "Request", "C:\Documents and Settings\trc1tc\Desktop\Counda\Kanban.txt"
      ' Suppréssion de la requête
        .QueryDefs.Delete ("Request")
        Req.Close
End With

Il créé bien la requête en dur mais ne la supprime pas, et le fichier Kanban.txt disparaît a chaque fois et me dis qu'il n'existe pas ...

Je viens de faire ce test et conforme à ce que tu viens de faire !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim oDb As DAO.Database Dim Req As QueryDef 'Instancie l'objet database Set oDb = CurrentDb With oDb ' Créé temporairement une requête Set Req = oDb.CreateQueryDef("Request", "SELECT Chantier.[Numéro de chantier], Chantier.[Nom du chantier], Chantier.Adresse, Chantier.[Code postal] FROM Chantier;") ' Suppréssion de la requête DoCmd.TransferText acExportDelim, "", "Request", "C:\test.txt" .QueryDefs.Delete ("Request") Req.Close End With End Function
Et çà fonctionne nickel !

Création + suppression pas de problème !

Mets des points d'arret pour voir d'ou vient le probleme !
Essai de genérer ton fichier à la racine....

en tout cas tu es tout proche de ta solution...