Discussion :

[alainwilly]

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))"

[marot_r]

Un grand classique quand on commence, voici la solution.

Code :

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

DoCmd.RunSQL "SELECT [N° programme], Pays, [Type police], [GPD vérifié], Observations, MAJ INTO [Pays dupliqués] FROM Pays WHERE ((([N° programme]) = " & NProgramme & "))"

Tout ce qui est entre " est considéré comme du texte et n'est pas interprété par le compilateur VBA de Access.

A+