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 : Sélectionner tout - Visualiser dans une fenêtre à part
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))"
Partager