Discussion :

[mutuel13]

bj ,

Pour copier 1 ligne définie d'une table1 vers une table2
La requête directe fonctionne.
Récupération de la forme sql pour l'utiliser avec du code vba , mais erreur :
'erreur 3075 operateur absent ', et je ne vois pas où est l'erreur .

Code sql :

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

1
2
3
4
5
6
7
strSql = "INSERT INTO tblAlaDemandeDe (NrClient, Nom, Prenom, Courriel, Telephone )" _
         & "SELECT tblClients.NrClient, tblClients.DemandeurNom, tblClients.DemandeurPrenom, tblClients.DemandeurCourriel,tblClients.DemandeurTelephone" _
         & "FROM tblClients" _
         & "WHERE (((tblClients.NrClient)=1));"
 
DoCmd.RunSQL strSql
End Sub

nb) la ligne & "Select ....... est en une seule ligne jusqu' à ... Telephone" _

Merci

[ClaudeLELOUP]

Bonjour,

À mon avis, ça manque d'espaces !

Essaie ceci, j'ai ajouté un espace devant chaque clause :

Code sql :

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

1
2
3
4
5
6
7
strSql = "INSERT INTO tblAlaDemandeDe (NrClient, Nom, Prenom, Courriel, Telephone ) " _
         & "SELECT tblClients.NrClient, tblClients.DemandeurNom, tblClients.DemandeurPrenom, tblClients.DemandeurCourriel,tblClients.DemandeurTelephone " _
         & "FROM tblClients " _
         & "WHERE (((tblClients.NrClient)=1));"
 
DoCmd.RunSQL strSql
End Sub

Pour t'aider à l'avenir regarde cette méthode pour détecter le problème : http://cafeine.developpez.com/access...el/debugprint/

P.-S. Quand tu postes du code, tu dois l'encadrer de balises : http://dolphy35.developpez.com/images/Balises.gif

[Jean-Philippe André]

Bonjour,

il te manque les espaces

Code :

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

1
2
3
4
strSql = "INSERT INTO tblAlaDemandeDe (NrClient, Nom, Prenom, Courriel, Telephone )" _
         & " SELECT NrClient, DemandeurNom, DemandeurPrenom, DemandeurCourriel,DemandeurTelephone" _
         & " FROM tblClients" _
         & " WHERE NrClient=1;"

[mutuel13]

merci .C'est OK