Discussion :

[adelion7015]

Bonjour,

J'ai un code que j'utilise pour transférer des données d'une table vers une autre pour archivage, en cliquant sur le bouton j'ai le message d'erreur qui j'ai repris en titre, puis le code est surligné en jaune sur la ligne suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CmdArchiver__Click()
Dim leSQL As String

leSQL = "INSERT INTO [t_archivage_projet] ( ID_projet, ID_visa, ID_budget, objet, compte, libellé, fournisseur, duree, Monnaie, taux_change, num_contrat, statut, periode, echeance, unite, imp_cc, KDAn, KDAn+1, KDAn+2, KDAn+3, KDAn+4, Année, DateArchive ) " & _
"SELECT [t_projet].ID_projet, [t_projet].ID_visa, [t_projet].ID_budget, [t_projet].objet, [t_projet].compte, [t_projet].libellé, [t_projet].fournisseur, [t_projet].duree, [t_projet].Monnaie, [t_projet].taux_change, [t_projet].num_contrat, [t_projet].statut, [t_projet].periode, [t_projet].echeance, [t_projet].unite, [t_projet].imp_cc, [t_projet].KDAn, [t-projet].KDAn+1, [t-projet].KDAn+2, [t_projet].KDAn+3, [t_projet].KDAn+4, [t_projet].Année, Date() AS DateArchive " & _
"FROM [t_projet]" & _
"WHERE (([t_projet].ID_projet) Not In (select ID_projet from [t_archivage_projet])) and imp_cc like '" & Nz(Me.ParamTitre_, "*") & "';"


DoCmd.SetWarnings False
DoCmd.RunSQL leSQL
DoCmd.SetWarnings True

Dim SQLSupp As String
SQLSupp = "DELETE FROM [t_projet] WHERE [t_projet].imp_cc like '" & Nz(Me.ParamTitre_, "*") & "';"
 
DoCmd.SetWarnings False
DoCmd.RunSQL SQLSupp
DoCmd.SetWarnings True
End Sub

Le même code est importe des données d'une table vers une autre et ca marche très bien, je ne comprend pas pourquoi ca ne marche pas sur celui la.

Merci.

Salutations.

[tatayo]

Bonjour,
Certaines colonnes contiennent des caractères réservés dans leur nom ( KDAn+1 par exemple), je pense donc qu'il faut les entourer de crochet pour que ça passe/

Tatayo.

[adelion7015]

J'ai essayé les crochets [...], ca ne marche toujours pas.

[tatayo]

Peux-tu nous montrer ta requête "corrigée" ?

Est-ce que le SELECT seul passe ?
Est-ce que la requête fonctionne sans le AS à la fin du SELECT ?

Est-ce que ça fonctionne mieux avec un espace à la fin de la ligne 6 ?

Tatayo.

[adelion7015]

OK ca marche maintenant, finalement, votre solution était la bonne, sauf que de mon coté, il y avait une erreur sur deux champs, [t-projet] alors que la syntaxe juste c'est [t_projet].

Encore merci.

Salutations.