Discussion :

[_Drama]

Bonjour à tous,

Je travaille actuellement sur une base de données ACCESS.
Je cherche à renseigner les champs d'une table crée au préalable et vide (ne comporte que les colonnes nommées).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
On Error Resume Next
Err.Clear
Set db = CurrentDb
Set qry = db.CreateQueryDef
qry.Name = ""
qry.SQL = "INSERT INTO TAB * FROM [JANVIER FAX SWIFT] WHERE [ORD_FUND_CODE,   char]= " & presents(i) & ""
 
'les requetes sont les memes mais ecrites differement
'qry.SQL = "INSERT INTO TABLE1 [JANVIER FAX SWIFT].[ORD_FUND_CODE,   char],[JANVIER FAX SWIFT].[ORD_ID,   numeric],[JANVIER FAX SWIFT].[ST_LIBELLE,   char],[JANVIER FAX SWIFT].[ORD_FILE_REF,   char],[JANVIER FAX SWIFT].[ORD_SEND_MODE,   char],[JANVIER FAX SWIFT].[ORD_REF,   char],[JANVIER FAX SWIFT].[ORD_FUND_CODE,   char],[JANVIER FAX SWIFT].[ORD_PAYS_DEPOT,   char] FROM [JANVIER FAX SWIFT] WHERE [ORD_FUND_CODE,   char]= " & presents(i) & ""
qry.Execute
 
Next i

l'execution ne présente aucune erreur. Mais la table TABLE1 n'est pas modifiée.
Présent(i) est en fait un tableau qui contient des variables qui me permettent de faire les requêtes.

Si quelqu'un a une idée pour sauver une ame...


Cdt
Drama

[Tofalu]

Votre champ s'appelle réellement : [ORD_FUND_CODE, char]= ?

Utilisez qry.Execute dbFailOnError pour voir les erreurs.

La syntaxe est INSERT ... INTO ... SELECT * FROM, il vous manque donc le SELECT

[_Drama]

Bonjour, et merci pour votre réponse.

J'ai bien corrigé la syntaxe de la requête en ajoutant le SELECT.
De plus j'ai ajouté le paramètre dbFailOnError.

Mais rien n'y fait, j'ai toujours une éxécution sans débug, et aucune modification dans ma table TAB.

Et oui un des champs de ma table est bien [ORD_FUND_CODE, char]

si vous avez d'autres suggestions...

[_Drama]

Et ça ne va certainement pas aider. Mais j'ai essayer de modifier la requete en la remplaçant par un
"DELETE * FROM TAB"

Et les champs que j'avais ajouté manuellement on bien été effacés.

Donc j'imagine que mon problème vient bien de ma requête INSERT INTO .

[User]

Slt,

Tu peux nous donner le sql modifié avec le Insert into ?

Cdt,

[_Drama]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
For i = 1 To 50
 
On Error Resume Next
Err.Clear
Set db = CurrentDb
Set qry = db.CreateQueryDef
qry.Name = ""
qry.SQL = "INSERT INTO TAB SELECT * FROM [JANVIER FAX SWIFT] WHERE [ORD_FUND_CODE,   char]= " & presents(i) & ""
'qry.SQL = "INSERT INTO TAB SELECT [JANVIER FAX SWIFT].[ORD_FUND_CODE,   char],[JANVIER FAX SWIFT].[ORD_ID,   numeric],[JANVIER FAX SWIFT].[ST_LIBELLE,   char],[JANVIER FAX SWIFT].[ORD_FILE_REF,   char],[JANVIER FAX SWIFT].[ORD_SEND_MODE,   char],[JANVIER FAX SWIFT].[ORD_REF,   char],[JANVIER FAX SWIFT].[ORD_FUND_CODE,   char],[JANVIER FAX SWIFT].[ORD_PAYS_DEPOT,   char] FROM [JANVIER FAX SWIFT] WHERE [ORD_FUND_CODE,   char]= " & presents(i) & ""
qry.Execute , dbFailOnError
 Next i

NB : la deuxième requête qry ne fonctionne pas non plus

[User]

Re,

Ton curieux champ [ORD_FUND_CODE, char] est du type texte ?

Si oui essaie avec les quotes ('...'):

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

WHERE [ORD_FUND_CODE,   char]= '" & presents(i) & "'"

D'autre part tu peux faire la même chose en 1 requête après la boucle avec un

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

"WHERE [ORD_FUND_CODE,   char] In " & Listepresents

ou Listepresents contients la liste des presents(1),...,presents(50)

[_Drama]

C'est en effet un type texte.
Les champs contiennent à la fois des Lettres de des chiffres.

J'ai effacé les parametres que j'avais mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
On Error Resume Next
Err.Clear

et j'obtiens bien une erreur !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
For i = 1 To 50
 
'On Error Resume Next
'Err.Clear
Set db = CurrentDb
Set qry = db.CreateQueryDef
qry.Name = ""
qry.SQL = "INSERT INTO TAB SELECT * FROM [JANVIER FAX SWIFT] WHERE [ORD_FUND_CODE,   char]= '" & presents(i) & "'"
'qry.SQL = "INSERT INTO TAB SELECT [JANVIER FAX SWIFT].[ORD_FUND_CODE,   char],[JANVIER FAX SWIFT].[ORD_ID,   numeric],[JANVIER FAX SWIFT].[ST_LIBELLE,   char],[JANVIER FAX SWIFT].[ORD_FILE_REF,   char],[JANVIER FAX SWIFT].[ORD_SEND_MODE,   char],[JANVIER FAX SWIFT].[ORD_REF,   char],[JANVIER FAX SWIFT].[ORD_FUND_CODE,   char],[JANVIER FAX SWIFT].[ORD_PAYS_DEPOT,   char] FROM [JANVIER FAX SWIFT] WHERE [ORD_FUND_CODE,   char]= '" & presents(i) & "'"
qry.Execute , dbFailOnError
 
Next i

Le debug est au niveau du qry.execute

dbFailOnError =128
Argument non valide

[User]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

qry.Execute dbFailOnError

enlève la virgule...

[_Drama]

Oh je suis vraiment une bille...

Ca marche ! et ça fonctionne bien !

Merci à vous pour votre aide.

Ps: pourquoi trouviez vous ce champ curieux? ( [ORD_FUND_CODE, char] )