Bonjour,

J'aimerai réunir els deux requetes suivantes en une seule mais je ne sais as comment faire :

Sub DVP_Com()
Dim Sql As String
Dim Nb As Integer
Nb = 15
'ajouter tous les enregistrement de la table "b" dans la table "age"
Sql = "INSERT INTO AGE ( agePersonne, nompersonne ) SELECT b.agePersonne, b.nompersonne FROM b;"
CurrentDb.Execute Sql
'ajoute un enregistrement la table "age" avec nb comme agepersonne

Sql = "INSERT INTO AGE ( agePersonne ) SELECT " & Nb & ";"
CurrentDb.Execute Sql
End Sub

eN FAIT JE VOUDRAIS COPIER tous les champs de la table B vers la table AGE, sauf pour le champ NSerie qui lui est récupéré dans la variable Nb.

Quelque chose comme ceci quoi :
Sql = "INSERT INTO AGE ( agePersonne ) SELECT B.champ1, B.champ 2 FROM b;"
"AND SELECT "&Nb&";'
"WHERE"&Nb&"; = NSerie.AGE"

Mais ça ne fonctionne pas ma reuqêtes est fause :s

Quelqu'un pour 'maider ?

Merci d'avance
CurrentDb.Execute Sql

Configuration: Windows XP
Firefox 3.5.5