Transfert de données entre tables

Version imprimable

Bonjour,

J'essaye de transférer des données d'une table vers une autre table en utilisant ce code que j'ai sur une ancienne base que j'ai adapté selon mes besoins actuels :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Transferer_Click()
Dim leSQL As String
 
leSQL = "INSERT INTO [tbl_reglements_bgt] ( ID_reglement, ID_conctrat_fk, [Numero de contrat], Periode, [Compe projet], [Nature monnaie], [CV montant cloture], Montant_reg, Montant_reg_n, [Total reglements]FE/BIG, [Structure ordonnatrice], Nature_reglement, Num_facture, Date_facture,TVA/REG, [Recu le], [Date recep], [Transmise le], [Date trans], [Doc attache], Fournisseur, MontantDev, ItemDeduction, DateArchive ) " & _
"SELECT [tbl_reglements].ID_reglement, [tbl_reglements].ID_contrat_fk, [tbl_reglements].[Numero de contrat], [tbl_reglements].Periode, [tbl_reglements].[Compte projet], [tbl_reglements].Nature_monnaie, [tbl_reglements].Montant_reg, [tbl_reglements].Montant_reg_n, [tbl_reglements.[Total reglements], [tbl_reglements].FE/BIG, [tbl_reglements].[Structure ordonnatrice, [tbl_reglements].Nature_reglement, [tbl_reglements].Num_facture, [tbl_reglements]. Date_facture, [tbl_reglements].TVA/RG, [tbl_reglements].[Recu le], [tbl_reglements].[Date recep], [tbl_reglements].[Transmise le], [tbl_reglements].[Date trans], [tbl_reglements].[Doc attache], [tbl_reglements].Fournisseur, [tbl_reglements].MontantDev, [tbl_reglements].ItemDeduction, [tbl_reglements] Date() AS DateArchive " & _
"FROM [tbl_reglements]" & _
"WHERE (([tbl_reglements].ID_reglement) Not In (select ID_reglement from [tbl_reglement_bgt])) &  "
 
DoCmd.SetWarnings False
DoCmd.RunSQL leSQL
DoCmd.SetWarnings True
 
 
DoCmd.SetWarnings False
DoCmd.RunSQL leSQL
DoCmd.SetWarnings True
End Sub

En cliquant sur le bouton rien ne se passe, je me dis que c'est en modifiant le code, du fait l'ancien code supprimait les données de la table source et, franchement je n'arrive pas a résoudre le problème, ni même a l'identifier, cela dit j'ai le message d'erreur suivant :

Erreur d'execution 3134
Erreur de syntaxe dans l'instruction INSERT INTO.

Merci.

Salutations.

07/03/2024, 15h09
tee_grandbois

bonjour,
à première vue (car le texte du SQL est assez long pour tout vérifier), sans doute à cause de l’esperluette en trop à la fin de la ligne:

Code:

"WHERE (([tbl_reglements].ID_reglement) Not In (select ID_reglement from [tbl_reglement_bgt])) & "
07/03/2024, 18h10
Robert1957
Bonjour adelion7015, tee_grandbois,

À deuxième vue, il semble manquer un espace entre le "From" et le "Where"
Code:

1 2 "FROM [tbl_reglements]" & _ 'ICI "WHERE (([tbl_reglements].ID_reglement)
Bonne journée
07/03/2024, 18h45
tee_grandbois

bonsoir Robert,
merci ! (pas eu le courage de tout vérifier ...)

Bonjour,

Je vous remercie pour vos réponse, cela dit, je suis aussi désolé pour mon retard j'ai été absent, pour revenir a ma demande, j'ai procéder aux modifications comme vous me l'avez indiqué, mais le problème subsiste toujours, je poste le code après correction :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Transferer_Click()
Dim leSQL As String
 
leSQL = "INSERT INTO [tbl_reglements_bgt] ( ID_reglement, ID_conctrat_fk, [Numero de contrat], Periode, [Compe projet], [Nature monnaie], [CV montant cloture], Montant_reg, Montant_reg_n, [Total reglements]FE/BIG, [Structure ordonnatrice], Nature_reglement, Num_facture, Date_facture,TVA/REG, [Recu le], [Date recep], [Transmise le], [Date trans], [Doc attache], Fournisseur, MontantDev, ItemDeduction, DateArchive ) " & _
"SELECT [tbl_reglements].ID_reglement, [tbl_reglements].ID_contrat_fk, [tbl_reglements].[Numero de contrat], [tbl_reglements].Periode, [tbl_reglements].[Compte projet], [tbl_reglements].Nature_monnaie, [tbl_reglements].Montant_reg, [tbl_reglements].Montant_reg_n, [tbl_reglements.[Total reglements], [tbl_reglements].FE/BIG, [tbl_reglements].[Structure ordonnatrice, [tbl_reglements].Nature_reglement, [tbl_reglements].Num_facture, [tbl_reglements]. Date_facture, [tbl_reglements].TVA/RG, [tbl_reglements].[Recu le], [tbl_reglements].[Date recep], [tbl_reglements].[Transmise le], [tbl_reglements].[Date trans], [tbl_reglements].[Doc attache], [tbl_reglements].Fournisseur, [tbl_reglements].MontantDev, [tbl_reglements].ItemDeduction, [tbl_reglements] Date() AS DateArchive " & _
"FROM [tbl_reglements]" & _
"WHERE (([tbl_reglements].ID_reglement) Not In (select ID_reglement from [tbl_reglement_bgt]))   "
 
DoCmd.SetWarnings False
DoCmd.RunSQL leSQL
DoCmd.SetWarnings True
 
 
DoCmd.SetWarnings False
DoCmd.RunSQL leSQL
DoCmd.SetWarnings True
End Sub

Et j'ai toujours le même message d'erreur 3134
Erreur de syntaxe dans l'instruction INSERT INTO

tout je surlignant en jaune la ligne suivante :

Code:

DoCmd.RunSQL leSQL

Merci.

Salutations.

13/03/2024, 14h20
Robert1957

Bonjour adelion7015,

Cette partie:

Code:

"FROM [tbl_reglements]" & _

devrait être:

Code:

"FROM [tbl_reglements] " & _

C'est à dire un espace après le crochet fermant et avant l'apostrophe.

Bonne journée
13/03/2024, 14h25
tee_grandbois
bonjour,
le jaune sur fond clair n'était pas vraiment utile :weird: :

Code:

DoCmd.RunSQL leSQL

c'est super à voir, non ? alors qu'il suffisait d'indiquer le n° de ligne de code (la 10, en l'occurrence quand on prévisualise le code ou qu'on lit son message posté). Vous n'utilisez jamais le bouton "Prévisualisation du message" ?

L'espace entre le nom de la table n'a pas été mis au bon endroit:
Code:

1 2 "FROM [tbl_reglements]" & _ 'à mettre ICI "WHERE (([tbl_reglements].ID_reglement) Not In (select ID_reglement from [tbl_reglement_bgt])) " 'et pas là
[EDIT:] Oups! pardon Robert pour le télescopage des réponses

Bonjour tee_grandbois, bonjour Robert1957

Je vous l'accorde ou avais je la tête :aie:

Citation:

le jaune sur fond clair n'était pas vraiment utile

Sinon, j'ai revu le code pour éventuellement corriger des erreurs syntaxe, de ce coté c'est fait, j'ai aussi corrigé comme vous me l'avez demandé, mais malheureusement j'ai le même message d'erreur, je vous reposte le code après correction.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Transferer_Click()
Dim leSQL As String
 
leSQL = "INSERT INTO [tbl_reglements_bgt] ( ID_reglement, ID_contrat_fk, [Numero de contrat], Periode, [Compte projet], [Nature_monnaie], Montant_reg, Montant_reg_n, [Total reglements], FE/BIG, [Structure ordonnatrice], Nature_reglement, Num_facture, Date_facture, TVA/RG, [Recu le], [Date recep], [Transmise le], [Date trans], [Doc attache], Fournisseur, MontantDev, ItemDeduction, ID_Projet, DateTransfert ) " & _
"SELECT [tbl_reglements].ID_reglement, [tbl_reglements].ID_contrat_fk, [tbl_reglements].[Numero de contrat], [tbl_reglements].Periode, [tbl_reglements].[Compte projet], [tbl_reglements].Nature_monnaie, [tbl_reglements].Montant_reg, [tbl_reglements].Montant_reg_n, [tbl_reglements].[Total reglements], [tbl_reglements].FE/BIG, [tbl_reglements].[Structure ordonnatrice], [tbl_reglements].Nature_reglement, [tbl_reglements].Num_facture, [tbl_reglements].Date_facture, [tbl_reglements].TVA/RG, [tbl_reglements].[Recu le], [tbl_reglements].[Date recep], [tbl_reglements].[Transmise le], [tbl_reglements].[Date trans], [tbl_reglements].[Doc attache], [tbl_reglements].Fournisseur, [tbl_reglements].MontantDev, [tbl_reglements].ItemDeduction, [tbl_reglements].ID_Projet Date() AS DateTransfert " & _
"FROM [tbl_reglements] " & _
"WHERE (([tbl_reglements].ID_reglement) Not In (select ID_reglement from [tbl_reglement_bgt])) "
 
DoCmd.SetWarnings False
DoCmd.RunSQL leSQL
DoCmd.SetWarnings True
 
 
DoCmd.SetWarnings False
DoCmd.RunSQL leSQL
DoCmd.SetWarnings True
End Sub

La ligne 10 est encore et toujours surligné en jaune.

Cordialement.

17/03/2024, 12h15
tee_grandbois

bonjour,
en effet ... voilà ce que c'est de ne pas respecter le nommage des champs (utilisation d'un caractère réservé): FE/BIG, TVA/RG à mettre entre crochets.
et si il y a encore le message 3134, il faudra poster le résultat de Debug.Print leSQL, code à insérer avant la ligne 10
17/03/2024, 13h01
adelion7015

Bonjour,

J'ai effectué la correction j'ai le message suivant :

Erreur d'exécution '3075':

Erreur de syntaxe (opérateur absent) dans l'expression "[tbl_reglements].ID_Projet Date()"

Et toujours cette ligne 10 surligné en jaune.

Ca me joue sur les nerfs :evilred:

Encore merci.

Cordialement
17/03/2024, 13h25
adelion7015

Re bonjour,

c'est bon j'ai réussi, il manquait une virgule après ID_Projet et une correction sur le nom de la table cible

Code:

[tbl_reglements].ID_Projet,

Et le nom de la table tbl_reglements_bgt au lieu de tbl_reglement_bgt.

Encore merci.

Bien cordialement.