[AC-2013] Syntaxe instruction VBA avec nz pour tester la valeur d'un compteur

Syntaxe instruction VBA avec nz pour tester la valeur d'un compteur

Bonjour
j'ai eu l'occasion d'aborder déjà ce point dans ce forum mais apparemment j'ai toujours le problème :

Dans mon programme VBA, je récupère un compteur dans un état qui quand il est à 0 plante.
donc on m'a transmis une instruction qui doit me permettre de tester la valeur du compteur en utilisant la fonction nz :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 'rechercher valeur du compteur d'anomalies dans état E_RDG01 DoCmd.OpenReport "E_RDG01", acPreview, , , acHidden If Nz(Reports!E_RDG01!cpt, 0) > 0 Then rstAno.Fields("NbAnos").Value = Reports!E_RDG01!cpt.Value DoCmd.Close 'Calcul standard du compteur d'anomalies pondéré AnoRef : NbAnos x PondData = AnoRef AnoRef = rstAno.Fields("NbAnos").Value * rstAno.Fields("PondData").Value Seuil = rstAno.Fields("SeuilAnos").Value 'calcul IQD + Cumul IQD dans TotIQD Call Calcul_IQD(IQD, AnoRef, Seuil, TotIQD, AnoPond) Else rstAno.Fields("NbAnos").Value = 0 IQD = 4 End If
J'ai près de 40 états dans lequel je prend la valeur compteur (qui correspond à un nbre d'anomalies) et tout va bien tant que celui-ci n'est pas égale à 0....:(
si vous avez une idée, MERCI !!!!!!!!!!!!!!!!!!!

Bonjour.

Et que ce passe-t'il quand il est à 0 ?

Tu as un message d'erreur ? si oui, lequel ?
Tu n'as pas le résultat attendu ? si oui, quel est le résultat, qu'est-ce qui était attendu ?
Tu n'as pas de résultat du tout ?

Aussi quand tu es dans le cas 0, tu ne fermes pas le rapport. Le problème vient peut-être de là.

Pour fermer le rapport, je te suggère :

Code:

docmd.close acReport, "E_RDG01"

qui va fermer spécifiquement le rapport et pas le dernier objet ouvert quel qu'il soit.

A+

syntaxe nz

Bonjour,

ok je vais essayer ....
merci

Citation:

Envoyé par marot_r

Bonjour.

Et que ce passe-t'il quand il est à 0 ?

Tu as un message d'erreur ? si oui, lequel ?
Tu n'as pas le résultat attendu ? si oui, quel est le résultat, qu'est-ce qui était attendu ?
Tu n'as pas de résultat du tout ?

Aussi quand tu es dans le cas 0, tu ne fermes pas le rapport. Le problème vient peut-être de là.

Pour fermer le rapport, je te suggère :

Code:

docmd.close acReport, "E_RDG01"

qui va fermer spécifiquement le rapport et pas le dernier objet ouvert quel qu'il soit.

A+

1 pièce(s) jointe(s)

syntaxe nz

Citation:

Envoyé par altor92

Bonjour,

ok je vais essayer ....
merci

Bon je rencontre en fait le souci sur la syntaxe nz....je te joins le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
I = 0
                'RDG01
                If rstAno.EOF Then
                            GoTo Traitement_résultats
                End If
                I = I + 1
                'MAJ dans T_compte du nombre d'anomalies RDG01
                If rstAno.Fields("NumAno") = I Then
                    rstAno.Edit
                    rstRDG.Edit
                'Calcul IQD RDG01
                    DoCmd.OpenReport "E_RDG01", acPreview, , , acHidden
                        If Nz(Reports!E_RDG01!cpt, 0) > 0 Then
                            rstAno.Fields("NbAnos").Value = Reports!E_RDG01!cpt.Value
                            DoCmd.Close acReport, "E_RDG01"
                            
                    'IIf (Nz(Reports!E_RDG01!cpt, 0) > 0,,0) Then
                        'rstAno.Fields("NbAnos").Value = Reports!E_RDG01!cpt.Value
                        'DoCmd.Close

et le msg
Pièce jointe 286920

merci à toi

Bonjour.

c'est if Nz(Reports!E_RDG01!cpt, 0) > 0 Then qui plante ?

Que vaut Reports!E_RDG01!cpt ?

Et essaye avec Reports!E_RDG01.cpt.

En passant, la prochaine fois essaye de cadrer l'image plus prêt du message d'erreur. Là ton code et l'image de ton code avec le message se mélange ce qui fait qu'on se sait plus trop où est quoi.

A+

4 pièce(s) jointe(s)

erreur syntaxe nz compteur à zero

Code:

Reports!E_RDG01!cpt = 0

ci-après les différents shoots des mes écrans pour être au plus clair
le premier montre la zone compteur que j'ai nommé cpt
le deuxième la valeur de cpt pour cet état (pas d'anomalies)
le troisième le module vba avec son msg erreur
le quatrième montre la ligne instruction en problème...

Pièce jointe 287155 Pièce jointe 287159 Pièce jointe 287161 Pièce jointe 287166

merci encore de ton aide!

Bonjour.

Que voit VBA pour Reports!E_RDG01!cpt ?

Pour le savoir :

Passer en mode debug.
Activer la fenêtre d'exécution immédiate (Touches [Ctrl][G]).
Taper ? Reports!E_RDG01!cpt et appuyer sur la touche [enter].

A+

3 pièce(s) jointe(s)

prob syntaxe nz

Merci pour ton code debug que je me suis empressé de tester

Pièce jointe 288041

Pièce jointe 288046

Pièce jointe 288050

Mon prob test valeur cpt zero dans état non résolu.....

Bonjour à tous et à toutes bonnes âmes soeurs!!
je galère depuis un moment sur test d'un compteur que je pioche dans un état et qui plante (instruction testt) quand celui est égal à zéro....:(
Mon code est dans les échanges mais suis prêt à donner toutes informations complémentaires à mon futur sauveur.
en effet dans le cas où mon compteur est à zéro je n'opère pas certains calculs.
merci à vous

Bonjour,
Peut-être une piste :
le contrôle cpt de l'état E_RDG01 a =Compte(*) comme source contrôle : cela veut dire qu'il renvoie le nombre d'enregistrements du Recordset. Mais si le Recordset est vide (pas d'enregistrements) cela provoque une erreur expression sans paramètre.
Donc il faut tester que le nombre d'enregistrements du RecordSet de l'état est > 0 avant de tester la valeur d'un contrôle. Malheureusement, cette propriété n'est pas disponible dans un état (en tous cas dans la version 2013).

Une solution serait de compter le nombre d'enregistrements du RecordSource. C'est possible à la condition que la commande DoCmd.OpenReport n'est pas exécutée avec une requête filtre enregistrée ou une condition WHERE car cela renverrait un résultat faux. Mais ce n'est pas ton cas :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 ... 'Déclaration de l'objet Report Dim rpt As Report Set rpt = Report_E_RDG01 ... DoCmd.OpenReport rpt.Name, acPreview, , , acHidden If DCount("*", rpt.RecordSource) > 0 Then ' teste si le Recordset est vide If Nz(Rpt!cpt, 0) > 0 Then rstAno.Fields("NbAnos").Value = rpt!cpt.Value End if End If DoCmd.Close ...
Remarque le fait de déclarer l'état en objet Report évite à chaque fois de mettre Reports!E_RDG01 à chaque fois et en plus on bénéficie de l'auto-complétion (invite de la liste des propriétés liées à l'objet).

Merci j'essaye!!!

Merci tee_grandbois!!
je tente ma chance avec ta proposition et te tiens au courant
:D
Citation:
Envoyé par tee_grandbois
Bonjour,
Peut-être une piste :
le contrôle cpt de l'état E_RDG01 a =Compte(*) comme source contrôle : cela veut dire qu'il renvoie le nombre d'enregistrements du Recordset. Mais si le Recordset est vide (pas d'enregistrements) cela provoque une erreur expression sans paramètre.
Donc il faut tester que le nombre d'enregistrements du RecordSet de l'état est > 0 avant de tester la valeur d'un contrôle. Malheureusement, cette propriété n'est pas disponible dans un état (en tous cas dans la version 2013).

Une solution serait de compter le nombre d'enregistrements du RecordSource. C'est possible à la condition que la commande DoCmd.OpenReport n'est pas exécutée avec une requête filtre enregistrée ou une condition WHERE car cela renverrait un résultat faux. Mais ce n'est pas ton cas :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 ... 'Déclaration de l'objet Report Dim rpt As Report Set rpt = Report_E_RDG01 ... DoCmd.OpenReport rpt.Name, acPreview, , , acHidden If DCount("*", rpt.RecordSource) > 0 Then ' teste si le Recordset est vide If Nz(Rpt!cpt, 0) > 0 Then rstAno.Fields("NbAnos").Value = rpt!cpt.Value End if End If DoCmd.Close ...
Remarque le fait de déclarer l'état en objet Report évite à chaque fois de mettre Reports!E_RDG01 à chaque fois et en plus on bénéficie de l'auto-complétion (invite de la liste des propriétés liées à l'objet).

test compteur à zéro

Citation:

Envoyé par altor92

Merci tee_grandbois!!
je tente ma chance avec ta proposition et te tiens au courant
:D

Hello!
je te donne le résultat final qui marche (j'ai du corriger ta dernière proposition comme suit pour info)
Code:

1 2 3 4 5 6 If Not rstRQR.EOF Then DoCmd.OpenReport "E_RDG01", acPreview, , , acHidden rstAno.Fields("NbAnos").Value = Reports!E_RDG01!cpt.Value DoCmd.Close 'Calcul standard du compteur d'anomalies pondéré AnoRef : NbAnos x PondData = AnoRef AnoRef = rstAno.Fields("NbAnos").Value * rstAno.Fields("PondData").Value
Comme tu l'as dit, il faut s'appuyer sur la requête pour tester le retour à zéro (si non EOF, l'état de sortie contient au moins un enregistrement et donc le cpt > 0 bien-sûr...)

En tous les cas, MERCI car ça m'a débloqué et permis de finaliser mon traitement.:D

Bonjour et merci pour la solution.

Pour info, on peut aussi utiliser .recordcount pour tester si il y a des enregistrements.

Code:

if rstRQR.recordcount <>0

Attention le non est trompeur, on n'obtient le nombre d'enregistrements exact QUE quand on a lu tous les enregistrements, sinon on obtient 1 quelque soit le nombre réel d'enregistrements.
Si on veut obtenir le nombre d'enregistrements, il faut faire quelque chose comme :
Code:

1 2 3 4 if rstRQR.recordcount <>0 then rstRQR.movelast 'Force Access à lire tous les enregistrements rstRQR.movefisrt end if
A+