Discussion :

[majudis]

Bonjour,

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

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
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 :

Code :

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

1
2
3
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

[Muhad'hib]

Merci de n'ouvrir qu'un seul sujet par problème.
Le précédent sujet n'étant pas soldé, pourquoi en ouvrir un 2ème ?