Bonjour,

Je dois rajouter un champ de type booléen en fin de grille qui affiche une liste d'enregistrements.

Pour cela, j'ai ajouté un champ dans la table et modifié la requête qui affiche l'écran.

A présent, je veux pouvoir exporter sur Excel les enregistrements sélectionnés.

Pour cela, j'ai créé un recordset basé sur la requête qui affiche l'écran et je tente de l'ouvrir.

J'ai codé:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim qdf As DAO.QueryDef
    Dim rcs As DAO.Recordset
 
    ' Référence à la requête
    Set qdf = CurrentDb.QueryDefs("R_consult_resp")
 
    ' Code qui utilise qdf
    ' Par exemple
    qdf.Parameters("R_consult_resp.A_exp") = True     '<== si requête paramétrée
    qdf.Execute                                 '<== si requête action
    Set rcs = qdf.OpenRecordset
Sur la ligne "si requête paramétrée, j'ai un message d'erreur "élément non trouvé dans cette collection".

Je suis tout débutant, je ne comprends pas pourquoi.

Si j'enlève la ligne en question, j'ai un autre message d'erreur "Impossible d'exécuter une requête de sélection".

Comment faire ?