Bonjour,
J'ai une requ=EAte en VBA qui contr=F4le si il y a certain=20
nombre d'enregistrements dans une table...si il y a des=20
enregistrements je renvoie un bout de code et si il n'y en=20
a pas je renvoie un autre bout de code...or pour faire un=20
recordcount, il me semble obligatoire de faire un=20
recordset.movelast juste avant...et le hic c'est que si il=20
n'y a pas d'enregistrement access ne peut pas atteindre le=20
dernier et me g=E9n=E8re une erreur...comment faut-il faire??
Exemple:
monrecord=3Ddb.openrecordset(Marequ=EAte, dbopendynaset)
monrecord.movelast 'Erreur si pas enregistrement
If monrecord.recordcount =3D 0 then
je fais un bout de code
else
je fais un autre bout de code...
end if
If DCount("numero", "requête1") = 0 then je fais un bout de code else je fais un autre bout de code... end if
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"doft" a écrit dans le message de news:08e401c3b976$165b2f60$ Bonjour, J'ai une requête en VBA qui contrôle si il y a certain nombre d'enregistrements dans une table...si il y a des enregistrements je renvoie un bout de code et si il n'y en a pas je renvoie un autre bout de code...or pour faire un recordcount, il me semble obligatoire de faire un recordset.movelast juste avant...et le hic c'est que si il n'y a pas d'enregistrement access ne peut pas atteindre le dernier et me génère une erreur...comment faut-il faire??
Exemple:
monrecordÛ.openrecordset(Marequête, dbopendynaset) monrecord.movelast 'Erreur si pas enregistrement If monrecord.recordcount = 0 then je fais un bout de code else je fais un autre bout de code... end if
Merci beaucoup!! DOft
Bonjour.
tu peux faire:
If DCount("numero", "requête1") = 0 then
je fais un bout de code
else
je fais un autre bout de code...
end if
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA
"doft" <dotf26@caramail.com> a écrit dans le message de
news:08e401c3b976$165b2f60$a301280a@phx.gbl...
Bonjour,
J'ai une requête en VBA qui contrôle si il y a certain
nombre d'enregistrements dans une table...si il y a des
enregistrements je renvoie un bout de code et si il n'y en
a pas je renvoie un autre bout de code...or pour faire un
recordcount, il me semble obligatoire de faire un
recordset.movelast juste avant...et le hic c'est que si il
n'y a pas d'enregistrement access ne peut pas atteindre le
dernier et me génère une erreur...comment faut-il faire??
Exemple:
monrecordÛ.openrecordset(Marequête, dbopendynaset)
monrecord.movelast 'Erreur si pas enregistrement
If monrecord.recordcount = 0 then
je fais un bout de code
else
je fais un autre bout de code...
end if
If DCount("numero", "requête1") = 0 then je fais un bout de code else je fais un autre bout de code... end if
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"doft" a écrit dans le message de news:08e401c3b976$165b2f60$ Bonjour, J'ai une requête en VBA qui contrôle si il y a certain nombre d'enregistrements dans une table...si il y a des enregistrements je renvoie un bout de code et si il n'y en a pas je renvoie un autre bout de code...or pour faire un recordcount, il me semble obligatoire de faire un recordset.movelast juste avant...et le hic c'est que si il n'y a pas d'enregistrement access ne peut pas atteindre le dernier et me génère une erreur...comment faut-il faire??
Exemple:
monrecordÛ.openrecordset(Marequête, dbopendynaset) monrecord.movelast 'Erreur si pas enregistrement If monrecord.recordcount = 0 then je fais un bout de code else je fais un autre bout de code... end if
Merci beaucoup!! DOft
Xavier HUE
Bonjour,
Vérifier si le recordset n'est pas vide:
monrecordÛ.openrecordset(Marequête, dbopendynaset) If monrecord.BOF then 'Vide
je fais un bout de code else 'Pas vide je fais un autre bout de code... end if
Tu peux aussi voir la fonction DLookUp ("Champ","Domaine","Critere")
Cordialement.
Bonjour,
Vérifier si le recordset n'est pas vide:
monrecord=db.openrecordset(Marequête, dbopendynaset)
If monrecord.BOF then 'Vide
je fais un bout de code
else 'Pas vide
je fais un autre bout de code...
end if
Tu peux aussi voir la fonction DLookUp
("Champ","Domaine","Critere")
