Comment empecher #erreur [Résolu]

[UDSP50]

Coucou la room

un petit message bien tardif mais je reche, je recherche et je ne trouve pas

voila dans un formulaire j'ai un sous formulaire que contient des données d'une table

il me restitu bien mes données lorsque celles ci st rentrées
par exemple je vais bien voire toutes la liste de pommes avec leur prix.

Sur le formulaire maître, j'ai un champs "TOTAL PRIX "qui additionne tous ces prix.

mais, quand il n'y a pas d'enregistrement il me met #erreur

comment puis je contourner ce petit truc car comme j'ai automatisé mon formulaire, lorsqu'il passe sur un nom qui ne possede pas d'enregistrement il me demande de debogger

merci de votre aide

bisous a tous célia

[francishop]

Bonsoir,

On peut traiter à l'aide d'une fonction :

Code :

1
2
3
4
5
6
7
8
9
Function PasErreur(n As Variant) As Variant
  On Error GoTo Trap
  PasErreur = n
  Exit Function
Trap:
  PasErreur = 0
  Resume Next
  Exit Function
End Function

Ne pas oublier, dans bien des cas la fonction NZ nous évite des soucis :
http://www.developpez.net/forums/sho...d.php?t=389900

Cordialement.

[argyronet]

Bonjour,

Inutile de passer par VBA...
Tu poses un champ caché qui lève l'erreur volontairement dans ton sous-formulaire :
Par exemple :

Code :

=[Prix]*[Quantité]

et tu nomme ce champ tmpTxtTotal (...)
Dans ton champ visible, tu écris:

Code :

=IIf(IsError([tmpTxtTotal]); 0; [tmpTxtTotal])

Argy

[UDSP50]

je ne sais pas pourquoi mais cela ne marche pas

comme il n'y a pas d'enregistremments dans mon champs [Texte01] de calcul cela marque et c'est normal #Erreur

Et comme une fonction sur clic fait reference à ce champ en disant par exemple :

Code :

1
2
3
4
5
6
7
8
9
 
If Texte01.Value > 0 Then
    Image01.Width = Texte01.Value * 56
    Texte01.Visible = True
    Étiquette49.Visible = True
    End If
If Texte01.Value > 100 Then
    Image01.Width = 100 * 56
End If

ben le probleme c'est que cela génère un bug alors je pense que le mieux serait de forcer le champs Texte01 si en #Erreur alors = 0

mais je n'y arrive pas

avez vous une idée

grand merci

Célia

[francishop]

Bonjour,

C'est vu pour la fonction Nz?

http://www.developpez.net/forums/sho...49&postcount=8

Cordialement.

[UDSP50]

voici un exemple de mes champs

dans le champs Texte43 j'y ai mis ce code

Code :

1
2
 
=[Filtre_Item_1 sous-formulaire].[Formulaire]![Texte28]

Cela marche bien quand il y a un enregistrement minimum et cela marque # erreur s'il n'y en a pas

si je met cela

Code :

1
2
 
=(NZ[Filtre_Item_1 sous-formulaire].[Formulaire]![Texte28];0)

cela me met erreur de syntaxe

je pige pas

[Renardo]

essai

Code :

 Image01.Width = nz([Texte01]) * 56

[loufab]

Envoyé par UDSP50

Code :

cela me met erreur de syntaxe

je pige pas
sniff

Dans un premier temps il faudrait (re)voir quelques bases de programmation.

Une fonction a normalement cette syntaxe :

mafonction(mesparamètre)

donc pas (mafonction[parametre];parametre) ni mafonction()parametre;parametre ni même (parametre;mafonction;parametre)...