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é:
Sur la ligne "si requête paramétrée, j'ai un message d'erreur "élément non trouvé dans cette collection".
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
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 ?
Partager