Bonjour,

J'ai juste besoin d'un regard sur les lignes de code suivant...
Je ne connais pas Sql, j'ai regardé, lu et cherché la formulation pour
insérer des champs de deux tables dans une table...

et ai produit ces quelques lignes :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
'initialisation Dao
Dim Base As DAO.Database
Set Base = CurrentDb
 
'compte des correspondants
Dim Ajout As DAO.Recordset
'recherche informations dans table négociateurs
Set Ajout = Base.OpenRecordset("tbl_essai_correspondants")
 
V_Sql = "INSERT INTO tbl_essai_correspondants([Civilite], [Nom], [Prenom] , [Qualite], [Raison_sociale], [Adresse1], [Adresse2], [Code_postal], [Commune]) "
V_Sql = V_Sql & "SELECT tbl_Directeur.[direction_civilite], tbl_Directeur.[direction_nom], tbl_Directeur.[direction_prenom], tbl_Directeur.[direction_qualite], tbl_Ej_Org.[ej-raison_sociale], tbl_Ej_Org.[ej-complement_distribution], tbl_Ej_Org.[ej-voie], tbl_Ej_Org.[ej-code_postal], tbl_Ej_Org.[ej-libelle_commune_routage]"
V_Sql = V_Sql & "FROM tbl_Directeur INNER JOIN tbl_Ej_Org ON tbl_Directeur.[ej-no_cna] = tbl_Ej_Org.[ej-no_cna]"
V_Sql = V_Sql & "WHERE tbl_Ej_Org.[ej-no_cna]= '" & EjNum & "';"
Base.Execute V_Sql
j'ai une erreur 3061, et après avoir lu, cela semble être une question
de syntaxe... et ne voit pas ce que cela peut être.
Un grand merci d'avance

Plume27