Recordset vide test infructueux par IsEmpty / IsNull

Question

Salut &#212; Gens !

J'ai un soucis pour tester un recordset vide. Je cr&#233;&#233;e le recordset par une requ&#234;te SQL. Parfois aucune donn&#233;e ne correspond &#224; cette requ&#234;te... mon recordset est donc vide ! Sinon cela me renvoi un seul enregistrement (Sumof#) Pas de soucis. Pour que mon code soit net, je dois v&#233;rifier si mon recordset est vide. Dans ce cas je donne une valeur &#216; au champ du formulaire de destination, sinon la valeur de l'enregistrement.
Le test :
MyCheck = IsEmpty(rst.SumOf#)If MyCheck True then Formulaire.Champ 0 Else rst.SumOf#

C'est l&#224; que le bas blesse... il me retourne toujours False ! Y compris par IsNull.

Vos solutions sont ... bienvenueS.

En attendant je biaise en comptant le nombre d'enregistrement du recordset :
MyCheck =  rst.RecordCountIf MyCheck 0 then Formulaire.Champ 0 Else rst.SumOf#

CrossHair (CS addicted - Je veux dire CS pas CS, m&#234;me si CS un peu. Celui qui pige se sentira consern&#233; )

cs_Jack · Answer

Bizarre ta syntaxe  rst.SumOf#
Bref, teste  rst.RecordCount   qui te renverra le nombre de r&#233;ponses dans ton RecordSet, je ne vois pas o&#249; est le probl&#232;me ...
Sinon, pour tester si un des champs n'est pas vide, suffit de faire :
If Not IsNull(rst!monChamp) Then maVar = rst!monChamp ...

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

valtrase · Answer

Idem que jack
MyCheck (rst.RecordCount 0)

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

CrossHair · Answer

rst.recordCount... je disais juste que faute de mieux, j'avais trouv&#233; &#231;&#224;... mais que &#231;&#224; ne me plaisait qu'&#224; moiti&#233;. Mais si &#231;&#224; vous semble propre... c'est top moumoute !


Merci pour ta (vos) r&#233;ponse(s). J'ai appliqu&#233; "if not" ( et "if" seul); &#231;&#224; roule !


En prime j'ai pig&#233; ! Dsl pour la syntaxe... &#231;&#224; sera mieux la prochaine !


CrossHair


Dans le genre j'ai aussi :


"L'exp&#233;rience est un bien qui s'ach&#232;te cher et  se revend tr&#232;s mal." Partagez la v&#244;tre, c'est ce que vous avez de mieux &#224; en faire.

CrossHair · Answer

Oups ! Pas tout &#224; fait mais EUREKA j'ai trouv&#233; !

Il semble que IsNull (ou IsEmpty) ne test qu'un champ de l'enregistrement. Mon probl&#232;me est que ma requ&#234;te peut ne me retourner aucun enregistrement. C'est donc tous le RecordSet qui peut &#234;tre vide. Je dois donc pourvoir tester quelque chose comme :
if IsEmpty (rst) then......
Et pas :
if IsEmpty (rst.champ) then....

La solution qui me semble la plus propre est un test sur BOF et EOF :
If ( rst.EOF true And rst.BOF true ) then 'valeurRecordSetVide' Else rst.champ

Ok ?

cs_Jack · Answer

M&#234;me si ta requ&#232;te ne renvoie aucune donn&#233;es (ligne), la structure du RecordSet existe : il y a une colonne par champ demand&#233; dans le Select.
Ces champs peuvent &#234;tre lu de 2 fa&#231;ons :
rst.Fields(NoDuChamp).Value
rst!NomDuChamp
ou rst![NomDuChamp] si le nom du champ comporte des espaces ou caract&#232;res sp&#233;ciaux

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Recordset vide test infructueux par IsEmpty / IsNull

5 réponses

Discussions similaires