Comment utiliser une variable issue d'un recordset dans une requète SQL
Je veux me servir de la valeur du champ (N° automatique) "N° programme" des enregistrements du recordset d'une table "Programmes dupliqués" pour créer une table "Pays dupliqués". Access me renvoie le message "Entrer une valeur de paramètre" pour la variable "NProgramme" où je stocke la valeur du champ. Je suis bloqué depuis plusieurs jours sur ce point et n'ai pas trouvé ou sû chercher d'explication dans les FAQ. Quelqu'un a-t-il la solution? Mon code est:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Dim Cnx As ADODB.Connection
Dim Rst As ADODB.Recordset
Set Cnx = CurrentProject.Connection
Set Rst = New ADODB.Recordset
Rst.ActiveConnection = Cnx
Rst.Open "[Programmes dupliqués]"
'While Not Rst.EOF (me servira ultérieurement à parcourir la table)
'Duplique les pays correspondant au programme en cours et crée la table Pays dupliqués
Dim NProgramme As Integer
NProgramme = Rst.Fields("N° programme").Value
Rst.MoveFirst
DoCmd.RunSQL "SELECT [N° programme], Pays, [Type police], [GPD vérifié], Observations, MAJ INTO [Pays dupliqués] FROM Pays WHERE ((([N° programme]) = NProgramme))" |
