J'ai ce bout de code en bas associé à un bouton, mais l'erreur: "Élement non trouvé dans cette collection" apparait pour la ligne ou je fait le Set Qry. Ma requete est bonne parce qu'elle marche si je la mets uniquement dans une requete.
Quelqu'un aurait une idée de l'erreur?
Dim id As String
id = "8485"
DoCmd.SetWarnings False
Dim Qry As DAO.QueryDef
Set Qry = CurrentDb.QueryDefs("UPDATE Cheque SET Cheque.montant= 0 WHERE Cheque.noCheque=[id]")
Qry.Parameters("id") = id
Qry.Execute
Set Qry = Nothing
DoCmd.SetWarnings True
J'ai ce bout de code en bas associé à un bouton, mais l'erreur: "Élement non trouvé dans cette collection" apparait pour la ligne ou je fait le Set
Qry. Ma requete est bonne parce qu'elle marche si je la mets uniquement dans une requete.
Quelqu'un aurait une idée de l'erreur?
Dim id As String id = "8485" DoCmd.SetWarnings False Dim Qry As DAO.QueryDef
Set Qry = CurrentDb.QueryDefs("UPDATE Cheque SET Cheque.montant= 0 WHERE Cheque.noCheque=[id]")
Qry.Parameters("id") = id Qry.Execute Set Qry = Nothing DoCmd.SetWarnings True
Bonjour.
tu te peux pas ouvrir un objet qui n'existe pas.
Set Qry = CurrentDb.QueryDefs(nomderequête)
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"La Mouette" <LaMouette@discussions.microsoft.com> a écrit dans le message
de news:5E09FA0D-B821-41E6-B3B8-52270C7004C1@microsoft.com...
Bonjour,
J'ai ce bout de code en bas associé à un bouton, mais l'erreur: "Élement
non trouvé dans cette collection" apparait pour la ligne ou je fait le Set
Qry. Ma requete est bonne parce qu'elle marche si je la mets uniquement dans
une requete.
Quelqu'un aurait une idée de l'erreur?
Dim id As String
id = "8485"
DoCmd.SetWarnings False
Dim Qry As DAO.QueryDef
Set Qry = CurrentDb.QueryDefs("UPDATE Cheque SET Cheque.montant= 0 WHERE
Cheque.noCheque=[id]")
Qry.Parameters("id") = id
Qry.Execute
Set Qry = Nothing
DoCmd.SetWarnings True