Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
il faut passer par le queydef: exemple:
Dim Qry As DAO.QueryDef Set Qry = CurrentDb.QueryDefs("requête1") Qry.Execute LeCompte = Qry.RecordsAffected Set Qry = Nothing
-- @+ 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
"Julian Alvarez" <Julian a écrit dans le message de news:
J'aimerais savoir s'il existe un moyen simple de recuperer le nombres d'enregitrements affectes par une requete de mise a jour par exemple.
j'aimerais le recuperer dans une variable d'un module vba.
Suis-je obligé de passer par un querydef dao ou existe t'il une solution simple du type:
nbres_record=docmd.openquery("MajToto",...)
merci d'avance.
Julian
Bonjour.
il faut passer par le queydef:
exemple:
Dim Qry As DAO.QueryDef
Set Qry = CurrentDb.QueryDefs("requête1")
Qry.Execute
LeCompte = Qry.RecordsAffected
Set Qry = Nothing
--
@+
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
"Julian Alvarez" <Julian Alvarez@discussions.microsoft.com> a écrit dans le
message de news: 2F57DDEA-A96A-4AEF-B400-0C90DBD920EB@microsoft.com...
J'aimerais savoir s'il existe un moyen simple de recuperer le nombres
d'enregitrements affectes par une requete de mise a jour par exemple.
j'aimerais le recuperer dans une variable d'un module vba.
Suis-je obligé de passer par un querydef dao ou existe t'il une solution
simple du type:
Dim Qry As DAO.QueryDef Set Qry = CurrentDb.QueryDefs("requête1") Qry.Execute LeCompte = Qry.RecordsAffected Set Qry = Nothing
-- @+ 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
"Julian Alvarez" <Julian a écrit dans le message de news:
J'aimerais savoir s'il existe un moyen simple de recuperer le nombres d'enregitrements affectes par une requete de mise a jour par exemple.
j'aimerais le recuperer dans une variable d'un module vba.
Suis-je obligé de passer par un querydef dao ou existe t'il une solution simple du type:
nbres_record=docmd.openquery("MajToto",...)
merci d'avance.
Julian
Julian Alvarez
Merci pour cette réponse Raymond, j'aimerais savoir également s'il est possible de recuperer les messages d'avertissement. Par exemple on lance une requete d'ajout et ont obtient le msgbox indiquant que x enregistrements n'ont pu être inserés pour cause de non respect d'une regle de validation.
merci d'avance.
Bonjour.
il faut passer par le queydef: exemple:
Dim Qry As DAO.QueryDef Set Qry = CurrentDb.QueryDefs("requête1") Qry.Execute LeCompte = Qry.RecordsAffected Set Qry = Nothing
-- @+ 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
"Julian Alvarez" <Julian a écrit dans le message de news:
J'aimerais savoir s'il existe un moyen simple de recuperer le nombres d'enregitrements affectes par une requete de mise a jour par exemple.
j'aimerais le recuperer dans une variable d'un module vba.
Suis-je obligé de passer par un querydef dao ou existe t'il une solution simple du type:
nbres_record=docmd.openquery("MajToto",...)
merci d'avance.
Julian
Merci pour cette réponse Raymond, j'aimerais savoir également s'il est
possible de recuperer les messages d'avertissement. Par exemple on lance une
requete d'ajout et ont obtient le msgbox indiquant que x enregistrements
n'ont pu être inserés pour cause de non respect d'une regle de validation.
merci d'avance.
Bonjour.
il faut passer par le queydef:
exemple:
Dim Qry As DAO.QueryDef
Set Qry = CurrentDb.QueryDefs("requête1")
Qry.Execute
LeCompte = Qry.RecordsAffected
Set Qry = Nothing
--
@+
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
"Julian Alvarez" <Julian Alvarez@discussions.microsoft.com> a écrit dans le
message de news: 2F57DDEA-A96A-4AEF-B400-0C90DBD920EB@microsoft.com...
J'aimerais savoir s'il existe un moyen simple de recuperer le nombres
d'enregitrements affectes par une requete de mise a jour par exemple.
j'aimerais le recuperer dans une variable d'un module vba.
Suis-je obligé de passer par un querydef dao ou existe t'il une solution
simple du type:
Merci pour cette réponse Raymond, j'aimerais savoir également s'il est possible de recuperer les messages d'avertissement. Par exemple on lance une requete d'ajout et ont obtient le msgbox indiquant que x enregistrements n'ont pu être inserés pour cause de non respect d'une regle de validation.
merci d'avance.
Bonjour.
il faut passer par le queydef: exemple:
Dim Qry As DAO.QueryDef Set Qry = CurrentDb.QueryDefs("requête1") Qry.Execute LeCompte = Qry.RecordsAffected Set Qry = Nothing
-- @+ 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
"Julian Alvarez" <Julian a écrit dans le message de news:
J'aimerais savoir s'il existe un moyen simple de recuperer le nombres d'enregitrements affectes par une requete de mise a jour par exemple.
j'aimerais le recuperer dans une variable d'un module vba.
Suis-je obligé de passer par un querydef dao ou existe t'il une solution simple du type:
nbres_record=docmd.openquery("MajToto",...)
merci d'avance.
Julian
Raymond [mvp]
Alors là, je ne pense pas qu'on puisse le faire, mais tu peux le faire tout seul: avant la requête: Nbavant = DCount("*", "table1") Nbaprès = DCount("*", "table1") Nbajouter = DCount("*", "Table2") Msgbox "vous avez perdu " & (Nbajouter + nbavant - nbaprès ) & " enregistrements. Msgbox "vous avez ajouté" & (nbaprès - nbavant) & " enregistrements. -- @+ 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
"Julian Alvarez" a écrit dans le message de news:
Merci pour cette réponse Raymond, j'aimerais savoir également s'il est possible de recuperer les messages d'avertissement. Par exemple on lance une requete d'ajout et ont obtient le msgbox indiquant que x enregistrements n'ont pu être inserés pour cause de non respect d'une regle de validation.
Alors là, je ne pense pas qu'on puisse le faire, mais tu peux le faire tout
seul:
avant la requête:
Nbavant = DCount("*", "table1")
Nbaprès = DCount("*", "table1")
Nbajouter = DCount("*", "Table2")
Msgbox "vous avez perdu " & (Nbajouter + nbavant - nbaprès ) & "
enregistrements.
Msgbox "vous avez ajouté" & (nbaprès - nbavant) & " enregistrements.
--
@+
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
"Julian Alvarez" <JulianAlvarez@discussions.microsoft.com> a écrit dans le
message de news: 65B8C44C-DAF1-4960-996F-C9CB74640FEC@microsoft.com...
Merci pour cette réponse Raymond, j'aimerais savoir également s'il est
possible de recuperer les messages d'avertissement. Par exemple on lance
une
requete d'ajout et ont obtient le msgbox indiquant que x enregistrements
n'ont pu être inserés pour cause de non respect d'une regle de validation.
Alors là, je ne pense pas qu'on puisse le faire, mais tu peux le faire tout seul: avant la requête: Nbavant = DCount("*", "table1") Nbaprès = DCount("*", "table1") Nbajouter = DCount("*", "Table2") Msgbox "vous avez perdu " & (Nbajouter + nbavant - nbaprès ) & " enregistrements. Msgbox "vous avez ajouté" & (nbaprès - nbavant) & " enregistrements. -- @+ 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
"Julian Alvarez" a écrit dans le message de news:
Merci pour cette réponse Raymond, j'aimerais savoir également s'il est possible de recuperer les messages d'avertissement. Par exemple on lance une requete d'ajout et ont obtient le msgbox indiquant que x enregistrements n'ont pu être inserés pour cause de non respect d'une regle de validation.
